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Apple III SOS 1.3 Source Code Assembly Commentary 



Apple3SOS13List.pdf is where I started from. 

The six disk images contain the source code. The name contains the slot/drive where it should 
be mounted; for example, SOS13-42.DSK should be in slot 4 drive 2. 

I put a DOS 3.3 boot disk in slot 5, drive 1 , and the DOS Tool Kit assembler disk in slot 5 drive 
2. This means eight 140KB drives have to be connected to the Apple II. This is hard for a real 
Apple II, but trivial in an Apple II emulator. 

SOS13-62.DSK has no source code; it got the OBJ files. 

I modified the source code as little as possible. There was some bit rot on SOS13-41 .DSK. 
Search for BITROT in the listing to see where I had to modify the source so it would assemble. 
Compare it to the PDF file to see the differences. I changed slot/drive assignments in the source 
code to match the disk assignments here. I deleted volume numbers. 

S0S13-D.LST was created using DOS EDASM, while S0S13-P.LST used ProDOS EDASM. 
S0S1 3-D.LST ran out of memory while assembling the last file, PRINT. S0S1 3-P.LST shows 
the full assembly. S0S1 3-D.LST shows twelve warnings in INIT but it assembles okay. The 
warnings are "EXTRN USED AS ZXTRN IN LINE" and are about the label FCBZPP. S0S13- 
P.LST shows four warnings and fourteen errors in INIT. It seems that the rules have changed 
between the DOS and ProDOS versions I used. That is why I include listings for both versions 
of EDASM. 

I never compared the output files from the assembler with the SOS. KERNEL file, but I have 
included SOSKERNEL.BIN. if you want to compare. 

— Paul R. Santa-Maria 

— Temperance, Michigan USA 

— August 2006 
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SOURCE 


FILE 


#01 


=>SOSLDR. 


, SRC 


SOURCE 


FILE 


#02 


=>SOSLDR. 


, A, 


. SRC 


SOURCE 


FILE 


#03 


=>SOSLDR. 


.B. 


.SRC 


SOURCE 


FILE 


#04 


=>SOSLDR. 


,C, 


.SRC 


SOURCE 


FILE 


#05 


=>SOSLDR. 


,D, 


.SRC 


SOURCE 


FILE 


#06 


=>SOSLDR. 


,E, 


.SRC 


SOURCE 


FILE 


#07 


=>SOSLDR. 


,F, 


.SRC 



***** UNDEFINED IDENTIFIER ERROR IN LINE 571 
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01 SOSLDR.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



0000 
lEOO 

lEOO 
lEOO 
lEOO 

lEOO 
lEOO 
lEOO 



lEOO 
lEOO 



REL 
ORG 

ZZORG EQU 
MSB 



$1E00 



OFF 



lr*-k***-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k*-k 

COPYRIGHT (C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 



*********************** 


* * 


********** 


** 


****** 


* 


********** 


** 


********************************* 


lEOO 


10 


* 
















lEOO 


11 


* 


SOS 


KERNEL 


LOAD S MEMORY 


POINTS 


lEOO 


12 


* 
















lEOO 


13 


* 


MODULE 




START 




END I/O 




ROM SOS BLOAD SIZE 


lEOO 


14 


* 
































lEOO 


15 


* 


SOSLDR 




lEOO 




28F7 




2000 0CF8 


lEOO 


15 


* 


INIT 




28F8 




2AA9 




2AF8 [01B2] 


lEOO 


17 


* 


SYSGLOB 




18FC 




1A03 




2CF8 


lEOO 


18 


* 
















lEOO 


19 


* 


BFM. INIT2 


+ 


BITMAPS 






lEOO 


20 








B800 




BBFF 




2E00 03FF 


lEOO 


21 


* 


BFM 




BCOO 




DE62 




3200 2263 


lEOO 


22 




<PATCH> 




DE63 




DE6A 




5463 0008 


lEOO 


23 


* 
















lEOO 


24 


* 


OP RMS G 




DE6B 




E48A X 




546B 015A 


lEOO 


25 


* 


IPL 




DFC5 




E48F X 




X 55C5 04CB 


lEOO 


26 


* 


UMGR 




E490 




E89D X 




X 5A8B 040E 


lEOO 


27 


* 
















lEOO 


28 


* 


DISK3 




E899 




EE03 X 




X 5E99 056B 


lEOO 


29 


* 


SYSERR 




EE04 




EED8 X 




64D9 00D5 


lEOO 


30 


* 


DEVMGR 




FED 9 




F05D 




54D9 0185 


lEOO 


31 


* 
















lEOO 


32 


* 


SCMGR 




F05E 




F2F3 




565E 0295 


lEOO 


33 


* 


FMGR 




F2F4 




F354 




58F4 0061 


lEOO 


34 


* 


CFMGGR 




F355 




F551 




5955 OlFD 


lEOO 


35 


* 
















lEOO 


36 




BUFMGR 




F552 




F85D 




5B52 031C 


lEOO 


37 


* 


MEMMGR 




F8 6E 




FFBE 




5E5E 0751 


lEOO 


38 


* 


<END> 




FFBE 










lEOO 


39 


* 
















lEOO 


40 


















*********************** 


** 


********** 


* * 


****** 


* 


********** 


* * 


********************************* 


lEOO 


41 


* 


SOS LOADER 




(VERSION = 1.10 


) 




lEOO 


42 


* 






(DATE 




= 8/04/8 


1) 




lEOO 


43 


* 
















lEOO 


44 


* 


SOURCE FILES 


: SOSLDR.SRC, 


SOSLDR. A. SRC, SOSLDR. B . SRC, SOSLDR. 


lEOO 


45 


* 












SOSLDR. D. SRC, SOSLDR. E . SRC, SOSLDR. 


lEOO 


46 


















lEOO 


47 




FUNCTION: 














lEOO 


48 




MOVES AND 


INITIALIZES SOS 


KERNEL, READS INTERPRETER FROM DISK 


lEOO 


49 


* 


KEYBOARD 


TABLE 


AND DRIVERS 


FROM DISK, INITIALIZES ALL DRIVERS 


lEOO 


50 


* 


ENTRY POINT. 










lEOO 


51 


















lEOO 


52 




CALLED BY: 














lEOO 


53 


* 


SOSBOOT 


7 


.0 WITH 


KERNEL FILE 


LOADED AT $1 : lEOO . 9FFF (MAX) 


lEOO 


54 


* 


WHERE : 


$1 


"INTERPRETER BANK 


( 


HIGHEST BANK IN SYSTEM) 


lEOO 


55 


* 
















lEOO 


55 


* 


CALLS : 














lEOO 


57 


* 


INTERPRETER ENTRY POINT (FIRST BYTE OF INTERPRETER CODE) 
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01 SOSLDR.SRC SOS 


1 


. 1 SOS LOADER AUGUST-2006 PAGE 3 


lEOO 


58 


* 




lEOO 


59 


* 


DOCUMENTS : 


lEOO 


60 


* 


SOS ERS APPENDICES - XX/XX/81 


lEOO 


61 


* 


APPLE III I/O SYSTEM PROGRAMMERS GUIDE - DEC-15-80 


lEOO 


62 


* 




lEOO 


63 




CONSTRAINTS : 


lEOO 


64 




INTERPRETER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+S4 00 (^BUFSIZE) . 


lEOO 


65 


* 


INTERPRETER CODE DOES NOT CONTAIN RELOCATION INFORMATION. 


lEOO 


65 


* 


MAX = 38K ($1 : 2000 . .B7FF) 


lEOO 


67 


* 


MIN = ,25K ($1 ;B700 . .B7FF) 


lEOO 


68 


* 




lEOO 


69 


* 


DRIVER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 


lEOO 


70 


* 


DRIVER MODULES ARE RELOCATED AND MOVED TO THE HIGHEST AVAILABLE 32K BANK USING 


lEOO 


71 


* 


A "FIRST FIT" ALGORITHM. MODULES ARE REMOVED FROM THE FILE BEGINNING AT THE 


BACK 








lEOO 


72 


* 


AND WORKING TOWARD THE FRONT. A DRIVER MODULE CANNOT SPAN A BANK BOUNDARY. 


lEOO 


73 


* 




lEOO 


74 


* 


DRIVER FILE; MAX = 60K (APPROX) DRIVER MODULE: MAX = 32K-1 


lEOO 


75 


* 


MIN = .25K MIN < .25K 


lEOO 


76 


* 




lEOO 


77 


* 




lEOO 


78 




DATA STRUCTURES: 


lEOO 


79 




SOS. KERNEL FILE FORMAT 


lEOO 


80 




SOS.INTERP FILE FORMAT 


lEOO 


81 




SOS. DRIVER FILE FORMAT 


lEOO 


82 


* 




lEOO 


83 






*********************** 


* 


**************************************************************************** 
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lEOO 


85 






*********************** 


* * 


************* 


lEOO 


86 


* 




lEOO 


87 


* 


NOTATION: 


lEOO 


88 


* 




lEOO 


89 


* 


A, X, Y 


lEOO 


90 


* 




lEOO 


91 


* 


C, OV 


lEOO 


92 


* 


E, Z, B 


lEOO 


93 


* 




lEOO 


94 


* 


(1 . I . S .R: W 


lEOO 


95 


* 




lEOO 


95 


* 




lEOO 


97 


* 




lEOO 


98 


* 


"POSITIVE 


lEOO 


99 


* 




lEOO 


100 


* 




lEOO 


101 


* 




lEOO 


102 


* 


TRUE, FALSE 


lEOO 


103 


* 




lEOO 


104 






*********************** 


* * 


************* 


lEOO 


105 






lEOO 


106 




ABBREVIATIONS 


lEOO 


107 






lEOO 


108 


* 


DIB 


lEOO 


109 


* 




lEOO 


110 






lEOO 


111 






lEOO 


112 




AD IB 


lEOO 


113 


* 




lEOO 


114 


* 


<VARNAME> .P 


lEOO 


115 


* 




lEOO 


116 


* 


SDT 


lEOO 


117 


* 




lEOO 


118 






*********************** 


* * 


************* 


lEOO 


119 






lEOO 


120 




CHN 



*************************************************************************** 



6502 REGISTERS 

CARRY, OVERFLOW FLAGS IN 6502 STATUS (P) REGISTER 

ENVIRONMENT, ZERO PAGE, BANK REGISTERS (SYSTEM CONTROL REGISTERS) 

ENVIRONMENT REGISTER FLAGS. FROM LEFT TO RIGHT BITS 7..0 
(IMHZ, I/O ENABLE, SCREEN ENABLE, RESET ENABLE, 
WRITE PROTECT, PRIMARY STACK, ROMl, ROM ENABLE) 

ALL LOGIC USED IS POSITIVE LOGIC. FOR EXAMPLE, C="NO DRIVERS LEFT" 
INDICATES THAT NO DRIVERS ARE LEFT WHEN CARRY = SET, AND THAT ONE OR 
MORE DRIVERS ARE LEFT WHEN CARRY = CLEAR. 



SET = ON, WHILE FALSE = CLEAR = OFF. 



***************************************************************************** 



DEVICE INFORMATION BLOCK. DEFINES A UNIQUE DEVICE THAT CAN BE LINKED 
INTO THE SYSTEM DEVICE TABLE. EACH DRIVER MODULE CONTAINS ONE OR MORE 
DIBS (DEVICES) EACH OF WHICH CAN BE "ACTIVE" OR "INACTIVE". 

"ACTIVE DIB" 

POINTER. A 3 BYTE ZERO PAGE POINTER. DON'T FORGET THE X BYTE! 

SYSTEM DEVICE TABLE. CONTAINS THE ENTRY POINT AND DIB ADDRESS OF EACH 
DEVICE CONFIGURED INTO THE SYSTEM, (USED BY THE DEVICE MANAGER) . 

*************************************************** 



SOSLDR.A. SRC 
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02 SOSLDR.A.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



lEOO: 



lEOO 


3 * 


lEOO 


4 * 


lEOO 


5 * 


lEOO 


5 * 


lEOO 


7 * 


lEOO 


8 * 


lEOO 


9 * 


lEOO 


10 * 


lEOO 


11 * 


lEOO 


12 * 


lEOO 


13 * 


lEOO 


14 * 


lEOO 


15 * 


lEOO 


16 * 


lEOO 


17 * 


lEOO 


18 * 


lEOO 


19 * 


lEOO 


20 * 


lEOO 


21 * 


lEOO 


22 * 


lEOO 


23 * 


lEOO 


24 * 


lEOO 


25 * 


lEOO 


26 * 


lEOO 


27 * 


lEOO 


28 * 


lEOO 


29 * 


lEOO 


30 * 


lEOO 


31 * 


lEOO 


32 * 


lEOO 


33 * 


lEOO 


34 * 


lEOO 


35 * 


lEOO 


36 * 


lEOO 


37 * 


lEOO 


38 * 


lEOO 


39 * 


lEOO 


40 * 


lEOO 


41 * 


lEOO 


42 * 


lEOO 


43 * 


lEOO 


44 * 


lEOO 


45 * 


lEOO 


46 * 


lEOO 


47 * 


lEOO 


48 * 


lEOO 


49 * 


lEOO 


50 * 


lEOO 


51 * 


lEOO 


52 * 


lEOO 


53 * 


lEOO 


54 * 


lEOO 


55 ♦ 


lEOO 


56 





$1EQ0 +- 
I 

$1FFF +- 



$2000 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 



$9FFF 



$A000 




SOSBOOT ! 




SOSLDR 
& 

INIT MODULE 



FIGURE 1. SOS KERNEL FILE READ INTO $2 : lEOO . . 9FFF BY SOS BOOT IN BLOCKS 0,1. 
SOS LOADER BEGINS EXECUTION AT THIS POINT. 
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02 SOSLDR.A.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



lEOO: 



58 



lEOO 


59 * 


lEOO 


60 * 


lEOO 


61 * 


lEOO 


62 * 


lEOO 


63 * 


lEOO 


64 * 


lEOO 


65 * 


lEOO 


66 * 


lEOO 


67 * 


lEOO 


68 * 


lEOO 


69 * 


lEOO 


70 * 


lEOO 


71 * 


lEOO 


72 * 


lEOO 


73 * 


lEOO 


74 * 


lEOO 


75 * 


lEOO 


75 * 


lEOO 


77 * 


lEOO 


78 * 


lEOO 


79 * 


lEOO 


80 * 


lEOO 


81 * 


lEOO 


82 * 


lEOO 


83 * 


lEOO 


84 * 


lEOO 


85 * 


lEOO 


86 * 


lEOO 


87 * 


lEOO 


88 * 


lEOO 


89 * 


lEOO 


90 * 


lEOO 


91 * 


lEOO 


92 * 


lEOO 


93 * 


lEOO 


94 * 


lEOO 


95 * 


lEOO 


95 * 


lEOO 


97 * 


lEOO 


98 * 


lEOO 


99 * 


lEOO 


100 * 


lEOO 


101 * 


lEOO 


102 * 


lEOO 


103 * 


lEOO 


104 * 


lEOO 


105 * 


lEOO 


106 * 


lEOO 


107 * 


lEOO 


108 * 


lEOO 


109 * 


lEOO 


110 




lEOO 


111 * 


lEOO 


112 



$1E00 +- 
I 

$1FFF +- 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 



$2000 + 

SOSLDR 
INIT MODULE 



FILE BUFFER 



INTERPRETER 
FILE 



$9FFF 



FIGURE 2 . 




SOS INTERPRETER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



SOSLDR. B. SRC 
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03 SOSLDR.B.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



lEOO 


2 * 


lEOO 


3 ; 


lEOO 


4 ; 


lEOO 


5 ; 


lEOO 


6 ; 


lEOO 


7 ; 


lEOO 


8 ; 


lEOO 


9 ; 


lEOO 


10 ; 


lEOO 


11 ; 


lEOO 


12 ; 


lEOO 


13 ; 


lEOO 


14 ; 


lEOO 


15 ; 


lEOO 


16 ; 


lEOO 


17 ; 


lEOO 


18 ; 


lEOO 


19 ; 


lEOO 


20 ; 


lEOO 


21 ; 


lEOO 


22 ; 


lEOO 


23 ; 


lEOO 


24 ; 


lEOO 


25 ; 


lEOO 


2 6 ; 


lEOO 


27 ; 


lEOO 


28 ; 


lEOO 


2 9 ; 


lEOO 


30 ; 


lEOO 


31 ; 


lEOO 


32 ; 


lEOO 


33 ; 


lEOO 


34 ; 


lEOO 


35 ; 


lEOO 


36 ; 


lEOO 


37 ; 


lEOO 


38 ; 


lEOO 


39 ; 


lEOO 


40 ; 


lEOO 


41 ; 


lEOO 


42 ; 


lEOO 


43 ; 


lEOO 


44 ; 


lEOO 


45 ; 


lEOO 


4 6 ; 


lEOO 


47 ; 


lEOO 


48 ; 


lEOO 


4 9 ; 


lEOO 


50 ; 


lEOO 


51 ; 


lEOO 


52 ; 


lEOO 


53 ; 


lEOO 


54 ; 


lEOO 


55 ; 



$1EQ0 +- 
I 

$1FFF +- 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 



$2000 + 

SOSLDR 
INIT MODULE 



FILE BUFFER 



DRIVER 
FILE 



$9FFF 





INTERPRETER 
CODE 



SOS DRIVER FILE READ INTO BANKS AND 
USING EXTENDED ADDRESSING (X=$80) . 
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03 SOSLDR.B.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



lEOO 


57 


lEOO 


58 


lEOO 


59 


lEOO 


60 


lEOO 


61 


lEOO 


62 


lEOO 


63 


lEOO 


64 


lEOO 


65 


lEOO 


66 


lEOO 


67 


lEOO 


68 


lEOO 


69 


lEOO 


70 


lEOO 


71 


lEOO 


72 


lEOO 


73 


lEOO 


74 


lEOO 


75 



IBITRGT 

I 

$9FFF +- 



FIGURE 4. SOS LOADER FINISHED. JUMP TO 

FIRST BYTE OF INTERPRETER'S CODE. 



(SYSTEM DEVICE TABLE) 
DIB ADR BANK UNIT 



CHN SOSLDR.C.SRC ;BITROT 
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lEOO 


2 








*********************** 


* * 


******************** 


******************************************************* 


lEOO 


3 


* 






lEOO 


4 


* 


SUBROUTINES : 




lEOO 


5 


* 






lEOO 


5 


* 


SOSLDR 


"MAIN PROGRAM" 


lEOO 


7 


* 






lEOO 


8 


* 


SOSLDRl 


"PROCESSES KERNEL/INTERPRETER/DRIVER FILES" 


lEOO 


9 


* 






lEOO 


10 


* 


{ 1 ) MOVE 


"MOVES SRC.P. .SRC.P+CNT-1 TO DST . P . . DST . P+CNT-1 " 


lEOO 


11 


* 






lEOO 


12 


* 


INIT.KRNL 


"CALLS KERNEL INITIALIZATION MODULES" 


lEOO 


13 


* 






lEOO 


14 


* 


WELCOME 


"PRINTS WELCOME MESSAGE ("APPLE ///", VERSION, DATE/TIME, COPYRIGHT) 


lEOO 


15 


* 






lEOO 


16 


* 


ADVANCE 


"ADVANCES WRK.PTR TO NEXT INTERP/KERNEL MODULE. INITS SRC.P, DST.P, CNT 


FOR MOVE" 








lEOO 


17 


* 






lEOO 


18 


* 


REVERSE 


"REVERSES TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FM 


BACK 


TO FRONT" 








lEOO 


19 


* 






lEOO 


20 


* 


DADVANCE 


"ADVANCES WORK.P TO NEXT DRIVER MODULE. INITS SRC.P, CNT, REL.P FOR MOVE" 


lEOO 


21 


* 






lEOO 


22 


* 


DADD 


"ADVANCES WORK.P TO NEXT DRIVER FIELD" 


lEOO 


23 


* 






lEOO 


24 


* 


FLAGS 


"PROCESSES "INACTIVE" & "PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 


lEOO 


25 


* 






lEOO 


25 


* 


NEXT. DIB 


"ADVANCES TO NEXT DIB IN DRIVER MODULE" 


lEOO 


27 


* 






lEOO 


28 


* 


GETMEM 


"COMPUTES DESTINATION BASE ADDRESS FOR NEXT DRIVER MODULE" 


lEOO 


29 


* 






lEOO 


30 


* 


NEWDST 


"COMPUTES DESTINATION BASE ADDRESS, ALIGNING ON PAGE BOUNDARY IF 


REQUESTED" 








lEOO 


31 


* 






lEOO 


32 


* 


BUILD. DSEG 


"COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW 


SEGMENT" 








lEOO 


33 


* 






lEOO 


34 


* 


RELOC 


"RELOCATES DRIVER MODULE'S CODE FIELD USING RELOCATION FIELD" 


lEOO 


35 


* 






lEOO 


35 


* 


(1) LINK 


"LINKS FIRST DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT 


ENTRY" 








lEOO 


37 


* 






lEOO 


38 


* 


SET. DRIVES 


"INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER" 


lEOO 


39 


* 






lEOO 


40 


* 


{ 1 ) ALLOC . DEV 


"ADDS A NEW ENTRY TO THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)" 


lEOO 


41 


* 






lEOO 


42 


* 


ALLOC . SEG 


"ALLOCATES SEGMENTS FOR KERNEL, INTERPRETER AND SYSTEM WORK AREA" 


lEOO 


43 


* 






lEOO 


44 


* 


RSEG 


"CALLS MEMORY MANAGER TO ALLOCATE SEGMENTS FOR THE KERNEL AND INTERPRTER" 


lEOO 


45 


* 






lEOO 


45 


* 


ALLOC. DSEG 


"ALLOCATES SEGMENTS FOR DRIVER MODULES" 


lEOO 


47 


* 






lEOO 


48 


* 


ERROR 


"DISPLAYS ERROR MESSAGE, SOUNDS BELL AND LOOPS UNTIL CONTROL/RESET 


PRESSED" 








lEOO 


49 


* 






lEOO 


50 


* 


(1) - INDICATES THAT 


THE ROUTINE PERFORMS BANK SWITCHING AND MUST (!) BE OUTSIDE THE 32K RAM 


BANKS . 








lEOO 


51 









******************************************************************** 
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lEOO 


53 










*********************** 


* * 


* * * * 


********************************** 


************************************* 


lEOO 


54 


* 








lEOO 


55 


* 


SOS . 


KERNEL FILE FORMAT 




lEOO 


56 


* 








lEOO 


57 


* 


(8) 


LABEL < + 




lEOO 


58 


* 




= "SOS KRNL" ! 




lEOO 


59 


* 








lEOO 


60 


* 


(2) 


HEADER COUNT ! 




lEOO 


61 


* 




HEADER ! 




lEOO 


62 


* 




= # OF FLOPPY DRIVES ! 


CONTAINED IN THIS LISTING 


lEOO 


63 


* 




= INTERPRETER PATHNAME ! 




lEOO 


64 


* 




= DRIVER PATHNAME ! 




lEOO 


65 


* 








lEOO 


66 


* 


(4) 


ADR & COUNT ! 




lEOO 


67 


* 




SOSLDR CODE < 1- 




lEOO 


68 


* 








lEOO 


69 


* 


(4) 


ADR & COUNT 




lEOO 


70 


* 




GLOBALS 




lEOO 


71 


* 








lEOO 


72 


* 


(4) 


ADR & COUNT 




lEOO 


73 


* 




KERNEL CODE 




lEOO 


74 


* 








lEOO 


75 










*********************** 


* * 


* * * * 


********************************** 


************************************* 


lEOO 


76 


* 








lEOO 


77 


* 


SOS . 


INTERP FILE FORMAT 




lEOO 


78 


* 








lEOO 


79 


* 




T aRPT 

J_irt.J3Ili i_i 




lEOO 


80 


* 




= "SOS NTRP" 




lEOO 


81 


* 








lEOO 


82 


* 


(2) 


HEADER COUNT 




lEOO 


83 


* 








lEOO 


84 


* 


(4) 


ADR S COUNT 




lEOO 


85 


* 




INTERPRETER CODE 




lEOO 


86 


* 








lEOO 


87 










*********************** 


* * 


* * * * 


********************************** 


************************************* 


lEOO 


88 


* 








lEOO 


89 


* 


SOS . 


DRIVER FILE FORMAT 




lEOO 


90 


* 








lEOO 


91 


* 


(8) 


LABEL 




lEOO 


92 


* 




= "SOS DRVR" 




lEOO 


93 


* 








lEOO 


94 


* 


(2) 


HEADER COUNT 




lEOO 


95 


* 




= # OF FLOPPY DRIVES 




lEOO 


95 


* 




= CHARACTER SET TABLE 




lEOO 


97 


* 




= KEYBOARD TABLE 




lEOO 


98 


* 








lEOO 


99 


* 






+ 



lEOO: 
lEOO: 



lEOO: 
POINTERS 
lEOO: 
TWO ! 
lEOO: 

lEOO: 



lEOO 
lEOO 
lEOO 



100 

101 

102 

103 

104 

105 

106 
107 
108 



(2) DM #N TITLE COUNT 
TITLE FIELD 

(2) DM #N CODE COUNT 
CODE FIELD 

(2) DM #N RELOC COUNT 
RELOC FIELD 

$FFFF = THE END 



! DRIVER MODULE #N 



! RELOCATION FIELD FORMAT 
I 

! CONSISTS OF A LIST OF 2 BYTE 

! WHICH POINT TO THE LOW BYTE OF A 

! BYTE QUANTITY TO BE RELOCATED. 
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lEOO: 109 
lEOO: 110 
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lEOO: 112 

**************************************************************************************************** 



lEOO 




113 


* 








lEOO 




114 


* SOSLDR 


- EXTERNAL DECLARATIONS 




lEOO 




115 


* 








lEOO 




116 










****************** 


* * * * * 


********* 


*******j 


t************************************************************ 


lEOO 


0000 


117 




EXTRN 


SYSBANK 




lEOO 


0000 


118 




EXTRN 


MEMSIZE 




lEOO 


0000 


119 




EXTRN 


SCRNMODE 




lEOO 


0000 


120 




EXTRN 


SOSVER 




lEOO 


0000 


121 




EXTRN 


SOSVERL 




lEOO 




122 










lEOO 


0000 


123 




EXTRN 


INT . INIT 


(IPL) INTERRUPT INIT 


lEOG 


0000 


124 




EXTRN 


EVQ. INIT 


(IPL) EVENT QUEUE INIT 


lEOO 


0000 


125 




EXTRN 


DMGR. INIT 


DEVICE MANAGER INIT 


lEOO 


0000 


125 




EXTRN 


MAX . DNUM 


n 


lEOO 


0000 


127 




EXTRN 


SDT.SIZE 




lEOO 


0000 


128 




EXTRN 


SDT.DIBL 




lEOO 


0000 


129 




EXTRN 


SDT.DIBH 




lEOO 


0000 


130 




EXTRN 


SDT . ADRL 




lEOO 


0000 


131 




EXTRN 


SDT . ADRH 




lEOO 


0000 


132 




EXTRN 


SDT. BANK 




lEOO 


0000 


133 




EXTRN 


SDT. UNIT 




lEOO 


0000 


134 




EXTRN 


BLKD.SIZE 




lEOO 


0000 


135 




EXTRN 


BLKDLST 




lEOO 


0000 


136 




EXTRN 


CFMGR. INIT 


CHAR FILE MANAGER INIT 


lEOO 


0000 


137 




EXTRN 


MMGR. INIT 


MEMORY MANAGER INIT 


lEOO 


0000 


138 




EXTRN 


BMGR. INIT 


BUFFER FILE MANAGER INIT 


lEOO 


0000 


139 




EXTRN 


BFM. INIT 


BLOCK FILE MANAGER INIT 


lEOO 


0000 


140 




EXTRN 


BFM. INIT2 


BLOCK FILE MANAGER INIT2 


lEOO 


0000 


141 




EXTRN 


CLK. INIT 


CLOCK SYSTEM CALL INIT 


lEOO 




142 


* 








lEOO 


0000 


143 




EXTRN 


DIBl 


ON BOARD DISK DRIVER'S DIBS (1-4) 


lEOO 


0000 


144 




EXTRN 


DIB2 




lEOO 


0000 


145 




EXTRN 


DIBS 




lEOO 


0000 


146 




EXTRN 


DIB4 




lEOO 




147 










lEOO 




148 


*ENTRY I . 


BASE . P 


USED BY BFM.INIT2 (HARDWIRED!) 
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lEOO 








150 






******** 


* * * 


******* 


* * * * 


************************************************************** 


**************** 


lEOO 








151 


* 




lEOO 








152 


* FILE DATA DECLARATIONS 




lEOO 








153 


* 




lEOO 








154 






******** 


* * * 


******* 


* * * * 


************************************************************** 


**************** 


lEOO 








155 


* KERNEL FILE 




lEOO 








156 






******** 


*** 


******* 


**** 


************************************************************** 


**************** 


lEOO 


53 


4F 


53 20 


157 


K.FILE ASC "SOS KRNL" 




1E08 


62 


00 




158 


K.HDR.CNT DW LDR.ADR-K. DRIVES 




lEOA 


01 






159 


K. DRIVES DFB $1 




lEOB 


00 






160 


K. FLAGS DFB $0 ; RESERVED FOR FUTURE USE 




lEOC 


OE 






161 






lEOD 


2E 


44 


31 2F 


162 


ASC " . Dl/SOS . INTERP" 




lElB 






0021 


163 


DS $30-$F 




1E3C 


OE 






164 


D.PATH DFB $E 




1E3D 


2E 


44 


31 2F 


165 


ASC " .Dl/SOS .DRIVER" 




1E4B 






0021 


166 


DS $30-$F 




1E6C 


00 


00 




167 


LDR.ADR DW $0 




1E6E 


88 


OC 




168 


LDR.CNT DW ZZEND-SOSLDR 




1E70 








169 








* * * 


******* 




************************************************************** 


**************** 


1E70 








170 


* INTERPRETER/DRIVER FILES < — + 




1E70 








171 


* ERROR MESSAGES ! DEFINED IN BACK OF THIS 


LISTING 


1E70 








172 


* WELCOME MESSAGES < — + 




1E70 








173 






******** 


* * * 


******* 


* * * * 


************************************************************** 


**************** 
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1E70: 



175 



176 * 

177 * SOSLDR 

178 * 
179 



DATA DECLARATIONS (1) 



0080 
0000 

FFDO 
FFDF 
FFEF 

lAOO 
IBOO 
1600 
1800 
1400 
0100 

F1B9 
00 AO 



180 
181 
182 
183 

184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 



TRUE 

FALSE 

* 

Z .REG 
E.REG 
B.REG 

CZPAGE 
CSPAGE 
GXP AGE 
SZPAGE 
SXPAGE 
SSPAGE 

ROM. ADR 
ROM. ID 



EQU 
EQU 

EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



$80 
$0 

$FFDO 
$FFDF 
$FFEF 

$1A00 
$1B00 
$1600 
$1800 
$1400 
$0100 

$F1B9 
$A0 
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1E70 




197 








****************** 


* * * * 


*********** 


****** 


********** 


1E70 




198 


* 






1E70 




199 


* SOSLDR - 


DATA 


DECLARATIO 


1E70 




200 


* 






1E70 




201 








****************** 


* * * * 


*********** 


****** 


********** 


1E70 


0000 


202 


ZPAGE 


EQU 


$00 


1E70 




203 


* 






1E70 


0000 


204 


K.BASE 


EQU 


ZPAGE+$0 


1E70 


0002 


205 


I .BASE . P 


EQU 


ZPAGE+$2 


1E70 


0004 


206 


RDBUF.P 


EQU 


ZPAGE+$4 


1E70 


0006 


207 


SYSBUF . P 


EQU 


ZPAGE+$6 


1E70 


0008 


208 


TEMP . BANK 


EQU 


ZPAGE+$8 


1E70 


0009 


209 


TEMP . ADRH 


EQU 


ZPAGE+$9 


1E70 


OOOA 


210 


WORK . P 


EQU 


ZPAGE+$A 


1E70 




211 


* 






1E70 


OOOC 


212 


REV . SAVE 


EQU 


ZPAGE+$C 


1E70 




213 


* 






1E70 


0010 


214 


FIRST .ADIB 


EQU 


ZPAGE+$10 


1E70 


0012 


215 


PREV.ADIB. 


P EQU 


ZPAGE+$12 


1E70 


0014 


216 


DIB . P 


EQU 


ZPAGE+S14 


1E70 


0016 


217 


PG. ALIGN 


EQU 


ZPAGE+$16 


1E70 


0014 


218 


DIB . FLAGS 


EQU 


$14 


1E70 


0020 


219 


DIB.DCB 


EQU 


$20 


1E70 




220 


* 






1E70 


0018 


221 


PREVBANK 


EQU 


ZPAGE+$18 


1E70 


0019 


222 


PREVDST 


EQU 


ZPAGE+$19 


1E70 




223 








1E70 


OOlC 


224 


CODE.P 


EQU 


ZPAGE+$1C 


1E70 


OOIE 


225 


REL.P 


EQU 


ZPAGE+$1E 


1E70 


0020 


226 


RE L. END 


EQU 


ZPAGE+$2 


1E70 




227 


* 






1E70 


0022 


228 


SRC.P 


EQU 


ZPAGE+$22 


1E70 


0024 


229 


DST.P 


EQU 


ZPAGE+$24 


1E70 


0026 


230 


CNT 


EQU 


ZPAGE+$26 


1E70 




231 








1E70 


002A 


232 


DSTBANK 


EQU 


ZPAGE+$2A 


1E70 


002C 


233 


LINK . P 


EQU 


ZPAGE+$2C 


1E70 




234 








1E70 


0002 


235 


DIB. ENTRY 


EQU 


2 


1E70 


0016 


235 


DIB. UNIT 


EQU 


4+16+2 


1E70 


0017 


237 


DIB.DTYPE 


EQU 


4+16+3 


1E70 




238 


* 






1E70 


002E 


239 


ETEMP 


EQU 


ZPAGE+$2E 


1E70 




240 


* 






1E70 


002F 


241 


WTEMP 


EQU 


ZPAGE+$2F 


1E70 




242 




CHN 


SOSLDR. D. 



******************************************* 
******************************************* 

; SOSLDRl SUBROUTINE + 

; ! <VARNAME>.P ::= 3 BYTE ZPAGE POINTER 



; REVERSE SUBROUTINE 

; FLAGS SUBROUTINE 

; GETMEM SUBROUTINE 

; RELOCATION SUBROUTINE 

; MOVE SUBROUTINE 

; LINK SUBROUTINE 

; ALLOC. DEV SUBROUTINE 

; ERROR SUBROUTINE 

; WELCOME SUBROUTINE 
; IBITROT 
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1E70: 
* * * * * 

1E70 
1E70 
1E70 
1E70 
1E70 



2 

ft * * * # 
3 
4 
5 
5 
7 



***************************************************************************** 



* SOS LOADER - 
* 

* (MAIN PROGRAM) 



***************************************************************************** 



1E70 






1E70 


8 


SOSLDR 


EQU 




. + 


1E70 


A9 


00 




9 




LDA 


#0 


; ZERO SOS/USER X, Z AND STACK PAGES ! SEE 


1E72 


AA 






10 




TAX 




. 4- 


1E73 


9D 


00 


lA 


11 


SLDROlO 


STA 


CZPAGE, X 




1E76 


9D 


00 


1 6 


12 




STA 


GXP AGE, X 




1E79 


9D 


00 


IB 


13 




STA 


CSPAGE, X 




1E7C 


9D 


00 


18 


14 




STA 


SZPAGE, X 




1E7F 


9D 


00 


14 


15 




STA 


SXPAGE, X 




1E82 


9D 


00 


01 


15 




STA 


SSPAGE, X 




1E85 


CA 






17 




DEX 






1E86 


DO 


EB 


1E73 


18 




BNE 


SLDROlO 




1E88 








19 


* 






; SETUP SOS CALL ENVIRONMENT (WRITE PROTECT 


1E88 


A9 


30 




20 




LDA 


#$30 


; E:=( 0.0.1.1:0.0.0.0 ) 


1E8A 


8D 


DF 


FF 


21 




STA 


E.REG 


; ( l.I.S.R:W.P.R.R ) 


1E8D 








22 


* 








1E8D 


A2 


FB 




23 




LDX 


#$FB 


• CONSOLE 1.0 MODIFIES STACK DURING D.INIT CALL 


1E8F 


9A 






24 




TXS 






1E90 


A9 


lA 




25 




LDA 


#<CZPAGE 


; ZREG:=CALLER' S Z PAGE 


1E92 


8D 


DO 


FF 


25 




STA 


Z.REG 




1E95 








27 


* 






. 4 + 


1E95 


20 


D4 


IF 


28 




JSR 


SOSLDRl 


; ! PROCESS KRNL/INTERP/DRVR FILES ! 


1E98 








29 


* 






; + + 


1E98 


AD 


DF 


FF 


30 




LDA 


E . REG 




1E9B 


29 


10 




31 




AND 


#$10 


; SETUP SOS CALL ENVIRONMENT (WRITE PROTECT=0N) 


1E9D 


09 


28 




32 




ORA 


#$28 


; E:=( O.O.l.X:!. 0.0.0 ) 


1E9F 


8D 


DF 


FF 


33 




STA 


E.REG 


; ( 1 . I .S.R:W.P.R.R ) 


1EA2 








34 


* 








1EA2 


A2 


FF 




35 




LDX 


#$FF 


; STACK. REG :=SFF 


1EA4 


9A 






36 




TXS 






1EA5 


A9 


lA 




37 




LDA 


#<CZPAGE 


; ZREG:=CALLER'S Z PAGE 


1EA7 


8D 


DO 


FF 


38 




STA 


Z.REG 




lEAA 








39 


* 








-+ 


















lEAA 


AD 


00 


00 


40 




LDA 


SYSBANK 


; BREG:=SYSBANK ! SEE 


IE AD 


8D 


EF 


FF 


41 




STA 


B.REG 


. + 


lEBO 


5C 


02 


00 


42 




JMP 


(I. BASE. P) 


; SOS LOAD COMPLETE - JMP TO INTERPRETER 


1EB3 








43 


* 








1EB3 








44 


*THE END. 








1EB3 








45 
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1EB3: 



****************************************************************************** 



1EB3 








48 


* 










1EB3 








49 


* MOVE ( 


IN : 


SRC . P 






1EB3 








50 


* 


IN : 


DST . P 






1EB3 








51 


* 


IN: 


A= " BANK " 






1EB3 








52 


* 


IN: 


CNT ) 






1EB3 








53 


* 










1EB3 








54 


* 


LOCAL : 


END 






1EB3 








55 


* {MOVES 


SRC . P . 


.SRC.P+CNT-1 


TO DST 


P. .DST.P+CNT-1) 


1EB3 








56 












******* 


*r * * * 


******* 


* * * * 


********** 


****** 


************ 


*************************************** 


1EB3 






1EB3 


57 


MOVE 


EQU 








1EB3 


AA 






58 




TAX 








1EB4 


AD 


EF 


FF 


59 




LDA 


B.REG 




SAVE BANK REGISTER 


1EB7 


48 






60 




PHA 








1EB8 


8E 


EF 


FF 


61 




STX 


B.REG 




BREG : =A 


lEBB 


A5 


27 




62 




LDA 


CNT+1 




IF CNT <> 


lEBD 


05 


26 




63 




ORA 


CNT 




THEN 


lEBF 


FO 


33 


1EF4 


64 




BEQ 


MOVE. EXIT 






lECl 


A5 


26 




65 




LDA 


CNT 




CNT:=CNT-1 


1EC3 


DO 


02 


1EC7 


66 




BNE 


MOVE 010 






1EC5 


C6 


27 




67 




DEC 


CNT+1 






1EC7 


C6 


26 




68 


MOVEOlO 


DEC 


CNT 






1EC9 


18 






69 




CLC 






SRC . P : =SRC . P+PAGE . CNT 


lECA 


A5 


23 




70 




LDA 


SRC.P+1 






lECC 


65 


27 




71 




ADC 


CNT+1 






lECE 


85 


23 




72 




STA 


SRC . P+1 






lEDO 


A5 


25 




73 




LDA 


DST . P+1 




DST . P : =DST . P+PAGE . CNT 


1ED2 


65 


27 




74 




ADC 


CNT + 1 






1ED4 


85 


25 




75 




STA 


DST . P+1 






1ED6 


E6 


27 




76 




INC 


CNT+1 




PAGE . CNT : =PAGE . CNT+1 


1ED8 


A4 


26 




77 




LDY 


CNT 




Y : =BYTE . CNT 


lEDA 


FO 


07 


1EE3 


78 




BEQ 


MOVE020 




IF Y=0 THEN M2 


lEDC 








79 


* 










lEDC 


Bl 


22 




80 


MOVE . PAGE 


LDA 


(SRC .P) , Y 




Ml : DO 


lEDE 


91 


24 




81 




STA 


(DST .P) , Y 




(DST.P) , Y:=(SRC.P) ,Y 


lEEO 


88 






82 




DEY 






Y:=Y-1 


lEEl 


DO 


F9 


lEDC 


83 




BNE 


MOVE . PAGE 




UNTIL Y=0 


1EE3 


Bl 


22 




84 


MOVE020 


LDA 


(SRC .P) , Y 




M2: (DST.P) ,Y:=(SRC.P) ,Y 


1EE5 


91 


24 




85 




STA 


(DST .P) , Y 






1EE7 


88 






86 




DEY 






Y:=Y-1 


1EE8 


C6 


23 




87 




DEC 


SRC.P+1 




SRC.P:=SRC.P-256 


lEEA 


C6 


25 




88 




DEC 


DST. P+1 




DST.P:=DST.P-256 


lEEC 


C6 


27 




89 




DEC 


CNT+1 




PAGE . CNT : =P AGE . CNT- 1 


IEEE 


DO 


EC 


lEDC 


90 




BNE 


MOVE . PAGE 




IF PAGE. CNT <> THEN Ml 


lEFO 








91 


* 










lEFO 


E6 


23 




92 




INC 


SRC.P+1 




RESTORE SRC.P 


1EF2 


E6 


25 




93 




INC 


DST. P+1 




" DST.P 


1EF4 








94 


* 










1EF4 


68 






95 


MOVE. EXIT 


PLA 






RESTORE BANK REGISTER 


1EF5 


8D 


EF 


FF 


96 




STA 


B.REG 






1EF8 


60 






97 




RTS 









"CNT PARM IS DESTROYED" 
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1EF9: 99 

**************************************************************************************************** 



1EF9 










100 


* 










1EF9 










101 


* LINK ( 


IN: 


DST.P 






1EF9 










102 




IN: 


DSTBANK 






1EF9 










103 




IN: 


PREVBANK 






1EF9 










104 


* 


IN: 


FIRST .ADIB 






1EF9 










105 


* 


I/O: 


SDT.TBL 






1EF9 










106 


* 


I/O: 


BLKDLST 






1EF9 










107 


* 


OUT: 


LINKED DRIVER MODULE ) 


1EF9 










108 


* 










1EF9 










109 


* 


OWN: 


LINK.P 






1EF9 










110 


* (LINKS 


FIRST 


DIB TO PREVIOUS 


DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY) 


1EF9 










111 












******* 


* * * * 


** 


***** 




^, ^, -1, ^, -1, ^, ^, -1, 


**************** 


* * * * * 


*********************************************** 


1EF9 








1EF9 


112 


LINK 


EQU 








1EF9 


18 








113 




CLC 






; FIRST .ADIB: =0 :DST .P+F IRST .ADIB 


lEFA 


A5 


24 






114 




LDA 


DST.P 






lEFC 


55 


10 






115 




ADC 


FIRST. AD 


IB 




lEFE 


85 


10 






116 




STA 


FIRST. AD 


IB 




IFOO 


A5 


25 






117 




LDA 


DST.P+1 






1F02 


65 


11 






118 




ADC 


FIRST .AD 


IB+1 




1F04 


85 


11 






119 




STA 


FIRST .AD 


IB+1 




1F06 


A9 


00 






120 




LDA 


#0 






1F08 


8D 


11 


16 




121 




STA 


CXPAGE+F 


IRST. 


ADIB+1 


IFOB 


A5 


18 






122 




LDA 


PREVBANK 




; BREG:=PREVBANK 


IFOD 


8D 


EF 


FF 




123 




STA 


B.REG 






IFIO 


AO 


00 






124 




LDY 


#0 




; (LINK.P) :=FIRST. ADIB 


1F12 


A5 


10 






125 




LDA 


FIRST .AD 


IB 




1F14 


91 


2C 






126 




STA 


(LINK.P) 


, Y 




1F16 


C8 








127 




INY 








1F17 


A5 


11 






128 




LDA 


FIRST .AD 


IB+1 




1F19 


91 


2C 






129 




STA 


(LINK.P) 


, Y 




IFIB 


A5 


2A 






130 




LDA 


DSTBANK 




; BREG:=DSTBANK 


IFID 


8D 


EF 


FF 




131 




STA 


B.REG 






1F20 


A5 


10 






132 




LDA 


FIRST. AD 


IB 


; LINK. P:=FIRST. ADIB 


1F22 


85 


2C 






133 




STA 


LINK.P 






1F24 


A5 


11 






134 




LDA 


FIRST .AD 


IB+1 




1F26 


85 


2D 






135 




STA 


LINK.P+1 






1F28 


20 


79 


IF 




136 


WALKLINKS 


JSR 


ALLOC. DEV 


; ALLOC. DEV (LINK.P BREG.IN, SDT.TBL BLKDLST. 10) 


1F2B 


AO 


00 






137 


LINKOlO 


LDY 


#0 




; WHILE (LINK.P) <> AND (LINK.P) <> LINK.P 


1F2D 


Bl 


2C 






138 




LDA 


(LINK.P) 


, Y 




1F2F 


C8 








139 




INY 








1F30 


11 


2C 






140 




ORA 


(LINK.P) 


, Y 




1F32 


FO 


IF 




1F53 


141 




BEQ 


LINKIOO 






1F34 


Bl 


2C 






142 




LDA 


(LINK.P) 


, Y 




1F36 


C5 


2D 






143 




CMP 


LINK.P+1 






1F38 


DO 


07 




1F41 


144 




BNE 


LINK030 






1F3A 


88 








145 




DEY 








1F3B 


Bl 


2C 






146 




LDA 


(LINK.P) 


, Y 




1F3D 


C5 


2C 






147 




CMP 


LINK.P 






1F3F 


FO 


12 




1F53 


148 




BEQ 


LINKIOO 






1F41 


AO 


00 






149 


LINK030 


LDY 


#0 




; DO LINK.P := (LINK.P) 


1F43 


Bl 


2C 






150 




LDA 


(LINK.P) 


, Y 




1F45 


AA 








151 




TAX 








1F46 


C8 








152 




INY 








1F47 


Bl 


2C 






153 




LDA 


(LINK.P) 


, Y 




1F49 


86 


2C 






154 




STX 


LINK.P 
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1F4B ; 


; 85 


2D 




155 




STA 


LINK.P+1 




1F4D ; 


; 20 


79 


IF 


156 




JSR 


ALLOC . DEV 


; " ALLOC. DEV (LINF 


1F50 ; 


: 4C 


2B 


IF 


157 




JMP 


LINKOlO 




1F53 ; 








158 










1F53 ; 


: AO 


00 




159 


LINKIOO 


LDY 


#0 


; (LINK.P) :=0 


1F55 ; 


: 98 






160 




TYA 






1F56 ; 


; 91 


2C 




161 




STA 


(LINK . P ) , Y 




1F58 ; 


; C8 






162 




INY 






1F59 ; 


; 91 


2C 




163 




STA 


(LINK. P) , Y 




1F5B ; 


; 88 






164 




DEY 




; BREG:=0 


1F5C ; 


; 8C 


EF 


FF 


165 




STY 


B.REG 




1F5F: 


: 60 






166 




RTS 






1F50 : 








1 67 










1F60 : 








168 










1F60 : 








169 










1F50 ; 








170 










1F60 ; 








171 


* LINK.INIT ( IN: 


A=# DRIVES 




1F60 ; 








172 


* 


IN: 


DIBl . . 4 




1F60 ; 








173 


* 


I/O: SDT.TBL 




1F60 ; 








174 


* 


I/O: BLKDLST ) 




1F60 ; 








175 


* 








1F60 ; 






1F60 


176 


LINK. INIT 


EQU 






1F60 ; 


: 20 


32 


22 


177 




JSR 


SET. DRIVES 


; SET . DRIVES (A^#DRIVES . 


1F63; 


:A9 


00 




178 




LDA 


#0 




1F65: 


:8D 


00 


00 


179 




STA 


MAX . DNUM 


; MAXDNUM:=0 


1F68; 


:8D 


00 


00 


180 




STA 


BLKDLST 


; BLKDLST :=0 


1F5B; 


;8D 


2D 


16 


181 




STA 


CXPAGE+LINK.P+1 


; LINK.P:=0:DIB1 


1F6E; 


:A9 


00 




182 




LDA 


#>DIB1 




1F70; 


:85 


2C 




183 




STA 


LINK.P 




1F72 : 


:A9 


00 




184 




LDA 


#<DIB1 




1F74 ; 


:85 


2D 




185 




STA 


LINK.P+1 




1F76; 


;4C 


28 


IF 


186 




JMP 


WALKLINKS 
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1F79: 188 

**************************************************************************************************** 

1F79: 

1F79: 190 * ALLOC. DEV ( IN: LINK.P 

1F79: 191 * IN: B.REG 

1F79: 192 * I/O: SDT.TBL 

TABLE) 

1F79: 193 * IN: 

1F79: 194 * IN: 

UNIT 
1F79: 



1F79: 
1F79: 
1F79: 
1F79: 

1F79: 

1F79 
1F79 
1F79 
1F79 
1F79 



189 
190 
191 
192 

193 
194 

195 

195 

197 

198 

199 

200 

201 
202 
203 
204 
205 



IN: 
IN: 

I/O 
OUT 
OUT 

OUT 



SDT.SIZE 
DIB. ENTRY 



DIB. UNIT 



CONSTANT 
CONSTANT 



CONSTANT 



(SYSTEM DEVICE 



ADR BANK 



DIB.DTYPE = CONSTANT 

MAX . DNUM 

SDT . BANK 

SDT.DIB 

SDT .ADR 



OUT: SDT. UNIT 
I/O: BLKDLST 

IN: BLKD.SIZE = CONSTANT 
(ADDS A NEW ENTRY TO THE DEVICE MANAGER'S SYSTEM DEVICE TABLE 



(SDT) ) 













* * * * 


*********** 


* * * * * 




********************************************** 


1F79 








1F7 9 


2 6 


ALLOC . DEV 


EQU 






1F79 


EE 


00 


00 




207 




INC 


MAX . DNUM 


; MAX . DNUM : =MAX . DNUM+ 1 


1F7C 


AE 


00 


00 




208 




LDX 


MAX . DNUM 


; IF MAX. DNUM >= SDT.SIZE 


1F7F 


EO 


00 






209 




CPX 


#>SDT.SIZE 


; THEN 


1F81 


90 


07 




1F8A 


210 




BCC 


ADEVOlO 




1F83 


A2 


C4 






211 




LDX 


#ERR8X 


; ERROR ("TOO MANY DEVICES") 


1F85 


AO 


10 






212 




LDY 


#ERR8L 




1F87 


20 


E2 


25 




213 




JSR 


ERROR 




1F8A 


AD 


EF 


FF 




214 


ADEVOlO 


LDA 


B.REG 


; SDT. BANK, X:=BREG 


1F8D 


9D 


00 


00 




215 




STA 


SDT. BANK, X 




1F90 


18 








216 




CLC 




; SDT.DIB,X:=LINK.P+4 


1F91 


A5 


2C 






217 




LDA 


LINK.P 




1F93 


69 


04 






218 




ADC 


#4 




1F95 


9D 


00 


00 




219 




STA 


SDT.DIBL,X 




1F98 


A5 


2D 






220 




LDA 


LINK.P+1 




1F9A 


69 


00 






221 




ADC 


#0 




1F9C 


9D 


00 


00 




222 




STA 


SDT.DIBH,X 




1F9F 


38 








223 




SEC 




; SDT.ADR,X:=(LINK.P) ,DIB.ENTRY-1 


IFAO 


AO 


02 






224 




LDY 


#DIB. ENTRY 




1FA2 


Bl 


2C 






225 




LDA 


(LINK.P) , Y 




1FA4 


E9 


01 






226 




SBC 


#1 




1FA6 


9D 


00 


00 




227 




STA 


SDT.ADRL,X 




1FA9 


C8 








228 




INY 






IFAA 


Bl 


2C 






229 




LDA 


(LINK.P) , Y 




IF AC 


E9 


00 






230 




SBC 


#0 




IFAE 


9D 


00 


00 




231 




STA 


SDT.ADRH,X 




IFBl 


AO 


16 






232 




LDY 


#DIB.UNIT 


; SDT.UNIT, X:= (LINK.P) ,DIB.UNIT 


1FB3 


Bl 


2C 






233 




LDA 


(LINK.P) , Y 




1FB5 


9D 


00 


00 




234 




STA 


SDT. UNIT, X 




1FB8 


AO 


17 






235 




LDY 


#DIB.DTYPE 


; IF (LINK.P) , DIB.DTYPE = "BLOCK DEVICE" 


IFBA 


Bl 


2C 






235 




LDA 


(LINK.P) ,Y 




IFBC 


10 


15 




1FD3 


237 




BPL 


ADEV.EXIT 




IFBE 


8A 








238 




TXA 




; THEN 


IFBF 


EE 


00 


00 




239 




INC 


BLKDLST 


; BLKDLST :=BLKDLST+1 


1FC2 


AE 


00 


00 




240 




LDX 


BLKDLST 


; IF BLKDLST >= BLKD.SIZE 


1FC5 


EO 


00 






241 




CPX 


#>BLKD.SIZE 


; THEN 


1FC7 


90 


07 




IFDO 


242 




BCC 


ADEV02 




1FC9 


A2 


DA 






243 




LDX 


#ERR9X 


; ERROR ("TOO MANY BLOCK DEVICES 
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1FCB:A0 16 244 LDY #ERR9L 

1FCD:20 E2 25 245 JSR ERROR 

1FD0:9D 00 00 246 ADEV020 STA BLKDLST,X ; BLKDLST, X : =MAX . DNUM 

1FD3:60 247 ADEV.EXIT RTS ; RETURN 
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1FD4 








249 












******** 


* * * 


******* 


* * * * * 


**************** 


*********** 


* * 


****** 


****************************************** 


1FD4 








250 


* 










1FD4 








251 


* SOSLDRl 










1FD4 








252 












1FD4 








253 


* (PROCESSES KERNEL/INTERPRETER/DRIVER FILES) 


1FD4 








254 












******** 


* * * 


******* 


* * * * * 


**************** 


*********** 


* * 


****** 


****************************************** 


1FD4 






1FD4 


255 


SOSLDRl EQU 










1FD4 


A2 


IF 




256 


LDX 


#$1F 






COPY ROM'S DISK CORE ROUTINE ZPAGE VARS TO 


1FD6 


BD 


80 


03 


257 


LDROlO LDA 


$380, X 








1FD9 


9D 


00 


18 


258 


STA 


SZPAGE,X 








IFDC 


CA 






259 


DEX 










IFDD 


10 


F7 


1FD6 


260 


BPL 


LDROlO 








IFDF 








261 












******** 


*** 


******* 


* * * * * 


**************** 


*********** 


* * 


****** 


****************************************** 


IFDF 








262 


* PROCESS KERNEL 


FILE 








IFDF 








263 












******** 


* * * 


******* 


* * * * * 


**************** 


*********** 


* * 


****** 


****************************************** 


IFDF 








264 


* 










IFDF 








265 


* MOVE AND INITIALIZE SOS GLOBALS 




IFDF 








2 66 


* 










IFDF 


A9 


6C 




2 67 


LDA 


#>LDR. ADR 






WORK . P : =0 : LDR . ADR 


IFEl 


85 


OA 




2 68 


STA 


WORK.P 








1FE3 


A9 


IE 




2 69 


LDA 


#<LDR. ADR 








1FE5 


85 


OB 




270 


STA 


WORK.P+1 








1FE7 


20 


BA 


22 


271 


JSR 


ADVANCE 






ADVANCE (WORK.P . 10, SRC.P DST.P CNT.OUT) 


IFEA 








272 


* 










IFEA 


AD 


EE 


FF 


273 


LDA 


B.REG 






MOVE(SRC.P DST.P A=BREG CNT.IN) 


IFED 


20 


B3 


IE 


274 


JSR 


MOVE 








IFFO 








275 












IFFO 


AD 


EE 


FF 


276 


LDA 


B.REG 






SYSBANK : ^BREG 


1FF3 


29 


OF 




277 


AND 


#$0F 








1FF5 


8D 


00 


00 


278 


STA 


SYSBANK 








1FF8 


OA 






279 


ASL 


A 






MEMSIZ:=SYSBANK*2+4 "16K CHUNKS" 


1FF9 


18 






280 


CLC 










IFFA 


69 


04 




281 


ADC 


#4 








IFFC 


8D 


00 


00 


282 


STA 


MEMSIZE 






AND, MEMSIZE (SIZE IN 16K BYTE "CHUNKS") 


IFFF 








283 












IFFF 








284 


* MOVE KERNAL CODE 








IFFF 








285 












IFFF 


20 


BA 


22 


286 


JSR 


ADVANCE 






ADVANCE (WORK.P . 10, SRC.P DST.P CNT.OUT) 


2002 








287 


* 










2002 


A5 


24 




288 


LDA 


DST.P 






K.BASE:=DST.P 


2004 


85 


00 




289 


STA 


K.BASE 








2006 


A5 


25 




2 90 


LDA 


DST.P+1 








2008 


85 


01 




2 91 


STA 


K.BASE+1 








200A 


AD 


EF 


FF 


2 92 


LDA 


B.REG 






MOVE (SRC.P DST.P A=BREG CNT.IN) 


200D 


20 


B3 


IE 


2 93 


JSR 


MOVE 








2010 








2 94 












2010 








295 


* MOVE LOADER TO 


BANK AND 


SWITCH 


FROM SYSTEM BANK TO BANK 


2010 








296 


* 










2010 


A9 


00 




297 


LDA 


#>$2000 






MOVE (SRC. P=0 : 2000 DST . P=8F : 2000 A=BREG CNT 


2012 


85 


22 




298 


STA 


SRC.P 








2014 


85 


24 




299 


STA 


DST.P 








2016 


A9 


20 




300 


LDA 


#<$2000 








2018 


85 


23 




301 


STA 


SRC.P+1 








201A 


85 


25 




302 


STA 


DST.P+1 








201C 


A9 


8F 




303 


LDA 


#$8F 








201E 


8D 


25 


16 


304 


STA 


CXPAGE+DST 


.P 


+ 1 
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2021 


A9 


F8 




305 








LDA 


#>LDREND-$2000 




2023 


85 


26 




306 








STA 


CNT 




2025 


A9 


OA 




307 








LDA 


#<LDREND-$2000 




2027 


85 


27 




308 








STA 


CNT+1 




2029 


AD 


EF 


FF 


309 








LDA 


B.REG 




202C 


20 


B3 


IE 


310 








JSR 


MOVE 




202F 


A9 


00 




311 








LDA 


#0 


; BREG : =0 


2031 


8D 


EF 


FF 


312 








STA 


B.REG 




2034 








313 


* 












2034 








314 


* 


INITIALIZE SDT 


TABLE, KERNEL AND 


PRINT WELCOME MESSAGE 


2034 








315 


* 












2034 


AD 


OA 


IE 


316 








LDA 


K. DRIVES 


; LINK. INIT (A=K. DRIVES DIB1..4.IN, SDT.TBL BLKDLST.IO) 


2037 


20 


60 


IF 


317 








JSR 


LINK. INIT 




203A 


20 


7B 


22 


318 








JSR 


INIT.KRNL 


; INIT.KRNL 


203D 


20 


Fl 


26 


319 








JSR 


WELCOME 


; WELCOME ( ) 


2040 








320 


* 












2040 


AD 


DF 


FF 


321 








LDA 


E.REG 


; ENABLE ROM BANK 


2043 


09 


03 




322 








ORA 


#$03 




2045 


8D 


DF 


FF 


323 








STA 


E.REG 




2048 


AD 


B9 


Fl 


324 








LDA 


ROM . ADR 


; IF MONITOR ROM <> NEW 


204B 


C9 


AO 




325 








CMP 


#ROM . ID 


THEN 


204D 


FO 


07 


2056 


326 








BEQ 


LDR020 




204F 


A2 


B4 




327 








LDX 


#ERR7X 


; ERROR ("ROM ERROR: PLEASE NOTIFY YOUR DEALER") 


2051 


AO 


25 




32 8 








LDY 


#ERR7L 




2053 


20 


E2 


25 


329 








JSR 


ERROR 




2055 


AD 


DF 


FF 


330 


LDR020 




LDA 


E.REG 


; DISABLE ROM BANK 


2059 


29 


F6 




331 








AND 


#$F5 




205B 


8D 


DF 


FF 


332 








STA 


E.REG 




205E 








333 
















* * * * 


******* 






****** 


* * * 


****** 


****************** 


******************************************* 


205E 








334 




PROCESS 


INTERPRETER FILE 




205E 








335 














******* 


* * * * 


******* 


* * * * * 


* 


****** 


* * * 


****** 


****************** 


******************************************* 


205E 








335 


* 












205E 








337 


* 


OPEN 


SOS 


INTERPRETER FILE (DEFAULT- ' SOS . INTERP ' ) 


205E 








338 


* 












205E 


AC 


OC 


IE 


339 








LDY 


I . PATH 


; OPEN (PATHNAME :=I .PATH 


2061 


B9 


OC 


IE 


340 


LDR030 




LDA 


I .PATH, Y 


; REFNUM=OPEN . REF 


2064 


99 


21 


28 


341 








STA 


PATH, Y 


; SYSBUF.P:=80:LDREND-2000 ) 


2067 


88 






342 








DEY 






2068 


10 


F7 


2061 


343 








BPL 


LDR030 




206A 








344 


* 












206A 


A9 


F8 




345 








LDA 


#>LDREND-$2000 




206C 


85 


05 




345 








STA 


SYSBUF.P 




206E 


A9 


OA 




347 








LDA 


#<LDREND-$2000 




2070 


85 


07 




348 








STA 


SYSBUF.P+1 




2072 


A9 


80 




349 








LDA 


#$80 




2074 


8D 


07 


16 


350 








STA 


CXPAGE+SYSBUF . P+1 




2077 








351 














2077 








352 














2077 


00 






353 








BRK 






2078 


C8 






354 








DFB 


OPEN 




2079 


16 


28 




355 








DW 


OPEN. FARMS 




207B 


FO 


07 


2084 


356 








BEQ 


LDR040 




207D 


A2 


22 




357 








LDX 


#ERR1X 


; ERROR ("INTERPRETER FILE NOT FOUND") 


207F 


AO 


lA 




358 








LDY 


#ERR1L 




2081 


20 


E2 


25 


359 








JSR 


ERROR 




2084 


AD 


19 


28 


360 


LDR040 




LDA 


OPEN.REF 
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2087 


8D 


72 


28 


361 




STA 


READ . REF 






208A 


8D 


7A 


28 


362 




STA 


CLOSE. REF 






208D 








363 


-I, 










208D 








364 


* READ 


IN ENTIRE 


INTERPRETER 


FILE 




208D 








365 












208D 


A9 


80 




366 




LDA 


#$80 




READ (REFNUM=READ . REF 


208F 


8D 


05 


16 


367 




STA 


CXPAGE+RDBUF 


.F + 1 


RDBUF . P : =80 : FILE 


2092 


A9 


F8 




368 




LDA 


#>FILE 




BYTES=$FFFF-FILE+1 


2094 


85 


04 




369 




STA 


RDBUF . P 




BYTESRD=I .BYTESRD ) 


2095 


A9 


OE 




370 




LDA 


#<FILE 






2098 


85 


05 




371 




STA 


RDBUF . P+1 






209A 








372 


* 










20 9A 


00 






373 




BRK 








209B 


CA 






374 




DFB 


READ 






209C 


71 


28 




3 '7 5 




DW 


READ . FARMS 






209E 


FO 


07 


2 0A7 


376 




BEQ 


LDR050 






20 AO 


A2 


08 




377 




LDX 


#ERROX 




ERROR ("I/O ERROR") 


20A2 


AO 


09 




378 




LDY 


#ERROL 






20A4 


20 


E2 


25 


37 9 




JSR 


ERROR 






20A7 








380 


* 










-+ 




















20A7 








381 


* CLOSE 


INTERPRETER FILE AND 


CHECK 


LABEL 


20A7 








382 


* 










— h 




















20A7 


00 






383 


LDR050 


BRK 






CLOSE (REFNUM=CLOSE.REF) 


2 OAS 


CC 






384 




DFB 


CLOSE 






20A9 


7 9 


28 




385 




DW 


CLOSE. FARMS 






2 0AB 


AO 


07 




386 




LDY 


#7 




CHECK LABEL 


2 GAD 


Bl 


04 




387 


LDR051 


LDA 


(RDBUF. F) , Y 






2 OAF 


D9 


61 


28 


388 




CMP 


I . LABEL, Y 






20B2 


DO 


05 


20B9 


389 




BNE 


LDR052 






20B4 


88 






390 




DEY 








20B5 


10 


F6 


20 AD 


391 




BPL 


LDR051 






20B7 


30 


07 


20C0 


392 




BMI 


LDR053 






20B9 


A2 


3A 




393 


LDR052 


LDX 


#ERR2X 




ERROR ("INVALID INTERPRETER FILE") 


20BB 


AO 


18 




394 




LDY 


#ERR2L 






20BD 


20 


E2 


25 


395 




JSR 


ERROR 






20C0 








396 


-1, 










20C0 








397 


* MOVE 


INTERPRETER CODE 






20C0 








398 


A 










20C0 


A9 


FE 




399 


LDR053 


LDA 


#>I .HDR.CNT- 


2 


WORK . P ; =8 : 1 . HDR . CNT-2 


20C2 


85 


OA 




400 




STA 


WORK . P 






20C4 


A9 


OE 




401 




LDA 


#<I .HDR.CNT- 


2 




20C6 


85 


OB 




402 




STA 


WORK.P+1 






20C8 


A9 


80 




403 




LDA 


#$80 






2 OCA 


8D 


OB 


16 


404 




STA 


CXPAGE+WORK. 


P+1 




20CD 








405 


* 










20CD 


20 


BA 


22 


406 




JSR 


ADVANCE 




ADVANCE (WORK. P . 10, SRC.P DST.P CNT 


20D0 








407 












20D0 


A5 


24 




408 




LDA 


DST.P 




I . BASE . P : =0 : DST . P 


20D2 


85 


02 




409 




STA 


I . BASE . P 






20D4 


A5 


25 




410 




LDA 


DST.P+1 






20D6 


85 


03 




411 




STA 


I .BASE. P+1 






20D8 


A9 


00 




412 




LDA 


#0 






20DA 


8D 


03 


16 


413 




STA 


CXPAGE+I. BASE. P+1 




20DD 








414 


A 










20DD 


18 






415 




CLC 






IF DST.P+CNT > K.BASE THEN ERROR 


20DE 


A5 


26 




416 




LDA 


CNT 







! SEE FIGURE 2. 
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20E0 


: 65 


24 




417 


20E2 


: AA 






418 


20E3 


: A5 


27 




419 


20E5 


: 65 


25 




420 


20E7 


:E4 


00 




421 


20E9 


: E5 


01 




422 


2 OEB 


: FO 


9 


2 OF 6 


423 


20ED 


: 90 


07 


20F6 


424 


20EF 


: A2 


52 




425 


2 OFl 


: AO 


1 8 




42 6 


20F3 


: 20 


E2 


25 


427 


20F6 








428 


20F6 


: AD 


00 


00 


429 


20F9 


: 20 


B3 


IE 


430 


20FC 








431 


* * * * 


**** 


*** 


******* 


* * * * 


20FC 








432 


20FC 








433 


* * * * 


* * * A 


* * * 


******* 


* * * * 


20FC 








434 


20FC 








435 


20FC 








436 


20FC 


; AC 


3C 


IE 


437 


20FF 


: B9 


3C 


IE 


438 


2102 


: 99 


21 


28 


439 


2105 


: 88 






440 


2106 


: 10 


F7 


20FF 


441 


2108 








442 


2108 


: GO 






443 


2109 


:C8 






444 


21 OA 


: 16 


28 




445 


210C 


:F0 


07 


2115 


446 


210E 


:A2 


67 




447 


2110 


:A0 


15 




448 


2112 


: 20 


E2 


25 


449 


2115 


: AD 


19 


28 


450 


2118 


: 8D 


72 


28 


451 


211B 


: 8D 


7A 


28 


452 


211E 








453 


211E 








454 


211E 








455 


211E 


: 00 






456 


211F 


:CA 






457 


2120 


:71 


28 




458 


2122 








459 


2122 


:F0 


07 


212B 


460 


2124 


: A2 


08 




4 61 


2126 


: AO 


09 




4 62 


2128 


: 20 


E2 


25 


463 


212B 








464 


-+ 










212B 








465 


212B 








466 


-+ 










212B 


:00 






467 


212C 


:CC 






468 


212D 


:79 


28 




469 


212F 


:A0 


07 




470 


2131 


:B1 


04 




471 


2133 


:D9 


69 


28 


472 



ADC 
TAX 
LDA 
ADC 
CPX 
SBC 
BEQ 
BCC 
LDX 
LDY 
JSR 

LDA 
JSR 



DST.P 

CNT+1 

DST.P+1 

K . BASE 

K.BASE+1 

LDR070 

LDR070 

#ERR3X 

#ERR3L 

ERROR 

SYSBANK 
MOVE 



ERROR ( " INCOMPATIBLE INTERPRETER" ) 



; MOVE (SRC. P=RDBUF.P DST.P A=SYSBANK CNT.IN) 



r***************************************************************************** 

* PROCESS DRIVER FILE 

r***************************************************************************** 
* 

* OPEN SOS DRIVER FILE (DEFAULT- ' SOS . DRIVER ' ) 



LDY 

LDR080 LDA 
STA 
DEY 
BPL 

BRK 

DFB 

DW 

BEQ 

LDX 

LDY 

JSR 

LDR0 90 LDA 
STA 
STA 



D.PATH 
D .PATH, Y 
PATH, Y 

LDR080 



OPEN 

OPEN. FARMS 
LDR090 
#ERR4X 
#ERR4L 
ERROR 
OPEN.REF 
READ . REF 
CLOSE. REF 



OPEN (PATHNAME : =D . PATH 
REFNUM=OPEN . REF 
SYSBUF.P:=80:LDREND-2000 



; ERROR ("DRIVER FILE NOT FOUND") 



READ IN ENTIRE DRIVER FILE INTO BANK 



BRK 

DFB READ 

DW READ . FARMS 

BEQ LDRIOO 

LDX #ERROX 

LDY #ERROL 

JSR ERROR 



READ (REFNUM=READ . REF 
RDBUF.P:=80:FILE 
BYTES=$FFFF-FILE+1 
; BYTESRD=D.BYTESRD ) 

ERROR ("I/O ERROR") 



465 * CLOSE THE DRIVER FILE AND CHECK LABEL 



SEE FIGURE 3. 



LDRIOO BRK 

DFB CLOSE 

DW CLOSE. PARMS 

LDY #$7 

LDRlOl LDA (RDBUF.P),Y 

CMP D. LABEL, Y 



CLOSE (REFNUM=CLOSE.REF) 



CHECK LABEL 
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2135 


:D0 


05 


213D 


473 




BNE 


LDR102 


2138 


: 88 






474 




DEY 




2139 


: 10 


F6 


2131 


475 




BPL 


LDRlOl 


213B 


: 30 


07 


2144 


476 




BMI 


LDR103 


213D 


: A2 


7A 




477 


LDR102 


LDX 


#ERR5X 


213F 


: AO 


13 




478 




LDY 


#ERR5L 


2141 


:20 


E2 


25 


479 




JSR 


ERROR 


2144 








480 


* 






2144 








481 


* MOVE 


CHARACTER 


. SET TABLE 


2144 








482 


* 






2144 


: A9 


14 




483 


LDR103 


LDA 


#>D . CHRSET 


2146 


: 85 


22 




484 




STA 


SRC.P 


2148 


: A9 


OF 




485 




LDA 


#<D . CHRSET 


214A 


: 85 


23 




486 




STA 


SRC . P+1 


214C 


: A9 


00 




487 




LDA 


#>$C00 


214E 


: 85 


24 




488 




STA 


DST.P 


2150 


: A9 


OC 




489 




LDA 


#<SC00 


2152 


: 85 


25 




490 




STA 


DST.P+1 


2154 


:A9 


00 




491 




LDA 


#>$400 


2155 


: 85 


25 




492 




STA 


CNT 


2158 


: A9 


04 




493 




LDA 


#<$400 


215A 


: 85 


27 




4 94 




STA 


CNT+1 


215C 


: A9 


00 




495 




LDA 


#0 


215E 


: 20 


B3 


IE 


4 96 




JSR 


MOVE 


2161 








4 97 








2161 








498 


* MOVE 


KEYBOARD 


TABLE 


2161 








499 


* 






2161 


: A9 


24 




500 




LDA 


#>D . KYBD 


2163 


: 85 


22 




501 




STA 


SRC . P 


2165 


: A9 


13 




502 




LDA 


#<D . KYBD 


2167 


: 85 


23 




503 




STA 


SRC . P+1 


2169 


: A9 


00 




504 




LDA 


#>$1700 


216B 


: 85 


24 




505 




STA 


DST.P 


216D 


:A9 


17 




505 




LDA 


#<$1700 


216F 


: 85 


25 




507 




STA 


DST.P+1 


2171 


: A9 


00 




508 




LDA 


#>$100 


2173 


: 85 


26 




509 




STA 


CNT 


2175 


: A9 


01 




510 




LDA 


#<$100 


2177 


: 85 


27 




511 




STA 


CNT+1 


2179 


: A9 


00 




512 




LDA 


#0 


217B 


: 20 


B3 


IE 


513 




JSR 


MOVE 


217E 








514 


* 






217E 








515 


* RE-INITIALIZE 


SDT TABLE 


217E 








515 


* 






217E 


: AO 


OA 




517 




LDY 


#>D . DRIVES-D .FILE 


2180 


:B1 


04 




518 




LDA 


(RDBUF .P) , Y 


2182 


:20 


60 


IF 


519 




JSR 


LINK. INIT 


2185 








520 








2185 


:A9 


00 




521 




LDA 


#0 


2187 


:8D 


25 


16 


522 




STA 


CXPAGE+DST.P+1 


218A 


:85 


24 




523 




STA 


DST.P 


218C 


:A5 


03 




524 




LDA 


I. BASE. P+1 


218E 


: 85 


25 




525 




STA 


DST.P+1 


2190 


:C9 


AG 




525 




CMP 


#$A0 


2192 


: 90 


04 


2198 


527 




BCC 


LDR105 


2194 


:A9 


AO 




528 




LDA 


#$A0 



ERROR ("INVALID DRIVER FILE") 



; MOVE (SRC. P=D. CHRSET DST.P=$C00 A=0 CNT=$400) 



; MOVE (SRC. P=D. KYBD DST.P=$1700 A=0 CNT=$100.IN) 



LINK. INIT (A=D. DRIVES DIB1..4.IN, SDT.TBL BLKDLST.IO) 



DST.P :=0 : I .BASE.P/256*255 



IF DST.P>=$A000 THEN DST.P:=$A000 
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2195 


85 


25 




529 




STA 


DST.P+1 






2198 


AD 


00 


00 


530 


LDR105 


LDA 


SYSBANK 


; DSTBANK :=SYSBANK 




219B 


85 


2A 




531 




STA 


DSTBANK 






219D 


20 


FE 


22 


532 




JSR 


REVERSE 


; REVERSE (D .HDR. CNT . IN, WORK. P. OUT) 




21 AO 








533 


* 










21 AO 








534 


* RELOCATE 


AND 


MOVE DRIVERS 






21 AO 








535 


* 










21 AO 


20 


7E 


23 


536 


NEXTDRIVER 


JSR 


DAD VANCE 


; "NO DRIVERS LEFT" : =DADVANCE (WORK. P . 10 SRC.P CNT 


REL .P .OUT) 


21 A3 


BO 


43 


21E8 


537 




BCS 


LDR140 






21A5 


20 


DB 


23 


538 




JSR 


FLAGS 


; "INACTIVE" ;=FLAGS (SRC .P . IN, PG. ALIGN FIRST. ADIB 


.OUT) 


21A8 


70 


F6 


21 AO 


539 




BVS 


NEXTDRIVER 






21AA 


20 


8C 


24 


540 




JSR 


GETMEM 


; GETMEM (PG. ALIGN CNT. IN, DST.P DSTBANK DSEGLIST. 


10, 


PREVBANK.OUT) 














2 IAD 


20 


19 


25 


541 




JSR 


RELOC 


; RELOC (SRC.P REL.P DST. P. IN) 




21B0 








542 












21B0 


A5 


2A 




543 




LDA 


DSTBANK 


; IF DSTBANK < OR DST.P < SRC.P THEN ERROR 




21B2 


30 


22 


21D6 


544 




BMI 


LDR120 






21B4 


AD 


23 


16 


545 




LDA 


CXPAGE+SRC.P+1 


; (CONVERT SRC.P TO BANK SWITCHED ADDRESS) 




21B7 


29 


7F 




546 




AND 


#$7F 






21B9 


85 


08 




547 




STA 


TEMP . BANK 






21BB 


A5 


23 




548 




LDA 


SRC . P+1 






21BD 


10 


2 


2 ICl 


549 




BPL 


LDRllO 






21BF 


E6 


08 




550 




INC 


TEMP . BANK 






21C1 


29 


7F 




551 


LDRllO 


AND 


#$7F 






21C3 


18 






552 




CLC 








21C4 


69 


20 




553 




ADC 


#<$2000 






21C6 


85 


09 




554 




STA 


TEMP . ADRH 






21C8 


A5 


24 




555 




LDA 


DST . P 


; (NOW COMPARE) 




21CA 


C5 


22 




556 




CMP 


SRC . P 






21CC 


A5 


25 




557 




LDA 


DST .P+1 






21CE 


E5 


09 




558 




SBC 


TEMP .ADRH 






21D0 


A5 


2A 




559 




LDA 


DSTBANK 






21D2 


E5 


08 




560 




SBC 


TEMP . BANK 






21D4 


BO 


07 


21DD 


561 




BCS 


LDR130 






21D6 


A2 


8F 




562 


LDR120 


LDX 


#ERR6X 


; ERROR { "DRIVER FILE TOO LARGE") 




21D8 


AO 


15 




563 




LDY 


#ERR6L 






21DA 


20 


E2 


25 


564 




JSR 


ERROR 






21DD 








5 65 












21DD 


A5 


2A 




566 


LDR130 


LDA 


DSTBANK 


; MOVE (SRC.P DST.P A=DSTBANK CNT. IN) 




21DF 


20 


B3 


IE 


567 




JSR 


MOVE 






21E2 


20 


F9 


IE 


568 




JSR 


LINK 


; LINK (DST.P DSTBANK PREVBANK FIRST .ADIB . IN, SDT . 


TBL BLKDLST 


21E5 


4C 


AO 


21 


569 




JMP 


NEXTDRIVER 






21E8 








570 












******* 


* * * * 


******* 


* * * * * 


********** 


* * * * * 


**************** 


********************************************** 





21E8: 

21E8: 



571 

572 



* SETUP USER ENVIRONMENT 



^***************************************************************************** 



21E8 








573 


* 






21E8 








574 


* RE-INITIALIZE 


KERNEL/DRIVERS, 


ALLOCATE SYSTEM SEGMENTS 


21E8 








575 


* 






21E8 


20 


7B 


22 


576 


LDR140 JSR 


INIT.KRNL 


; INIT.KRNL 


21EB 


20 


6A 


25 


577 


JSR 


ALLOC . SEG 


; ALLOC. SEG (K. BASE I. BASE. P SYSBANK. IN) 


21EE 


20 


CO 


25 


578 


JSR 


ALLOC. DSEG 


; ALLOC.DSEG (DSEGLIST. IN) 


21F1 








579 








21F1 








580 


* SET PREFIX TO 


THE BOOT VOLUME 




21F1 








581 








21F1 


A9 


00 




582 


LDA 


#0 


; TURN VIDEO OFF - PREVENTS CHAR "GROWTH" 


21F3 


8D 


00 


00 


583 


STA 


SCRNMODE 




21F6 


00 






584 


BRK 




; SET. PREFIX (PREFIXPATH=" .Dl") 
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21F7 


:C6 






585 




DFB 


SETPREFIX 




21F8 


: 8C 


28 




586 




DW 


PREFX . PARMS 




21FA 








587 


* 








21FA 








588 


* LAUNCH 


CHARACTER SET DOWNLOAD 


(CONSOLE) AND CLEAR SCREEN 


21FA 








589 










21FA 


: 58 






590 




CLI 




; BEGIN CHARACTER SET DOWNLOAD (CONSOLE) 


21FB 








591 










21FB 


: A9 


00 




592 




LDA 


#0 


; CLEAR TEXT SCREENS 


21FD 


: 8D 


23 


16 


593 




STA 


CXPAGE+SRC.P+1 




2200 


: 8D 


25 


16 


594 




STA 


CXPAGE+DST.P+1 




2203 


: A9 


04 




595 




LDA 


#$04 




2205 


: 85 


23 




596 




STA 


SRC.P+1 




2207 


: 85 


25 




597 




STA 


DST . P+1 




2209 


: A9 


00 




598 




LDA 


#S00 




220B 


: 85 


22 




599 




STA 


SRC.P 




220D 


: A9 


80 




600 




LDA 


#$80 




220F 


: 85 


24 




601 




STA 


DST.P 




2211 


: A9 


AO 




602 




LDA 


#$A0 




2213 


:A2 


08 




603 




LDX 


#8 




2215 


: AO 


77 




604 


CLEARO 


LDY 


#$77 




2217 


: 91 


22 




605 


CLEARl 


STA 


(SRC .P) , Y 




2219 


: 91 


24 




606 




STA 


(DST .P) , Y 




221B 


: 88 






607 




DEY 






221C 


: 10 


F9 


2217 


608 




BPL 


CLEARl 




221E 


:E6 


23 




609 




INC 


SRC . P+1 


; NEXT PAGE 


2220 


:E6 


25 




610 




INC 


DST . P+1 


; NEXT PAGE 


2222 


: CA 






611 




DEX 






2223 


: DO 


FO 


2215 


612 




BNE 


CLEARO 




2225 








613 










2225 


:E6 


22 




614 


WAIT 


INC 


SRC.P 


• WAIT FOR DOWNLOAD TO COMPLETE 


2227 


:D0 


FC 


2225 


615 




BNE 


WAIT 




2229 


:E8 






616 




I NX 






222A 


:D0 


F9 


2225 


617 




BNE 


WAIT 




222C 








618 


* 








222C 


:A9 


80 




619 




LDA 


#$80 


; TURN VIDEO ON 


222E 


:8D 


00 


00 


620 




STA 


SCRNMODE 




2231 


: 60 






621 




RTS 






2232 








622 


























2232 








623 




CHN 


SOSLDR.E.SRC 
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2232: 



3 * 

4 * SET. DRIVES ( IN: A=# DRIVES 

5 * IN: DIBl . . 4 ) 

5 * (INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER) 
7 



It******** 



2232 








8 


* 








2232 






2232 


9 


SET. DRIVES 


EQU 






2232 


A8 






10 




TAY 




; SAVE # OF DRIVES 


2233 


A9 


00 




11 




LDA 


#>DIB2 


; DIBl ;=ADR (DIB2) 


2235 


8D 


00 


00 


12 




STA 


DIBl 




2238 


A9 


00 




13 




LDA 


#<DIB2 




22 3A 


8D 


01 


00 


14 




STA 


DIBl+1 




223D 


A9 


00 




15 




LDA 


#>DIB3 


; DIB2 :=ADR(DIB3) 


223F 


8D 


00 


00 


16 




STA 


DIB2 




2242 


A9 


00 




17 




LDA 


#<DIB3 




2244 


8D 


01 


00 


18 




STA 


DIB2+1 




2247 


A9 


00 




19 




LDA 


#>DIB4 


; DIB3:=ADR(DIB4) 


2249 


8D 


00 


00 


20 




STA 


DIB3 




224C 


A9 


00 




21 




LDA 


#<DIB4 




224E 


8D 


01 


00 


22 




STA 


DIB3+1 




2251 








23 


* 








2251 


A9 


00 




24 




LDA 


#0 


; CASE (Y^# OF DRIVES) 


2253 


CO 


02 




25 




CPY 


#2 




2255 


90 


08 


225F 


26 




BCC 


STDROlO 




2257 


FO 


OD 


2266 


27 




BEQ 


STDR020 




2259 


CO 


04 




28 




CPY 


♦ 4 




225B 


90 


10 


226D 


29 




BCC 


STDR030 




225D 


BO 


15 


2274 


30 




BCS 


STDR040 




225F 








31 


* 








225F 


8D 


00 


00 


32 


STDROlO 


STA 


DIBl 


; 1: DIB1:=0 


2262 


8D 


01 


00 


33 




STA 


DIBl+1 




2265 


50 






34 




RTS 






2266 








35 


* 








2266 


8D 


00 


00 


36 


STDR020 


STA 


DIB2 


; 2: DIB2:=0 


2269 


8D 


01 


00 


37 




STA 


DIB2+1 




226C 


60 






38 




RTS 






2260 








39 










226D 


8D 


00 


00 


40 


STDR030 


STA 


DIB3 


; 3: DIB3:=0 


2270 


8D 


01 


00 


41 




STA 


DIB3+1 




2273 


50 






42 




RTS 






2274 








43 


* 








2274 


8D 


00 


00 


44 


STDR040 


STA 


DIB4 


; 4: DIB4:=0 


2277 


8D 


01 


00 


45 




STA 


DIB4+1 




227A 


60 






46 




RTS 




; RETURN 
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227B 








48 












******* 


* * * 


******** 


* * * * * 


* * 


******** 


****** 


************** 


*********************************************** 


227B 








49 


* 










227B 








50 


* 


INIT.KRNL 






227B 








51 


* 










227B 








52 


* 


(CALLS KERNEL 


INITIALIZATION 


MODULES) 


227B 








53 












******* 


* * * 


******** 


* * * * * 


* * 


******** 


****** 


************** 


*********************************************** 


227B 








54 


* 










227B 






227B 


55 


INIT.KRNL 


EQU 






227B 


AD 


DF 


FF 


56 






LDA 


E.REG 


; SWITCH IN I/O BANK AND SELECT PRIMARY STACK 


227E 


09 


44 




57 






ORA 


#$44 


; E:=( 0.1.1.X:0. 1.0.0 ) 


2280 


8D 


DF 


FF 


58 






STA 


E.REG 


; ( l.I.S.R:W.P.R.R ) 


2283 








59 


* 










2283 


A9 


18 




60 






LDA 


#<SZPAGE 


; SWITCH TO SOS ZPAGE 


2285 


8D 


DO 


FF 


61 






STA 


Z . REG 




2288 








62 


* 










2288 


20 


00 


00 


63 






JSR 


INT. INIT 


; CALL KERNEL INITIALIZATION ROUTINES 


228B 


20 


00 


00 


64 






JSR 


EVQ. INIT 




228E 


20 


00 


00 


65 






JSR 


BFM. INIT2 




2291 


BO 


20 


22B3 


66 






BCS 


INITK.ERR 




2293 


20 


00 


00 


67 






JSR 


DMGR. INIT 




2296 


20 


00 


00 


68 






JSR 


CFMGR. INIT 




2299 


20 


00 


GO 


69 






JSR 


MMGR. INIT 




229C 


20 


00 


00 


70 






JSR 


BMGR. INIT 




229F 


20 


00 


00 


71 






JSR 


BFM. INIT 




22A2 


20 


00 


00 


72 






JSR 


CLK. INIT 




22A5 








73 


* 










22A5 


AD 


DF 


FF 


74 






LDA 


E . REG 


; SWITCH OUT I/O BANK AND RETURN TO ALTERNATE 


22A8 


29 


BB 




75 






AND 


#$BB 


; E:=( 0.0.1.X:0. 0.0.0 ) 


22AA 


8D 


DF 


FF 


76 






STA 


E.REG 


; ( l.I.S.RtW.P.R.R ) 


2 2 AD 








77 


* 










22AD 


A9 


lA 




78 






LDA 


#<CZPAGE 


; SWITCH BACK TO USER ZPAGE 


22AF 


8D 


DO 


FF 


79 






STA 


Z.REG 




22B2 








80 


* 










22B2 


60 






81 






RTS 




; RETURN 


22B3 








82 












22B3 








83 












22B3 


A2 


08 




84 


INITK.ERR 


LDX 


#ERROX 


; ERROR("I/0 ERROR") 


22B5 


AO 


09 




85 






LDY 


#ERROL 




22B7 


4C 


E2 


25 


86 






JMP 


ERROR 
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*********************** 


*********** 


*************** 


22BA 


89 


* 




22BA 


90 


* ADVANCE ( 


I/O: WORK.P 


22BA 


91 


* 


OUT: SRC.P 


22BA 


92 


* 


OUT: DST.P 


22BA 


93 


* 


OUT: CNT 


22BA 


94 


* (ADVANCES 


WORK.P TO NEXT 


22BA 


95 






*********************** 


*********** 


*************** 



***************************************************************** 



22BA 








95 * 






22BA 






22BA 


97 ADVANCE 


EQU 




22BA 


18 






98 


CLC 




22BB 


AO 


02 




99 


LDY 


#2 


22BD 


A5 


OA 




100 


LDA 


WORK . P 


22BF 


71 


OA 




101 


ADC 


(WORK. P) , Y 


22C1 


AA 






102 


TAX 




22C2 


C8 






103 


INY 




22C3 


A5 


OB 




104 


LDA 


WORK.P+1 


22C5 


71 


OA 




105 


ADC 


(WORK.P) , Y 


22C7 


48 






106 


PHA 




22C8 


8A 






107 


TXA 




22C9 


69 


04 




108 


ADC 


#4 


22CB 


85 


OA 




109 


STA 


WORK . P 


22CD 


68 






110 


PLA 




22CE 


69 


00 




111 


ADC 


#0 


22D0 


85 


OB 




112 


STA 


WORK.P+1 


22D2 


18 






113 


CLC 




22D3 


A5 


OA 




114 


LDA 


WORK . P 


22D5 


69 


04 




115 


ADC 


#>$0004 


22D7 


85 


22 




116 


STA 


SRC . P 


22D9 


A5 


OB 




117 


LDA 


WORK.P+1 


22DB 


59 


00 




118 


ADC 


#<$0004 


22DD 


85 


23 




119 


STA 


SRC.P+1 


22DF 


AD 


OB 


16 


120 


LDA 


CXPAGE+WORK.P+1 


22E2 


8D 


23 


16 


121 


STA 


CXPAGE+SRC.P+1 


22E5 


AO 


00 




122 


LDY 


#0 


22E7 


8C 


25 


15 


123 


STY 


CXPAGE+DST.P+1 


22EA 


Bl 


OA 




124 


LDA 


(WORK.P) ,Y 


22EC 


85 


24 




125 


STA 


DST.P 


22EE 


08 






126 


INY 




22EF 


Bl 


OA 




127 


LDA 


(WORK.P) , Y 


22F1 


85 


25 




128 


STA 


DST.P+1 


22F3 


C8 






129 


INY 




22F4 


Bl 


OA 




130 


LDA 


(WORK.P) , Y 


22F6 


85 


26 




131 


STA 


CNT 


22F8 


08 






132 


INY 




22F9 


Bl 


OA 




133 


LDA 


(WORK.P) ,Y 


22FB 


85 


27 




134 


STA 


CNT+1 


22FD 


60 






135 


RTS 





Y:=0 

WORK. P:=WORK.P+ (WORK.P) ,Y + 4 



SRC.P:=X:W0RK.P+4 



DST.P:=0: (WORK.P) 



Y:=2 

CNT:=(WORK.P) ,Y 
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22FE: 



137 



********************************************************************************** 



22FE 








138 


* 










22FE 








139 


* REVERSE 


( IN: 


D.HDR.CNT 






22FE 








140 




IN: 


SDT.SIZE = 


CONSTANT 


22FE 








141 


* 


I/O: 


DRIVER FILE 






22FE 








142 


* 


OUT: 


WORK.P 


) 


) 


22FE 








143 


* 










22FE 








144 


* 


LOCAL: REV. SAVE 


, REV. 


TEMP 


22FE 








145 


* (REVERSES TITLE/CODE/RELOC 


COUNTS 


TO ALLOW DRIVER FILE TO BE PROCESSED FROM 


22FE 








146 












******* 


It*** 


******* 


* * * * 


*********** 


****** 


************* 


****** 


****************************************** 


22FE 






22FE 


147 


REVERSE 


EQU 


^, 






22FE 


A9 


00 




148 




LDA 


#>D . HDR. CNT 




WORK . P : =8 : D . HDR . CNT 


2300 


85 


OA 




149 




STA 


WORK . P 






2302 


A9 


OF 




150 




LDA 


#<D . HDR. CNT 






2304 


85 


OB 




151 




STA 


WORK.P+1 






2306 


A9 


80 




152 




LDA 


#$80 






2308 


8D 


OB 


16 


153 




STA 


CXPAGE+WORK. 


P+1 




230B 


18 






154 




CLC 






WORK.P:=WORK.P+ (WORK.P) +2 


230C 


AO 


00 




155 




LDY 


#0 






230E 


A5 


OA 




156 




LDA 


WORK . P 






2310 


71 


OA 




157 




ADC 


(WORK. P) , Y 






2312 


AA 






158 




TAX 








2313 


CB 






159 




INY 








2314 


A5 


OB 




160 




LDA 


WORK.P+1 






2316 


71 


OA 




161 




ADC 


(WORK.P) , Y 






2318 


48 






1 62 




PHA 








2319 


8A 






1 63 




TXA 








231A 


69 


02 




164 




ADC 


#2 






231C 


85 


OA 




165 




STA 


WORK . P 






231E 


68 






166 




PLA 








231F 


59 


00 




167 




ADC 


#0 






2321 


85 


OB 




168 




STA 


WORK.P+1 






2323 


Bl 


OA 




169 




LDA 


(WORK.P) , Y 




IF (WORK.P) =$FFFF 


2325 


88 






170 




DEY 








2326 


31 


OA 




171 




AND 


(WORK.P) , Y 




THEN 


2328 


C9 


FF 




172 




CMP 


#$FF 






232A 


DO 


07 


2333 


173 




BNE 


REVO 10 






232C 


A2 


EB 




174 




LDX 


#ERR10X 




ERROR ("EMPTY DRIVER FILE") 


232E 


AO 


11 




175 




LDY 


tERRlOL 






2330 


20 


E2 


25 


176 




JSR 


ERROR 






2333 


A9 


FF 




177 


REVO 10 


LDA 


#$FF 






2335 


85 


OC 




178 




STA 


REV. SAVE 






2337 


85 


OD 




179 




STA 


REV. S AVE +1 






2339 








180 


* 










2339 


A5 


OC 




181 


REVO 20 


LDA 


REV. SAVE 




Rl: STACK :=REV. SAVE 


233B 


48 






182 




PHA 








233C 


A5 


OD 




183 




LDA 


REV. S AVE +1 






233E 


48 






184 




PHA 








233F 


AO 


00 




185 




LDY 


#0 




REV . SAVE : = ( WORK . P ) 


2341 


Bl 


OA 




186 




LDA 


(WORK.P) , Y 






2343 


85 


OC 




187 




STA 


REV . SAVE 






2345 


C8 






188 




INY 








2346 


Bl 


OA 




189 




LDA 


(WORK.P) , Y 






2348 


85 


OD 




190 




STA 


REV. S AVE +1 






234A 


68 






191 




PLA 






(WORK.P) :=STACK 


234B 


91 


OA 




192 




STA 


(WORK.P) , Y 
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234D; 


; 88 






193 




DEY 






234E; 


: 68 






194 




PLA 






234F; 


: 91 


OA 




195 




STA 


(WORK . P ) , Y 




2351 ; 


: A5 


OC 




196 




LDA 


REV . SAVE 


; IF REV. SAVE = $FFFF THEN EXIT 


2353 : 


: 25 


OD 




1 97 




AND 


REV. SAVE+1 




2355 : 


:C9 


FF 




1 98 




CMP 


#SFF 




2357 ; 


:F0 


24 


237D 


199 




BEQ 


REV . EXIT 




2359; 


;24 


OD 




200 


REVO 3 


BIT 


REV. SAVE+1 


; IF REV. SAVE >= $8000 THEN ERROR 


235B; 


: 30 


19 


2376 


201 




BMI 


REVO 40 




235D; 


; 18 






202 




CLC 




; WORK.P :=WORK.P+REV. SAVE+2 


235E; 


;A5 


OA 




203 




LDA 


WORK . P 




2360 ; 


: 65 


OC 




204 




ADC 


REV . SAVE 




2362 ; 


: AA 






205 




TAX 






2363 ; 


: A5 


OB 




206 




LDA 


WORK.P+1 




2365 ; 


: 65 


OD 




2 07 




ADC 


REV. SAVE+1 




2367 ; 


: 48 






208 




PHA 






2368 ; 


;B0 


OC 


2376 


209 




BCS 


REVO 40 




236A; 


; 8A 






210 




TXA 






236B; 


; 59 


02 




211 




ADC 


#2 




236D; 


: 85 


OA 




212 




STA 


WORK . P 




23 6F; 


: 68 






213 




PLA 






2370: 


: 69 


00 




214 




ADC 


#0 




2372 ; 


: 85 


OB 




215 




STA 


WORK.P+1 




2374 ; 


: 90 


C3 


2339 


216 




BCC 


REVO 20 


; IF C=FALSE THEN Rl 


2376: 


:A2 


7A 




217 


REVO 4 


LDX 


#ERR5X 


; ELSE ERROR (" INVALID 


2378: 


:A0 


13 




218 




LDY 


#ERR5L 




237A: 


:20 


E2 


25 


219 




JSR 


ERROR 




237D: 








220 


* 








237D: 


: 60 






221 


REV. EXIT 


RTS 




; RETURN 
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237E 








223 










******* 


* * * * 


******* 


* * * * * 


* * 


******** 


****** 


************************************************************* 


237E 








224 


* 








237E 








225 




DADVANCE 


( I/O 


: WORK.? 


237E 








226 






OUT 


: C="NO DRIVERS LEFT" 


237E 








227 






OUT 


: SRC.P 


237E 








228 






OUT 


: CNT 


237E 








229 


* 




OUT 


: REL . P ) 


237E 








230 


* 


(ADVANCES WORK 


.P TO NEXT DRIVER MODULE. INITS SRC.P, CNT, REL.P FOR RELOCATION AND MOVE) 


237E 








231 










******* 


* * * * 


******* 


* * * * * 


* * 


******** 


****** 


************************************************************* 


237E 






237E 


232 


DADVANCE 


EQU 


* 


237E 


AO 


00 




233 






LDY 


#0 ; IF (WORK.P) =$FFFF THEN EXIT "NO DRIVERS LEFT IN FILE" 


2380 


Bl 


OA 




234 






LDA 


(WORK . P ) , Y 


2382 


C8 






235 






INY 




2383 


31 


OA 




236 






AND 


(WORK. P) , Y 


2385 


C9 


FF 




237 






CMP 


#$FF 


2387 


DO 


02 


238B 


238 






BNE 


DADVO 1 


2389 


38 






239 






SEC 


; C:="NO DRIVERS LEFT" 


238A 


60 






240 






RTS 


; RETURN 


238B 








241 










238B 








2 4 2 










238B 


A5 


OA 




243 


DADVOlO 


LDA 


WORK.P ; REL .P : : WORK.P 


238D 


85 


IE 




244 






STA 


REL . P 


238F 


A5 


OB 




245 






LDA 


WORK . P+1 


2391 


85 


IF 




246 






STA 


REL.P+1 


2393 


AD 


OB 


16 


247 






LDA 


CXPAGE+WORK.P+1 


2396 


8D 


IF 


1 6 


248 






STA 


CXPAGE+REL .P+1 


2399 








249 










2399 


20 


C2 


23 


250 






JSR 


DADD ; ADVANCE TO CODE COUNT FIELD 


239C 








251 










239C 


AO 


00 




252 






LDY 


#0 ; CNT:= (WORK.P) 


239E 


Bl 


OA 




253 






LDA 


(WORK.P) , Y 


2 3 AO 


85 


26 




254 






STA 


CNT 


23A2 


C8 






255 






INY 




2 3 A3 


Bl 


OA 




256 






LDA 


(WORK.P) , Y 


23A5 


85 


27 




257 






STA 


CNT+1 


23A7 








258 


* 








23A7 


20 


C2 


23 


259 






JSR 


DADD ; ADVANCE TO TITLE CNT FIELD 


23AA 








2 60 










23AA 


18 






2 61 






CLC 


; SRC .P : ^X : WORK.P+2 


23AB 


A5 


OA 




262 






LDA 


WORK . P 


2 3 AD 


69 


02 




263 






ADC 


#2 


23AF 


85 


22 




264 






STA 


SRC.P 


23B1 


A5 


OB 




265 






LDA 


WORK. P+1 


23B3 


69 


00 




266 






ADC 


#0 


23B5 


85 


23 




267 






STA 


SRC. P+1 


23B7 


AD 


OB 


16 


268 






LDA 


CXPAGE+WORK.P+1 


23BA 


8D 


23 


16 


269 






STA 


CXPAGE+SRC.P+1 


23BD 








270 










23BD 


20 


C2 


23 


271 






JSR 


DADD ; ADVANCE TO RELOC FIELD OF NEXT DRIVER 


23C0 


18 






272 






CLC 


; C:="DRIVERS LEFT" 


23C1 


60 






273 






RTS 


; RETURN 
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23C2 








275 












******** 


* * * * 


****** 


* * * * * 


* 


****** 


********* 


***************** 


******************************************** 


23C2 








276 


* 










23C2 








277 


* 


DADD 


( I/O: 


WORK . P ) 




23C2 








278 












23C2 








279 




(ADVANCES WORK 


.P TO NEXT FIELD 


IN DRIVER MODULE) 


23C2 








280 












******** 


* * * * 


****** 


* * * * * 


* 


****** 


********* 


***************** 


******************************************** 


23C2 






23C2 


281 


DADD 


EQU 


* 




23C2 


38 






282 






SEC 




; WORK. P:=WORK.P- (WORK.P) -2 


23C3 


AO 


00 




283 






LDY 


#0 




23C5 


A5 


OA 




284 






LDA 


WORK . P 




23C7 


Fl 


OA 




285 






SBC 


(WORK.P) , Y 




23C9 


AA 






286 






TAX 






23CA 


C8 






287 






INY 






23CB 


A5 


OB 




288 






LDA 


WORK.P+1 




23CD 


Fl 


OA 




289 






SBC 


(WORK.P) , Y 




23CF 


48 






290 






PHA 






23D0 


8A 






291 






TXA 






23D1 


E9 


02 




292 






SBC 


#2 




23D3 


85 


OA 




293 






STA 


WORK . P 




23D5 


68 






294 






PLA 






23D6 


E9 


00 




295 






SBC 


#0 




23D8 


85 


OB 




296 






STA 


WORK.P+1 




23DA 


60 






297 






RTS 




; RETURN 
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23DB 








299 










******** 


* * * 


******* 


* * * * * 


******** 


******* 


******************* 


******************************************* 


23DB 








300 


* 








23DB 








301 


* FLAGS 


( IN: 


SRC.P 




23DB 








302 




OUT: 


PG. ALIGN 




23DB 








303 




OUT: 


FIRST. ADIB 




23DB 








304 


* 


OUT: 


OV="ALL DIBS INACTIVE" ) 


23DB 








305 


* 








23DB 








306 


* 


LOCAL 


: PREV.ADIB.P, DIB 


.P 


23DB 








307 


* (PROCESSES "INACTIVE" S "PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 


23DB 








308 










******** 


* * * 


******* 




******** 


******* 


******************* 


******************************************* 


23DB 






23DB 


309 


FLAGS 


EQU 






23DB 


38 






310 




SEC 




; C^"FIRST DIB" 


23DC 


20 


36 


24 


311 


FLAGOlO 


JSR 


NEXT. DIB 


; NEXT . DIB (SRC. P . IN, DIB.P PG. ALIGN C OV.OUT) 


23DF 


50 


03 


23E4 


312 




BVC 


FLAG015 


; IF OV <> "INACTIVE" THEN ACTIVE DIB FOUND 


23E1 


90 


F9 


23DC 


313 




BCC 


FLAGOlO 


; IF C <> "LAST DIB" THEN CHECK NEXT DIB 


23E3 


60 






314 




RTS 




; RETURN (OV:="ALL DIBS INACTIVE") 


23E4 








315 


* 








23E4 


08 






316 


FLAG015 


PHP 




; PUSH STATUS 


23E5 


38 






317 




SEC 




; FIRST. ADIB:=DIB.P-SRC.P 


23E6 


A5 


14 




318 




LDA 


DIB . P 




23E8 


E5 


22 




319 




SBC 


SRC . P 




23EA 


85 


10 




320 




STA 


FIRST .ADIB 




23EC 


A5 


15 




321 




LDA 


DIB . P+1 




23EE 


E5 


23 




322 




SBC 


SRC.P+1 




23F0 


85 


11 




323 




STA 


FIRST. ADIB+1 




23F2 


A5 


14 




324 




LDA 


DIB . P 


; PREV. ADIB .P :=X:DIB.P 


23F4 


85 


12 




325 




STA 


PREY . ADIB . P 




23F6 


A5 


15 




326 




LDA 


DIB . P+1 




23F8 


85 


13 




327 




STA 


PREY. ADIB .P+1 




23FA 


AD 


15 


16 


328 




LDA 


CXPAGE+DIB.P+1 




23FD 


8D 


13 


16 


329 




STA 


CXPAGE+PREV. ADIB . 


P + 1 


2400 


28 






330 




PLP 




; PULL STATUS 


2401 


BO 


31 


2434 


331 




BCS 


FLAGIOO 


; IF C="LAST DIB" THEN EXIT 


2403 








332 


* 








2403 


20 


36 


24 


333 


FLAG020 


JSR 


NEXT. DIB 


; NEXT . DIB (SRC . P . IN, DIB.P PG. ALIGN C OV.OUT) 


2406 


08 






334 




PHP 




; PUSH STATUS 


2407 


AO 


00 




335 




LDY 


#0 


; IF 0V-" INACTIVE DIB" 


2409 


50 


11 


241C 


336 




BVC 


FLAG025 




240B 


38 






337 




SEC 




; THEN 


240C 


A5 


12 




338 




LDA 


PREV.ADIB.P 


; (PREV.ADIB.P) :=PREV.ADIB.P-SRC.P 


240E 


E5 


22 




339 




SBC 


SRC.P 




2410 


91 


12 




340 




STA 


(PREV.ADIB.P) , Y 




2412 


C8 






341 




INY 






2413 


A5 


13 




342 




LDA 


PREV. ADIB. P+1 




2415 


E5 


23 




343 




SBC 


SRC.P+1 




2417 


91 


12 




344 




STA 


(PREV.ADIB.P) , Y 




2419 


4C 


31 


24 


345 




JMP 


FLAG050 




241C 








346 










241C 


38 






347 


FLAG025 


SEC 




; ELSE 


241D 


A5 


14 




348 




LDA 


DIB.P 


; (PREV.ADIB.P) : =DIB . P-SRC . P 


241F 


E5 


22 




349 




SBC 


SRC.P 




2421 


91 


12 




350 




STA 


(PREV.ADIB.P) , Y 




2423 


C8 






351 




INY 






2424 


A5 


15 




352 




LDA 


DIB. P+1 




2426 


AA 






353 




TAX 






2427 


E5 


23 




354 




SBC 


SRC.P+1 
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2429; 


; 91 


12 




355 




STA 


(PREV. ADIB .P) , Y 


242B; 


:86 


13 




356 




STX 


PREV.ADIB.P+1 ; PREV. ADIB . P : =DIB . P 


242D: 


;A5 


14 




357 




LDA 


DIB . P 


242F: 


:85 


12 




358 




STA 


PREV. ADIB. P 


2431: 


:28 






359 


FLAG050 


PLP 


; PULL STATUS 


2432 : 


: 90 


CF 


2403 


360 




BCC 


FLAG020 ; IF C <> "LAST DIB" THEN PROCESS 


2434 ; 








361 








2434; 


:B8 






362 


FLAGIOO 


CLV 


; OV:="ACTIVE DIBS" 


2435; 


: 60 






363 




RTS 


; RETURN 
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2436: 365 

**************************************************************************************************** 



2436 
2436 
2436 
2436 
2436 
2436 
2436 
2436 
2436 
2436 
2436 



366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 



NEXT. DIB ( IN: C="FIRST DIB" 

IN: SRC.P 

OUT: DIB.P 

OUT: PG. ALIGN 

OUT: C="LAST DIB" 

OUT: OV="INACTIVE DIB" ) 

LOCAL: DIB. FLAGS, DIB. DOB = CONSTANT 

(ADVANCES TO NEXT DIB IN DRIVER MODULE) 



IF C = "FIRST DIB" 
THEN 

PG.ALIGN:=0 
DIB. P:=X: SRC.P 



















2436 






2436 


377 


NEXT. DIB 


EQU 






2436 


AO 


00 




378 




LDY 


#0 




2438 


90 


15 


244F 


379 




BCC 


NXTDOlO 




243A 


84 


16 




380 




STY 


PG. ALIGN 




243C 


84 


17 




381 




STY 


PG.ALIGN+1 




243E 


A5 


22 




382 




LDA 


SRC.P 




2440 


85 


14 




383 




STA 


DIB . P 




2442 


A5 


23 




384 




LDA 


SRC . P+1 




2444 


85 


15 




385 




STA 


DIB . P+1 




2446 


AD 


23 


1 6 


386 




LDA 


CXPAGE+SRC . 


P + 1 


2449 


8D 


15 


16 


387 




STA 


CXPAGE+DIB . 


P + 1 


244C 


4C 


5D 


24 


388 




JMP 


NXTD020 




244F 


A5 


22 




389 


NXTDOlO 


LDA 


SRC.P 




2451 


71 


14 




390 




ADC 


(DIB.P) , Y 




2453 


AA 






391 




TAX 






2454 


C8 






392 




INY 






2455 


A5 


23 




393 




LDA 


SRC .P+1 




2457 


71 


14 




394 




ADC 


(DIB.P) , Y 




2459 


85 


15 




395 




STA 


DIB. P+1 




245B 


86 


14 




396 




SIX 


DIB.P 




245D 








397 


* 








245D 


AO 


14 




398 


NXTD020 


LDY 


#DIB. FLAGS 




245F 


Bl 


14 




399 




LDA 


(DIB.P) , Y 




2461 


30 


05 


2468 


400 




BMI 


NXTD030 




2463 


2C 


8B 


24 


401 




BIT 


NXTD999 




2466 


70 


16 


247E 


402 




BVS 


NXTD04 




2468 








403 


* 








2468 


29 


40 




404 


NXTD030 


AND 


#$40 




246A 


FO 


12 


247E 


405 




BEQ 


NXTD04 




246C 


18 






406 




CLC 






246D 


A9 


22 




407 




LDA 


#DIB.DCB+2 




245F 


A8 






408 




TAY 






2470 


88 






409 




DEY 






2471 


88 






410 




DEY 






2472 


71 


22 




411 




ADC 


(SRC.P) , Y 




2474 


85 


16 




412 




STA 


PG. ALIGN 




2476 


C8 






413 




INY 






2477 


A9 


00 




414 




LDA 


#0 




2479 


71 


22 




415 




ADC 


(SRC.P) , Y 




247B 


85 


17 




416 




STA 


PG.ALIGN+1 




247D 


B8 






417 




CLV 






247E 








418 










247E 


AO 


00 




419 


NXTD040 


LDY 


#0 




2480 


Bl 


14 




420 




LDA 


(DIB.P) , Y 





ELSE 

DIB.P :=SRC.P+ (DIB.P) 



IF (DIB.P) , DIB. FLAGS. BIT7 = "INACTIVE" 



THEN 

OV:="INACTIVE" 
ELSE 

IF (DIB.P) ,DIB.FLAGS.BIT6 = "PAGE ALIGN" 
THEN 

PAGE.ALIGN:=DIB.DCB+2+ (SRC.P) ,DIB.DCB 



OV:="ACTIVE" 
IF (DIB.P) = 
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2482:C8 




421 


INY 






2483:11 14 




422 


ORA 


(DIB .P) , Y 




2485:D0 03 


2 48A 


423 


BNE 


NXTD 9 9 8 




2487 : 38 




424 


SEC 




; THEN C:="LAST DIB" 


2488:B0 01 


248B 


425 


BCS 


NXTD999 




248A: 18 




426 NXTD998 


CLC 




ELSE C:=NOT "LAST DIB" 


248B: 60 




427 NXTD999 


RTS 




; RETURN 


248C: 




428 








*********** 


******* 


************* 


******* 


*************** 


*********************************************** 


248C: 




429 


CHN 


SOSLDR.F.SRC 
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248C: 



********************************************************************************************** 



248C 








3 


* 








248C 








4 


* 


GETMEM ( IN : 


PG . ALIGN 




248C 








5 


* 


IN: 


CNT 




248C 








6 


* 


I/O: 


DST . P 




248C 








7 


* 


I/O: 


DS IBANK 




248C 








8 


* 


I/O: 


DSEGLIST 




248C 








9 


* 


OUT: 


PREVBANK ) 




248C 








10 


* 








248C 








11 


* 


LOCAL 


: PREVDST 




248C 








12 




(COMPUTES # OF 


PAGES TO ADD 


TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 


248C 








13 












**** 


-1, ^, -1, ^, -1, ^, -1, 








^, ^, ^, ^, -1, ^, -1, ^, -1, 




248C 






248C 


14 


GETMEM EQU 






248C 


A5 


2A 




15 




LDA 


DSTBANK 


; PREVBANK: ^DSTBANK 


248E 


85 


18 




16 




STA 


PREVBANK 




2490 


A5 


24 




17 




LDA 


DST.P 


; PREVDST :=DST.P 


2492 


85 


19 




18 




STA 


PREVDST 




2494 


A5 


25 




19 




LDA 


DST.P+1 




2496 


85 


lA 




20 




STA 


PREVDST+1 




2498 


20 


C4 


24 


21 




JSR 


NEWDST 


; NEWDST (PG. ALIGN. IN, PREVDST. IN, CNT. IN, DST. P. OUT) 


249B 








22 


* 








249B 


A5 


25 




23 




LDA 


DST . P+1 


; IF DST.P >= $2000 


249D 


C9 


20 




24 




CMP 


#$20 




249F 


90 


OC 


2 4 AD 


25 




BCC 


GETMOlO 




24A1 


38 






26 




SEC 




; THEN 


24A2 


A5 


lA 




27 




LDA 


PREVDST+1 


; A=PAGES :=PREVDST-DST.P 


24A4 


E5 


25 




28 




SBC 


DST.P+1 




24A6 


18 






29 




CLC 






24A7 


20 


FD 


24 


30 




JSR 


BUILD . DSEG 


; BUILD .DSEG (C="NEXT BANK". IN, A=PAGES.IN, DSEGLIST 


24AA 


4C 


C3 


24 


31 




JMP 


GETM.EXIT 




2 4 AD 








32 


* 






ELSE 


2 4 AD 


C6 


2A 




33 


GETMOlO DEC 


DSTBANK 


; DSTBANK :=DSTBANK-1 


24AF 


A9 


00 




34 




LDA 


#>$A000 


; PREVDST : =$A0 00 


24B1 


85 


19 




35 




STA 


PREVDST 




24B3 


A9 


AO 




36 




LDA 


#<$A000 




24B5 


85 


lA 




37 




STA 


PREVDST+1 




24B7 


20 


C4 


24 


38 




JSR 


NEWDST 


; NEWDST (PG. ALIGN. IN, PREVDST. IN, CNT. IN, DST. P. OUT 


24BA 


38 






39 




SEC 




. A="PAGES" :=PREVDST-DST.P 


24BB 


A5 


lA 




40 




LDA 


PREVDST+1 




24BD 


E5 


25 




41 




SBC 


DST.P+1 




24BF 


38 






42 




SEC 






24C0 


20 


FD 


24 


43 




JSR 


BUILD. DSEG 


; BUILD. DSEG (C="NEXTBANK" . IN, A="PAGES" . IN, DSEGLIS 


24C3 








44 


* 








24C3 


60 






45 


GETM.EXIT RTS 




; RETURN 
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24C4: 



24C4 
24C4 
24C4 
24C4 
24C4 
24C4 
24C4 



48 
49 
50 
51 
52 
53 
54 



( IN 
IN 
IN 
I/O 



PG. ALIGN 
PREVDST 
CNT 
DST.P 



(COMPUTES DESTINATION BASE ADDRESS, ALIGNING ON PAGE BOUNDARY IF REQUESTED) 



24C4 






24C4 


55 


NEWDST 


EQU 








24C4 


38 






56 




SEC 




; IF (PREVDST-$2000) < 


CNT 


24C5 


A5 


19 




57 




LDA 


PREVDST 






24C7 


E9 


00 




58 




SBC 


#>S2000 






24C9 


AA 






59 




TAX 








24CA 


A5 


lA 




60 




LDA 


PREVDST+1 






24CC 


E9 


20 




61 




SBC 


#<$2000 






24CE 


E4 


26 




62 




CPX 


CNT 






24D0 


E5 


27 




63 




SBC 


CNT+1 






24D2 


BO 


08 


24DC 


64 




BCS 


NEWDOlO 






24D4 


A9 


00 




65 




LDA 


#0 


; THEN 




24D6 


85 


24 




66 




STA 


DST.P 


; DST.P:=0 




24D8 


85 


25 




67 




STA 


DST . P+1 






24DA 


FO 


20 


24FC 


68 




BEQ 


NEWD.EXIT 






24DC 


38 






69 


NEWDOlO 


SEC 




ELSE 




24DD 


A5 


19 




70 




LDA 


PREVDST 


; DST.P :=PREVDST- 


-CNT 


24DF 


E5 


26 




71 




SBC 


CNT 






24E1 


85 


24 




72 




STA 


DST.P 






24E3 


A5 


lA 




73 




LDA 


PREVDST+1 






24E5 


E5 


27 




74 




SBC 


CNT + 1 






24E7 


85 


25 




75 




STA 


DST. P+1 






24E9 


A5 


16 




76 




LDA 


PG. ALIGN 


; IF PG. ALIGN <> 





24EB 


05 


17 




77 




ORA 


PG.ALIGN+1 


; THEN 




24ED 


FO 


OD 


24FC 


78 




BEQ 


NEWD.EXIT 






24EF 


38 






79 




SEC 




; DST.P := 


DST 


24F0 


A9 


00 




80 




LDA 


#0 






24F2 


E5 


16 




81 




SBC 


PG. ALIGN 






24F4 


85 


24 




82 




STA 


DST.P 






24F6 


A5 


25 




83 




LDA 


DST. P+1 






24F8 


E5 


17 




84 




SBC 


PG.ALIGN+1 






24FA 


85 


25 




85 




STA 


DST. P+1 






24FC 


50 






86 


NEWD.EXIT 


RTS 




; RETURN 





DST.P/256*256) -PG. ALIGN 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 43 of 456 



07 SOSLDR.F.SRC 



SOS 1.1 SOS LOADER 



AUGUST-2006 



24FD: 



24FD 
24FD 
24FD 
24FD 
24FD 
24FD 



89 
90 

91 
92 
93 
94 



* BUILD. DSEG ( IN: C="NEXTBANK" 

* IN: A="PAGES" 

* I/O: DSEGLIST ) 

* (COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 

It***************************************************************************** 



24FD 






24FD 


95 


BUILD. DSEG 


EQU 












24FD 


48 






96 




PHA 












24FE 


BO 


05 


2505 


97 




BCS 


BLDSOlO 




; IF ("NEXTBANK"=TRUE OR DSEGX=$FF) 






2500 


AD 


14 


25 


98 




LDA 


DSEGX 




; THEN 






2503 


10 


03 


2508 


99 




BPL 


BLDS020 










2505 


EE 


14 


25 


100 


BLDSOlO 


INC 


DSEGX 




; DSEGX :=DSEGX+1 






2508 


AE 


14 


25 


101 


BLDS020 


LDX 


DSEGX 










250B 


18 






102 




CLC 






; DSEGLIST (DSEGX) : =DSEGLIST (DSEGX) + 


"PAGES" 




250C 


58 






103 




PLA 












250D 


7D 


15 


25 


104 




ADC 


DSEGLIST 


X 








2510 


9D 


15 


25 


105 




STA 


DSEGLIST 


X 








2513 


60 






106 




RTS 






; RETURN 






2514 








107 
















2514 








108 
















2514 








109 
















2514 


FF 






110 


DSEGX 


DFB 


$FF 




; DRIVER SEGMENT LIST TABLE 






2515 


00 






111 


DSEGLIST 


DFB 


$0 




; # PAGES FOR 1ST DRIVER SEGMENT 


(BANK N 


) 


2516 


00 






112 




DFB 


$0 




; " 2ND " 


(BANK N- 


1) 


2517 


00 






113 




DFB 


$0 




; " 3RD " 


(BANK N- 


2) 


2518 


00 






114 




DFB 


$0 






(BANK N- 


3) 
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2519 








116 












******** 


* * * 


******* 


* * * * * 


* * 


* 


****** 


****** 


****************** 


2519 








117 


* 










2519 








118 




RELOC ( 


IN: 


SRC.P 


2519 








119 








IN: 


REL.P 


2519 








120 








IN: 


DST.P 


2519 








121 


* 






OUT: 


RELOCATED DRIVER 


2519 








122 


* 










2519 








123 


* 






LOCAL 


: REL. END, CODE.P 


2519 








124 


* 


(RELOCATES DRIVER MODULE'S CODE 


2519 








125 












******** 


* * * 


******* 


* * * * * 


* * 


* 


****** 


****** 


****************** 


2519 






2519 


126 


RELOC 


EQU 


^, 


2519 


38 






127 








SEC 




251A 


AO 


00 




128 








LDY 


#0 


251C 


A5 


IE 




129 








LDA 


REL.P 


251E 


Fl 


IE 




130 








SBC 


(REL.P) , Y 


2520 


85 


20 




131 








STA 


REL . END 


2522 


C8 






132 








INY 




2523 


A5 


IF 




133 








LDA 


REL.P+1 


2525 


Fl 


IE 




134 








SBC 


(REL .P) , Y 


2527 


85 


21 




135 








STA 


REL.END+1 


2529 


38 






136 


REL 


. LOOP 


SEC 




252A 


A5 


IE 




137 








LDA 


REL . P 


252C 


E9 


02 




138 








SBC 


#2 


252E 


85 


IE 




139 








STA 


REL.P 


2530 


A5 


IF 




140 








LDA 


REL . P+1 


2532 


E9 


00 




141 








SBC 


#0 


2534 


85 


IF 




142 








STA 


REL .P+1 


2536 


A5 


IE 




143 








LDA 


REL . P 


2538 


C5 


20 




144 








CMP 


REL. END 


253A 


A5 


IF 




145 








LDA 


REL . P+1 


253C 


E5 


21 




145 








SBC 


REL.END+1 


253E 


90 


29 


2569 


147 








BCC 


REL. EXIT 


2540 


AO 


00 




148 








LDY 


#0 


2542 


18 






149 








CLC 




2543 


A5 


22 




150 








LDA 


SRC.P 


2545 


71 


IE 




151 








ADC 


(REL . P ) , Y 


2547 


85 


IC 




152 








STA 


CODE.P 


2549 


C8 






153 








INY 




254A 


A5 


23 




154 








LDA 


SRC. P+1 


254C 


71 


IE 




155 








ADC 


(REL.P) , Y 


254E 


85 


ID 




156 








STA 


CODE. P+1 


2550 


AD 


23 


16 


157 








LDA 


CXPAGE+SRC.P+1 


2553 


8D 


ID 


16 


158 








STA 


CXPAGE+CODE.P+1 


2556 


AO 


00 




159 








LDY 


#0 


2558 


18 






160 








CLC 




2559 


Bl 


IC 




161 








LDA 


(CODE .P) , Y 


255B 


65 


24 




162 








ADC 


DST.P 


255D 


91 


IC 




163 








STA 


(CODE.P) ,Y 


255F 


C8 






164 








INY 




2560 


Bl 


IC 




165 








LDA 


(CODE.P) , Y 


2562 


65 


25 




166 








ADC 


DST.P+1 


2564 


91 


10 




167 








STA 


(CODE.P) ,Y 


2566 


4C 


29 


25 


168 








JMP 


REL . LOOP 


2569 








169 












2569 


60 






170 


REL 


.EXIT 


RTS 





^************************* 



REL.END:=REL.P- (REL.P) 



REL.P:=REL.P-2 



IF REL.P < REL. END THEN EXIT 



CODE. P:=X: SRC. P+ (REL.P) 



(CODE.P) := (CODE.P) +DST.P 



GOTO REL. LOOP 
RETURN 
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256A 








172 










******** 


* * 


******** 


* * * * * 


* 


****** 


********* 


**************** 


256A 








173 


* 








256A 








174 


* 


ALLOC 


.SEG ( IN 


: K.BASE 


256A 








175 


* 




IN 


: I. BASE. P 


256A 








176 






IN 


: SYSBANK ) 


256A 








177 


* 




I .BASE 


.P 


256A 








178 


* 




D.BASE 


.PG 


256A 








179 


* 


(ALLOCATES SEGMENTS FOR KERNEL 


256A 








180 










******** 


* * 


******** 


* * * * * 


* 


****** 


********* 


**************** 


256A 






256A 


181 


ALLOC. SEG EQU 




256A 


00 






182 






BRK 




256B 


40 






183 






DFB 


REQSEG 


256C 


85 


28 




184 






DW 


SEGMENT 


255E 








185 


* 








256E 


A9 


10 




186 






LDA 


#$10 


2570 


8D 


86 


28 


187 






STA 


SEGBASE 


2573 


8D 


88 


28 


188 






STA 


SEGLIM 


2575 


A9 


00 




189 






LDA 


#0 


2578 


8D 


87 


28 


190 






STA 


SEGBASE+1 


257B 








191 


* 








257B 


A5 


01 




192 






LDX 


K.BASE+1 


257D 


20 


86 


25 


193 






JSR 


RSEG 


2580 








194 










2580 


A6 


03 




195 






LDX 


I.BASE.P+1 


2582 


20 


86 


25 


196 






JSR 


RSEG 


2585 


60 






197 






RTS 





********************************************* 

, INTERPRETER AND SYSTEM WORK AREA) 
********************************************* 

; REQ.SEG (BASE= (F, 0) , LIMIT= (F, ID) , SEGID=0, SEGNUM) 

; SET BASE/LIMIT BANKS 

; AND INIT BASE PAGE 

; KERNEL SEGMENT, ID=1 

; INTERPRETER SEGMENT, ID=2 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 46 of 456 



07 SOSLDR.F.SRC SOS 1.1 SOS LOADER AUGUST-2006 PAGE 45 



2585 








199 










* * * * 


* * * 


* * * * 


******* 


* * * * * 


******** 


******* 


************* 


************************************************* 


2586 








200 


* 








2586 








201 


* RSEG ( 


IN: X 


=B AS E.PAGE OF 


SEGMENT ) 


2586 








202 


* 








2586 








203 










* * * * 


* * * 


* * * * 


******* 


* * * * * 


******** 


******* 


************* 


************************************************* 


2585 






2586 


204 


RSEG 


EQU 






2585 


:EE 


8A 


28 


205 




INC 


SEGID 


; SEGID:=SEGID+1 


2589 


: AC 


87 


28 


205 




LDY 


SEGBASE+1 


; LIMIT. PAGE :=BASE.PAGE-1 


258C 


: 88 






207 




DEY 






258D 


: 8C 


89 


28 


208 




STY 


SEGLIM+1 




2590 


: BE 


87 


28 


209 




SIX 


SEGBASE+1 


; BASE.PAGE:=X 


2593 








210 










2593 


:E0 


AO 




211 




CPX 


#SAO 


; IF BASE>^$AO OR LIMIT<$AO THEN 


2595 


:B0 


24 


25BB 


212 




BCS 


RSEGOlO 


; THEN 


2597 


: AD 


89 


28 


213 




LDA 


SEGLIM+1 


; REQUEST ONLY ONE SEGMENT 


259A 


:C9 


AO 




214 




CMP 


#$A0 




259C 


: 90 


ID 


25BB 


215 




BCC 


RSEGOlO 




259E 








215 


* 








259E 


: 8A 






217 




TXA 




; ELSE 


259F 


: 48 






218 




PHA 




; REQUEST TWO SEGMENTS 


2 5 AO 


: A2 


AO 




219 




LDX 


#$A0 




25A2 


: 8E 


87 


28 


220 




STX 


SEGBASE+1 




25A5 








221 










25A5 


: GO 






222 




BRK 




; REQ. SEG (BASE, LIMIT, SEGID, SEGNUM) 


25A6 


: 40 






223 




DFB 


REQSEG 




25A7 


: 85 


28 




224 




DW 


SEGMENT 




25A9 








225 










25A9 


: 68 






226 




PLA 






25AA 


: 8D 


87 


28 


227 




STA 


SEGBASE+1 




2 5 AD 


: A9 


9F 




228 




LDA 


#$9F 




25AF 


: 8D 


89 


28 


229 




STA 


SEGLIM+1 




25B2 


: AD 


00 


00 


230 




LDA 


SYSBANK 




25B5 


:8D 


85 


28 


231 




STA 


SEGBASE 




25B8 


:8D 


88 


28 


232 




STA 


SEGLIM 




25BB 








233 


* 








25BB 








234 










25BB 


:00 






235 


RSEGOlO 


BRK 




; REQ. SEG (BASE, LIMIT, SEGID, SEGNUM) 


25BC 


:40 






236 




DFB 


REQSEG 




25BD 


:85 


28 




237 




DW 


SEGMENT 




25BF 








238 


* 








25BF 


: 50 






239 




RTS 




; RETURN 
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25C0: 241 

**************************************************************************************************** 



25C0 








242 


* 








25C0 








243 


* ALLOC. DSEG ( 


IN: DSEGLIST ) 




25C0 








244 










25C0 








245 


* (ALLOCATES SEGMENTS FOR DRIVER 


MODULES" 


25C0 








246 










******* 


**** 


******* 


* * * * 


*********** 


* * * * * 


***************** 


********************************************* 


25C0 






25C0 


247 


ALLOC. DSEG 


EQU 


* 




25C0 


EE 


14 


25 


248 




INC 


DSEGX 


; DSEGX :=DSEGX+1 


25C3 


DO 


07 


25CC 


249 




BNE 


ALDSOlO 


; IF DSEGX=0 


25C5 


A2 


7A 




250 




LDX 


#ERR5X 


; THEN ERROR ("INVALID DRIVER FILE") 


25C7 


AO 


13 




251 




LDY 


#ERR5L 




25C9 


20 


E2 


25 


252 




JSR 


ERROR 




25CC 








253 










25CC 


AO 


FF 




254 


ALDSOlO 


LDY 


#$FF 


; Y:=-l 


25CE 


C8 






255 


ALDS020 


INY 




; WHILE (Y:=Y+1) < DSEGX 


25CF 


CC 


14 


25 


256 




CPY 


DSEGX 


; DO 


25D2 


BO 


OD 


25E1 


257 




BCS 


ALDS.EXIT 




25D4 


B9 


15 


25 


258 




LDA 


DSEGLIST, Y 


; PAGECT:=DSEGLIST (Y) 


25D7 


8D 


7E 


28 


259 




STA 


SEGPGCNT 




25DA 


00 






260 




BRK 




; FINDSEG (SRCHMODE=0 . IN, SEGID=3 . IN 


25DB 


41 






261 




DFB 


FINDSEG 


; PAGECT=DSEGLIST (Y) 


25DC 


7B 


28 




262 




DW 


SEGMENTl 


; BASE. OUT, LIMIT. OUT) 


25DE 


4C 


CE 


25 


263 




JMP 


ALDS020 




25E1 








264 


* 








25E1 


60 






265 


ALDS.EXIT 


RTS 




; RETURN 
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25E2: 267 

**************************************************************************************************** 



25E2 








268 


* 










25E2 








269 


* ERROR 


(IN: X 


^MESSAGE 


INDEX 




25E2 








270 




IN: Y 


"MESSAGE 


LENGTH 




25E2 








271 


♦ (DISPLAYS ERROR MESSAGE, SOUNDS 


BELL AND LOOPS UNTIL CONTROL/RESET PRESSED) 


25E2 








272 












*******j 


t * * * 


******* 


* * * * 


********* 


******* 


********* 


********* 


******************************************** 


25E2 






25E2 


273 


ERROR 


EQU 


* 






25E2 


84 


2E 




274 




STY 


ETEMP 




; CENTER MSG (Y:=LEN/2+LEN) 


25E4 


38 






275 




SEC 








25E5 


A9 


28 




276 




LDA 


#40 






25E7 


E5 


2E 




277 




SBC 


ETEMP 






25E9 


4A 






278 




LSR 


A 






25EA 


18 






279 




CLC 








25EB 


65 


2E 




280 




ADC 


ETEMP 






25ED 


A8 






281 




TAY 








25EE 








282 


* 










25EE 


BD 


05 


26 


283 


PRNTOlO 


LDA 


ERR, X 




; MOVE MESSAGE TO SCREEN MEMORY 


25F1 


99 


A7 


07 


284 




STA 


EMSGADR 


-1, Y 




25F4 


CA 






285 




DEX 








25F5 


88 






286 




DEY 








25F6 


C6 


2E 




287 




DEC 


ETEMP 






25F8 


DO 


F4 


25EE 


288 




BNE 


PRNTOlO 






25FA 








289 












25FA 


A9 


73 




290 




LDA 


#$73 




; E:=( 0.1.1.1:0.0.1.1 ) 


25FC 


8D 


DF 


FF 


291 




STA 


E.REG 




; ( l.I.S.R:W.P.R.S ) 


25FF 


AD 


40 


CO 


292 




LDA 


$C040 




; SOUND BELL 


2602 


4C 


02 


26 


293 




JMP 






; LOOP UNTIL REBOOT (CTRL/RESET) 
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2505: 


295 




* * * * * 


****************** 


**************** 


2605: 


296 


* 


2605: 


297 


* ERROR MESSAGES 


2605: 


298 


* 


2505: 


299 





2605 






07A8 


300 


EMSGADR 


EQU 


$7A8 




2605 








301 


* 








2605 






2605 


302 


ERR 


EQU 






2605 


49 


2F 


4F 20 


303 


ERRO 


ASC 


"I/O 


ERROR" 


260E 






0009 


304 


ERROL 


EQU 


*-ERRO 




260E 






0008 


305 


ERROX 


EQU 


*-ERR-l 




260E 


4 9 


4E 


54 45 


306 


ERRl 


ASC 


"INTERPRETER 


FILE NOT FOUND" 


2628 






OOIA 


307 


ERRIL 


EQU 


*-ERRl 




2628 






0022 


308 


ERRIX 


EQU 


*-ERR-l 




2628 


49 


4E 


56 41 


309 


ERR2 


ASC 


"INVALID 


INTERPRETER FILE" 


2640 






0018 


310 


ERR2L 


EQU 


*-ERR2 




2640 






003A 


311 


ERR2X 


EQU 


*-ERR-l 




2640 


49 


4E 


43 4F 


312 


ERR3 


ASC 


"INCOMPATIBLE 


INTERPRETER" 


2658 






0018 


313 


ERR3L 


EQU 


*-ERR3 




2658 






0052 


314 


ERR3X 


EQU 


*-ERR-l 




2658 


44 


52 


49 56 


315 


ERR4 


ASC 


"DRIVER 


FILE NOT FOUND" 


266D 






0015 


316 


ERR4L 


EQU 


*-ERR4 




2 6 6D 






0067 


317 


ERR4X 


EQU 


*-ERR-l 




2 66D 


49 


4E 


56 41 


318 


ERR5 


ASC 


"INVALID 


DRIVER FILE" 


2680 






0013 


319 


ERR5L 


EQU 


*-ERR5 




2680 






007A 


320 


ERR5X 


EQU 


*-ERR-l 




2680 


44 


52 


49 56 


321 


ERR 6 


ASC 


"DRIVER 


FILE TOO LARGE" 


2695 






0015 


322 


ERR6L 


EQU 


*-ERR6 




2695 






008F 


323 


ERR6X 


EQU 


*-ERR-l 




2695 


52 


4F 


4D 20 


324 


ERR7 


ASC 


"ROM 


ERROR: PLEASE NOTIFY 


2 6BA 






0025 


325 


ERR7L 


EQU 


*-ERR7 




2 6BA 






00B4 


326 


ERR7X 


EQU 


*-ERR-l 




2 6BA 


54 


4F 


4F 20 


327 


ERRS 


ASC 


"TOO 


MANY DEVICES" 


2 6CA 






0010 


328 


ERR8L 


EQU 


*-ERR8 




2 6CA 






O0C4 


329 


ERR8X 


EQU 


*-ERR-l 




2 6CA 


54 


4F 


4F 20 


330 


ERR 9 


ASC 


"TOO 


MANY BLOCK DEVICES" 


26E0 






0016 


331 


ERR9L 


EQU 


*-ERR9 




26E0 






OODA 


332 


ERR9X 


EQU 


*-ERR-l 




26E0 


45 


4D 


50 54 


333 


ERRIO 


ASC 


"EMPTY 


DRIVER FILE" 


2 6F1 






0011 


334 


ERRIOL 


EQU 


* -ERRIO 




26F1 






OOEB 


335 


ERRl OX 


EQU 


*-ERR-l 
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25F1 








337 










******** 


* * * 


******* 


**** 


***************** 


****************** 


*************** 


**************************** 


26F1 








338 


* 








26F1 








339 


* WELCOME 








26F1 








340 










26F1 








341 


* (PRINTS WELCOME MESSAGE - "APPLE 


III", VERSION, 


DATE/TIME, COPYRIGHT) 


26F1 








342 










******** 


* * * 


******* 


* * * * 


***************** 


****************** 


*************** 


**************************** 


26F1 






26F1 


343 


WELCOME EQU 








25F1 








344 


* 








26F1 








345 


* PRINT "APPLE 


III" MESSAGE 






26F1 








346 


* 








26F1 


AO 


09 




347 


LDY 


#AMSGL 






26F3 


B9 


96 


27 


348 


WAMOlO LDA 


AMSG-1, Y 






26F6 


99 


B6 


04 


349 


STA 


AMSGADR-1, Y 






26F9 


88 






350 


DEY 








2 6FA 


DO 


F7 


26F3 


351 


BNE 


WAMOlO 






26FC 








352 


* 








2 6FC 








353 


* PRINT SOS VERSION MESSAGE 






26FC 








354 


* 








26FC 


18 






355 


CLC 








26FD 


A9 


28 




356 


LDA 


#40 






26FF 


69 


00 




357 


ADC 


#>SOSVERL 






2701 


4A 






358 


LSR 


A 






2702 


AA 






359 


TAX 








2703 


AO 


00 




360 


LDY 


#>SOSVERL 






2705 


B9 


FF 


FF 


361 


WSMOlO LDA 


SOSVER-1, Y 






2708 


09 


80 




362 


ORA 


#$80 






270A 


9D 


A7 


05 


363 


STA 


SMSGADR-1, X 






270D 


CA 






364 


DEX 








270E 


88 






365 


DEY 








270F 


DO 


F4 


2705 


366 


BNE 


WSMOlO 






2711 








367 


* 








2711 








368 


* PRINT DATE AND TIME MESSAGE 






2711 








369 


* 








2711 


00 






370 


BRK 




; GET . TIME (TIME 


.OUT) 


2712 


63 






371 


DFB 


GETTIME 






2713 


93 


28 




372 


DW 


DTPARMS 






2715 








373 










2715 


AD 


9E 


28 


374 


LDA 


DATETIME+8 


; SET UP WEEKDAY 




2718 


29 


OF 




375 


AND 


#$0F 






271A 


FO 


6F 


278B 


376 


BEQ 


WDM040 


;N0 CLOCK 




271C 


85 


2F 




377 


STA 


WTEMP 






271E 


OA 






378 


ASL 


A 






271F 


65 


2F 




379 


ADC 


WTEMP 






2721 


AA 






380 


TAX 








2722 


AO 


03 




381 


LDY 


#3 






2724 


BD 


B4 


27 


382 


WDMOlO LDA 


DAYNAME-1, X 






2727 


99 


9F 


27 


383 


STA 


DMSG-1, Y 






272A 


CA 






384 


DEX 








272B 


88 






385 


DEY 








272C 


DO 


F6 


2724 


386 


BNE 


WDMOlO 






272E 








387 










272E 


AD 


90 


28 


388 


LDA 


DATETIME+7 


;SET UP DATE 




2731 


AE 


9C 


28 


389 


LDX 


DATETIME+6 






2734 


8D 


A6 


27 


390 


STA 


DMSG+6 






2737 


8E 


A5 


27 


391 


STX 


DMSG+5 






273A 








392 


* 
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07 SOSLDR.E 


' . SRC 


SOS 


1 . 1 SOS 


LOADER 






AUGUST- 


-2006 


273A; 


; AD 


9B 


28 


393 




LDA 


DATETIME+ 


5 


; SET 


UP MONTH 


273D; 


;29 


OF 




394 




AND 


#$0F 








273F: 


: AE 


9A 


28 


395 




LDX 


DATETIME+ 


4 






2742 : 


: EO 


31 




396 




CPX 


#$31 








2744 ; 


: 90 


02 


2748 


397 




BCC 


WDM020 








2746 : 


: 69 


09 




398 




ADC 


#9 








2748 : 


: 85 


2F 




399 


WDM02 


STA 


WTEMP 








274A; 


; OA 






400 




ASL 


A 








274B; 


: 55 


2F 




401 




ADC 


WTEMP 








274D; 


; AA 






402 




TAX 










274E; 


;A0 


03 




403 




LDY 


#3 








2750 ; 


:BD 


C9 


27 


404 


WDM030 


LDA 


MONNAME-1 


, X 






2753 : 


: 99 


A7 


27 


405 




STA 


DMSG+7, Y 








2756 : 


: CA 






406 




DEX 










2757 : 


: 88 






407 




DEY 










2758 ; 


:D0 


F6 


2750 


408 




BNE 


WDM030 








275A; 








409 


* 












275A; 


; AD 


99 


28 


410 




LDA 


DATETIME+3 


; SET 


UP YEAR 


275D; 


; AE 


98 


28 


411 




LDX 


DATETIME+2 






2760 ; 


: 8D 


AD 


27 


412 




STA 


DMSG+13 








2763: 


: 8E 


AC 


27 


413 




STX 


DMSG+12 








27 66; 








414 














2766; 


: AD 


AO 


28 


415 




LDA 


DATETIME+ 


10 


; SET 


UP HOUR 


2769; 


: AE 


9F 


28 


416 




LDX 


DATET1ME+ 


09 






276C; 


; 8D 


Bl 


27 


417 




STA 


DMSG+17 








276F; 


; 8E 


BO 


27 


418 




STX 


DMSG+16 








2772 ; 








419 


* 












2772 ; 


: AD 


A2 


28 


420 




LDA 


DATETIME+ 


12 


; SET 


UP MINUTE 


2775 ; 


: AE 


Al 


28 


421 




LDX 


DATETIME+ 


11 






2778 ; 


: 8D 


B4 


27 


422 




STA 


DMSG+20 








277B; 


: 8E 


B3 


27 


423 




STX 


DMSG+19 








277E; 








424 














277E; 


:A0 


15 




425 




LDY 


#DMSGL 




/PRINT DATE & ' 


2780 ; 


:B9 


9F 


27 


425 


WDM050 


LDA 


DMSG-1, Y 








2783 ; 


; 09 


80 




427 




ORA 


#$80 








2785 ; 


; 99 


BO 


06 


428 




STA 


DMSGADR-1 


, Y 






2788 ; 


: 88 






429 




DEY 










2789 ; 


;D0 


F5 


2780 


430 




BNE 


WDM050 








278B; 








431 


* 












278B; 








432 


* PRINT 


COPYRIGHT MESSAGE 








278B; 








433 














278B; 


:A0 


28 




434 


WDM040 


LDY 


#CMSGL 








278D; 


:B9 


ED 


27 


435 


WCMOlO 


LDA 


CMSG-1, Y 








2790; 


: 99 


CF 


07 


435 




STA 


CMSGADR-1 


, Y 






2793; 


:88 






437 




DEY 










2794; 


:D0 


F7 


278D 


438 




BNE 


WCMOlO 








2796; 


: 60 






439 




RTS 











PAGE 50 
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2797: 



2797 : 








442 


* 






2131 : 








443 


* WELCOME 


( ) - 


DATA DECLARATIONS 


2797 : 








444 


* 






2797 : 








445 








* * * * * 


* * 3l 


* * 


******** 


* * * * 


*********** 


* * * * * 


************************* 


2131 : 








446 




MSB 


ON 


2797 : 


CI 


DO 


DO CC 


447 


AMSG 


ASC 


"APPLE ///" 


2 7 AO : 






0009 


448 


AMSGL 


EQU 


*-AMSG 


2 7 AO : 






04B7 


449 


AMSGADR 


EQU 


40-AMSGL/2+$4A8 


2 7 AO : 








450 




MSB 


OFF 


2 7 AO : 






05A8 


451 


SMSGADR 


EQU 


S5A8 


2 7 AO: 


44 


41 


59 2C 


452 


DMSG 


ASC 


"DAY, DD-MON 


27B5: 






0015 


453 


DMSGL 


EQU 


*-DMSG 


27B5: 






06B1 


454 


DMSGADR 


EQU 


40-DMSGL/2+$6A8 


27B5: 


53 


55 


4E 4D 


455 


DAYNAME 


ASC 


" SUNMONTUEWEDTHUFRISAT " 


27CA: 


4A 


41 


4E 45 


455 


MONNAME 


ASC 


" JANFEBMARAPRMAYJUN" 


27DC: 


4A 


55 


4C 41 


457 




ASC 


" JULAUGSEPOCTNOVDEC" 


27EE: 








458 




MSB 


ON 


27EE: 


A8 


C3 


A9 Bl 


459 


CMSG 


ASC 


" (C) 1980, 1981, 1982 BY A 


2816: 






0028 


460 


CMSGL 


EQU 


*-CMSG 


2816: 






07D0 


461 


CMSGADR 


EQU 


40-CMSGL/2+$7D0 


2816: 








462 




MSB 


OFF 
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2815: 

****************** 

2816 
2816 
2816 
2816 



464 
* * * * * 

465 
466 
467 
468 

*********************** 



2816: 
2816: 

***************** 
2816 

2816 
2816 
2817 
2819 
281A 
281C 
281D 
281F 
2821 
2861 
2869 
2871 
*************** 



469 
470 
****■ 



***************************************************************************** 

* 

* SOS SYSTEM CALLS (1) 
* 

***************************************************************************** 

* OPEN (PATHNAME. IN, REFNUM.OUT, OPENLIST.IN, OPENCNT.IN) ** (ACCESS. IN, PAGES. IN, SYSBUF.IN) 
***************************************************************************** 







OOCB 


471 

472 


OPEN 
* 


EQU 


$C8 




04 






473 


OPEN . PARMS 


DFB 


$4 




21 


28 




474 




DW 


PATH 




00 






475 


OPEN . REF 


DFB 


$0 




ID 


28 




476 




DW 


OPEN. LIST 




04 






477 




DFB 


$4 




00 


04 




478 


OPEN. LIST 


DFB 


$0, $4 


; PAGES: =4 


06 


00 




479 




DW 


SYSBUF.P 








0040 


480 


PATH 


DS 


$40 


; PATHNAME BUFFER 


53 


4F 


53 20 


481 


I . LABEL 


ASC 


"SOS 


NTRP" ; FILE LABELS 


53 


4F 


53 20 


482 
483 


D . LABEL 


ASC 


"SOS 


DRVR" 



********************* 



2871 








484 


♦ READ (REFNUM. 


2871 








485 




******* 


* * * * 


******* 


* * * * 


**************** 


2871 






OOCA 


486 


READ EQU 


2871 








487 




2871 


04 






488 


READ. PARMS DFB 


2872 


00 






489 


READ. REF DFB 


2873 


04 


00 




490 


READ . BUF DW 


2875 


08 


Fl 




491 


READ . BYT DW 


2877 


00 


00 




492 


READ.BYTRD DW 


2879 








493 




******* 


* * * * 


******* 


* * * * 


**************** 


2879 








494 


* CLOSE (REFNUM 


287 9 








49b 





READ (REFNUM. IN, BUFFER. IN, BYTES. IN, BYTESREAD . OUT) 



2879 
2879 
2879 
287A 
287B 



**************** 



287B: 
287B: 



496 
497 
498 
499 
500 
t * * * ^ 

501 

502 



EQU $CC 



CLOSE. PARMS DFB $1 
CLOSE. REF DFB $0 



***************************************************************************** 

* FIND.SEG (SRCHMODE . IN, PAGES. IN, SEGID.IN, BASE. OUT, LIMIT. OUT, SEGNUM.OUT) 















287B 




0041 


503 


FINDSEG 


EQU 


$41 


287B 






504 


* 






287B 


06 




505 


SEGMENTl 


DFB 


$6 


287C 


00 


03 


506 


SEGSRCH 


DFB 


$0,$3 


287E 


GO 


OG 


507 


SEGPGCNT 


DW 


$0000 


2880 


GO 


OG 


508 




DW 


$0 


2882 


00 


00 


509 




DW 


$0 


2884 


00 




510 




DFB 


$0 



FIND.SEG (SRCHMODE, SEGID, PAGECT, BASE, LIMIT, SEGNUM) 
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2885: 512 

**************************************************************************************************** 

2885 
2885 



513 ♦ 

514 * SOS SYSTEM CALLS (2) 



2885 








515 


* 






2885 








515 








******** 


* * * * 


****** 


* * * * * 


********** 


********** 


* * * 


2885 








517 








******** 


* * * * 


****** 


* * * * * 


********** 


********** 


* * * 


2885 








518 


* REQUEST. 


SEG (BASE. 


IN, 


2885 








519 








******** 


* * * * 


****** 


* * * * * 


********** 


********** 


* * * 


2885 






0040 


520 


REQSEG 


EQU $40 




2885 








521 








2885 


04 






522 


SEGMENT 


DFB $4 




2886 


OF 


00 




523 


SEGBASE 


DFB $F, 


$0 


2888 


OF 


ID 




524 


SEGLIM 


DFB $F, 


$1D 


288A 


00 


00 




525 


SEGID 


DFB $0, 


$0 


288C 








525 








******** 


* * * * 


****** 


* * * * * 


********** 


********** 


* * * 



; REQUEST SEG FARM LIST 



288C: 527 * SET. PREFIX (PREFIXPATH . IN) 

288C: 528 

288C: 00C6 529 SETPREFIX EQU $C6 

288C:01 530 PREFX.PARMS DFB $1 

288D:8F 28 531 DW PREFX.PATH 

288F:03 532 PREFX.PATH DFB $3 

2890:2E 44 31 533 ASC '.Dl' 

2893: 534 

**************************************************************************************************** 
2893: 535 * GETTIME (TIME. OUT) 

2893: 536 

**************************************************************************************************** 



2893 
2893 
2893 
2894 
2896 



0053 537 GETTIME EQU $63 
538 * 

01 539 DTP ARMS DFB 1 

96 28 540 DW DATETIME 

59 59 59 59 541 DATETIME ASC " YYYYMMDDWHHMMSSMMM" 
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28A8: 

28A8 : 
28A8 : 
2 8 AS: 
28A8: 
****** 1 

28A8: 
28A8: 
28F8: 
2AF8 : 
2AF8 : 
2AF8 : 



543 

**************** 

544 
545 
546 
547 

**************** 



***************************************************************************** 



0050 
0050 
0200 
2AF8 

0EF8 



548 
549 
550 
551 

552 
553 



END OF SOSLDR CODE 



***********************************************************************i 
SLOP EQU >$F8-* 

DS SLOP 

KERNEL'S INIT MODULE RESIDES HERE 



* * * * * 



INITMODULE DS $200 
LDREND EQU * 

FILE EQU *-$2000+$400 



2AF8 : 
2AF8 : 
******) 

2AF8 : 
2AF8 : 
2AF8 : 



*********** 



0EF8 
OFOO 



bb4 
555 
t***i 

555 
557 
558 



SOS INTERPRETER FILE 



***************************************************************************** 



I. FILE EQU FILE 

I.HDR.CNT EQU I.FILE+$8 



**********************> 



* * * * * 



2AF8 : 
2AF8 : 

2AFf 
2AF8 : 
2AF8 : 
2AF8 : 
2AF8 : 
2AFE 

******! 



0EF8 
OFOO 
0F02 
0F14 
1324 



559 
560 

561 
562 
563 

564 
565 
566 



***********************************************************************^ 
* SOS DRIVER FILE 

***************************************************************************** 

D.FILE EQU FILE 

D.HDR.CNT EQU D.FILE+$8 

D. DRIVES EQU D.HDR.CNT+S2 

D.CHRSET EQU D . DRIVES+$2+S10 

D.KYBD EQU D . CHRSET+$10+$400 



********************************************************************************************* 



2AF8: 567 LST ON 

2AF8: 2AF8 568 ZZEND EQU * 

2AF8: 0CF8 569 ZZLEN EQU ZZEND-ZZORG 

2AF8: 570 * 

***** UNDEFINED IDENTIFIER ERROR IN LINE 571 

2AF8: 0CF8 571 IFNE ZZLEN-LENLODR ;!BITROT 

>>>>>>FAILURE : "SOSORG FILE IS INCORRECT FOR SOS LOADER" 

2AF8: 573 FIN 

2AF8: 574 * 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 56 of 456 



07 SYMBOL TABLE SORTED BY SYMBOL AUGUST-2006 PAGE 55 



1FD3 


ADEV.EXIT 


1F8A 


ADEVOlO 


IFDO 


ADEV020 


22BA 


ADVANCE 


25E1 


ALDS .EXIT 


25CC 


ALDSOlO 


25CE 


ALDS020 


1F79 


ALLOC . DEV 


25C0 


ALLOC . DSEG 


2 5 6A 


ALLOC . SEC 


04B7 


AMSGADR 


0009 


AMSGL 


2797 


AMSG 


FFEF 


B . REG 


X0016 


BFM. INIT 


X0017 


BFM. INIT2 


2505 


BLDSOlO 


2508 


BLDS020 


XOOll 


BLKD .SIZE 


X0012 


BLKDLST 


X0015 


BMGR. INIT 


24FD 


BUILD . DSEG 


X0013 


CFMGR. INIT 


2215 


CLEARO 


2217 


CLEARl 


X0018 


CLK. INIT 


2879 


CLOSE . PARMS 


OOCC 


CLOSE 


287A 


CLOSE. REF 


07D0 


CMSGADR 


27EE 


CMSG 


0028 


CMSGL 


26 


CNT 


IC 


CODE . P 


IBOO 


CSPAGE 


1600 


CXPAGE 


lAOO 


CZPAGE 


0F14 


D.CHRSET 


0F02 


D. DRIVES 


0EF8 


D.FILE 


OFOO 


D . HDR . CNT 


1324 


D . KYBD 


2869 


D . LABEL 


1E3C 


D . PATH 


23C2 


DADD 


238B 


DADVO 1 


237E 


DADVANCE 


2896 


DATETIME 


27B5 


DAYNAME 


20 


DIB . DCB 


17 


DIB . DTYPE 


02 


DIB . ENTRY 


14 


DIB . FLAGS 


14 


DIB . P 


1 6 


DIB . UNIT 


X0019 


DIBl 


XOOIA 


DIB2 


XOOIB 


DIB3 


XOOIC 


DIB4 


X0008 


DMGR. INIT 


2 7A0 


DMSG 


06B1 


DMSGADR 


0015 


DMSGL 


2515 


DSEGLIST 


2514 


DSEGX 


24 


DST.P 


2A 


DSTBANK 


2893 


DTPARMS 


FFDF 


E.REG 


07A8 


EMSGADR 


2605 


ERRO 


0009 


ERROL 


0008 


ERROX 


0011 


ERRIOL 


OOEB 


ERRIOX 


26E0 


ERRIO 


OOIA 


ERRIL 


0022 


ERRIX 


260E 


ERRl 


2628 


ERR2 


003A 


ERR2X 


2640 


ERR3 


0067 


ERR4X 


0013 


ERR5L 


2 66D 


ERR5 


2 605 


ERR 


0018 


ERR2L 


0018 


ERR3L 


0052 


ERR3X 


0015 


ERR4L 


2 658 


ERR4 


007A 


ERR5X 


2680 


ERR6 


0015 


ERR6L 


008F 


ERR6X 


2 695 


ERR7 


0025 


ERR7L 


00B4 


ERR7X 


00C4 


ERR8X 


2 6BA 


ERR8 


0010 


ERRBL 


26CA 


ERR9 


0016 


ERR9L 


OODA 


ERR9X 


25E2 


ERROR 


2E 


ETEMP 


X0007 


EVQ . INIT 


7 00 


FALSE 


0EF8 


FILE 


0041 


FINDSEG 


10 


FIRST .AD IB 


2 3DC 


FLAGO 1 


23E4 


FLAGO 1 5 


2403 


FLAG020 


241C 


FLAG025 


2431 


FLAG050 


2434 


FLAGIOO 


23DB 


FLAGS 


24C3 


GETM.EXIT 


2 4 AD 


GETMOlO 


248C 


GETMEM 


0063 


GETTIME 


02 


I . BASE . P 


0EF8 


I . FILE 


OFOO 


I .HDR. CNT 


2861 


I . LABEL 


lEOC 


I . PATH 


227B 


INIT.KRNL 


22B3 


INITK.ERR 


728F8 


INITMODULE 


X0006 


INT. INIT 


00 


K . BASE 


lEOA 


K. DRIVES 


71E00 


K.FILE 


71E0B 


K. FLAGS 


71E08 


K. HDR. CNT 


1E6C 


LDR . ADR 


71E6E 


LDR. CNT 


1FD6 


LDROlO 


2056 


LDR020 


2061 


LDR030 


2084 


LDR040 


20A7 


LDR050 


20 AD 


LDR051 


20B9 


LDR052 


20C0 


LDR053 


20F6 


LDR070 


2 OFF 


LDR080 


2115 


LDR0 90 


212B 


LDRIOO 


2131 


LDRlOl 


213D 


LDR102 


2144 


LDR103 


2198 


LDR105 


21C1 


LDRllO 


21D6 


LDR120 


21DD 


LDR130 


21E8 


LDR140 


2AF8 


LDREND 


2C 


LINK.P 


1F53 


LINKIOO 


1EF9 


LINK 


1F60 


LINK. INIT 


1F2B 


LINKOlO 


1F41 


LINK030 


X0009 


MAX . DNUM 


X0002 


MEMSIZE 


X0014 


MMGR. INIT 


27CA 


MONNAME 


1EB3 


MOVE 


1EF4 


MOVE. EXIT 


lEDC 


MOVE . PAGE 


1EC7 


MOVED 10 


1EE3 


MOVE020 


24FC 


NEWD.EXIT 


24DC 


NEWDOlO 


24C4 


NEWDST 


2436 


NEXT. DIB 


21 AO 


NEXTDRIVER 


244F 


NXTDOlO 


245D 


NXTD020 


2468 


NXTD030 


247E 


NXTD040 


248A 


NXTD998 


248B 


NXTD999 


281D 


OPEN . LIST 


2816 


OPEN. PARMS 


2819 


OPEN. REF 


00C8 


OPEN 


2821 


PATH 


16 


PG. ALIGN 


288C 


PREFX. PARMS 


288F 


PREFX.PATH 


12 


PREV.ADIB.P 


18 


PREVBANK 


19 


PRE YD ST 


25EE 


PRNTOlO 


*B3B0 


R 


04 RDBUF.P 


72873 READ.BUF 


72877 


READ . BYTRD 


72875 


READ . BYT 


OOCA 


READ 


2871 


READ . PARMS 


2872 


READ . REF 


20 


REL . END 


2569 


REL. EXIT 


2529 


REL . LOOP 


IE 


REL.P 


2519 


RELOC 


0040 


REQSEG 


237D 


REV. EXIT 


OC 


REV . SAVE 


2333 


REVO 10 


2339 


REVO 20 


22FE 


REVERSE 


F1B9 


ROM. ADR 


AO 


ROM. ID 


2586 


RSEG 


25BB 


RSEGOlO 


X0003 


SCRNMODE 


XOOOE 


SDT.ADRH 


XOOOD 


SDT.ADRL 


XOOOF 


SDT . BANK 
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xoooc 


SDT.DIBH 


XOOOB 


SDT.DIBL 


XOOOA 


SDT.SIZE 


XOOlO 


SDT.UNIT 


2886 


SEGBASE 


2 88A 


SEGID 


2888 


SEGLIM 


2885 


SEGMENT 


287B 


SEGMENT 1 


287E 


SEGPGCNT 


?287C 


SEGSRCH 


2232 


SET . DRIVE: 


00C6 


SETPREFIX 


1E73 


SLDROlO 


50 


SLOP 


05A8 


SMSGADR 


1E70 


SOSLDR 


1FD4 


SOSLDRl 


X0005 


SOSVERL 


X0004 


SOSVER 


22 


SRC.P 


0100 


SSPAGE 


225F 


STDROlO 


2266 


STDR020 


226D 


STDR030 


2274 


STDR040 


1400 


SXPAGE 


XOOOl 


SYSBANK 


06 


SYSBUF.P 


1800 


SZPAGE 


09 


TEMP .AD RH 


08 


TEMP . BANK 


? 80 


TRUE 


2376 


V040 


2225 


WAIT 


1F28 


WALKLINKS 


26F3 


WAMOlO 


278D 


WCMOlO 


2724 


WDMOlO 


2748 


WDM020 


2750 


WDM030 


278B 


WDM040 


2780 


WDM050 


26F1 


WELCOME 


OA 


WORK . P 


2705 


WSMOlO 


2F 


WTEMP 


0000 


Y 


FFDO 


Z .REG 


00 


ZPAGE 


2AF8 


ZZEND 


0CF8 


ZZLEN 


lEOO 


ZZORG 
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ERROR SUMMARY 

UNDEFINED IDENTIFIER ERROR IN LINE 571 OF FILE # 07 
UNDEFINED IDENTIFIER ERROR IN LINE 571 OF FILE # 07 

3 ERRORS IN THIS ASSEMBLY 
** ASSEMBLER CREATED ON 30-APR-85 22:45 
** TOTAL LINES ASSEMBLED 2175 
** FREE SPACE PAGE COUNT 7 3 
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SOURCE FILE #01 =>INIT.SRC 

INCLUDE FILE #02 =>SOSORG 
***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 186 

***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 229 

***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 429 

***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 431 

***** EXTRN USED AS ZXTRN IN LINE 433 

***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 434 

***** EXTRN USED AS ZXTRN IN LINE 441 

***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 442 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 




6955 


55 


BLACFM EQU BLAFMGR+LENFMGR ; BLOAD ADDRES 


0000 




6B52 


56 


BLABUFMG EQU BLACFM+LENCFM ; BLOAD ADDRES 


0000 




6E6E 


57 


BLAMEMMG EQU BLABUFMG+LENBUFMG ; BLOAD ADDRE 


0000 






58 








****** 






********************************************** 


28F8 




28F8 


4 




ORG ORGINIT 


28F8 




28F8 


5 


ZZORG EQU * 


28F8 






6 




MSB OFF 


28F8 






7 






************ 


****** 


* * * * * 


* * 


********************************************** 


28F8 






g 


* 


COPYRIGHT (C) APPLE COMPUTER INC. 19 


28F8 






9 


* 


ALL RIGHTS RESERVED 


28F8 






10 








****** 




** 




28F8 






11 






28F8 






12 


-1, 


SOS INIT MODULE (VERSION ^1.10 ) 


28F8 






13 


* 


(DATE = 8/04/81) 


28F8 






14 


* 




28F8 






15 






************ 


****** 


* * * * * 


* * 


********************************************** 


28F8 






16 


* 




28F8 




28F8 


17 




ENTRY INT. INIT 


28F8 




2 98B 


18 




ENTRY EVQ.INIT 


28F8 




2 9A8 


19 




ENTRY CLK.INIT 


28F8 




2 A3 5 


20 




ENTRY MMGR.INIT 


28F8 




2A22 


21 




ENTRY BMGR.INIT 


28F8 




2A07 


22 




ENTRY DMGR.INIT 


28F8 




29FB 


23 




ENTRY CFMGR.INIT 


28F8 




2A6A 


24 




ENTRY BFM.INIT 


28F8 






25 


* 




28F8 






26 


* 


EXTERNAL SUBROUTINES & DATA 


28F8 






27 


* 




28F8 




0000 


28 




EXTRN SXPAGE 


28F8 




0000 


29 




EXTRN SYSDEATH 


28F8 






30 


* 




28F8 






31 


* 


INTERRUPT SYSTEM INITIALIZATION 


28F8 






32 


* 




28F8 




0000 


33 




EXTRN COLDSTRT 


28F8 




0000 


34 




EXTRN IRQ.RCVR 


28F8 




0000 


35 




EXTRN NMI . RCVR 


28F8 




0000 


36 




EXTRN NMIFLAG 


28F8 




0000 


37 




EXTRN SIRTABLE 


28F8 




0000 


38 




EXTRN SIRTBLSIZ 


28F8 




0000 


39 




EXTRN ZPGSTACK 


28F8 




0000 


40 




EXTRN ZPGSTART 


28F8 






41 


* 




28F8 






42 


* 


EVENT QUEUE INITIALIZATION 


28F8 






43 


* 




28F8 




0000 


44 




EXTRN EV. QUEUE 


28F8 




0000 


45 




EXTRN EVQ.LEN 


28F8 




0000 


46 




EXTRN EVQ.CNT 


28F8 




0000 


47 




EXTRN EVQ.SIZ 


28F8 




0000 


48 




EXTRN EVQ.FREE 


28F8 




0000 


49 




EXTRN EVQ.LINK 


28F8 






50 


* 




28F8 






51 


* 


CLOCK INITIALIZATION 


28F8 






52 


* 




28F8 




0000 


53 




EXTRN PCLOCK 


28F8 






54 


* 




28F8 






55 


* 


CHARACTER FILE MANAGER INITIALIZATION 
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28F8 




55 


* 






28F8 


0000 


57 






EXTRN CFCB.MAX 


28F8 


0000 


58 






EXTRN CFCB.DEV 


28F8 




59 








28F8 




60 




DEVICE 


MANAGER INITIALIZAT 


28F8 




61 








28F8 


0000 


62 






EXTRN DMGR 


28F8 


0000 


63 






EXTRN MAX.DNUM 


28F8 




64 


* 






28F8 




65 


* 


BUFFER 


MANAGER INITIALIZAT 


28F8 




65 


* 






28F8 


0000 


67 






EXTRN BUF . CNT 


28F8 


0000 


68 






EXTRN PGCT.T 


28F8 


0000 


69 






EXTRN XBYTE . T 


28F8 


0000 


70 






EXTRN BUFREF 


28F8 




71 


* 






28F8 




72 


* 


MEMORY 


MANAGER INITIALIZAT 


28F8 




73 


* 






28F8 


0000 


74 






EXTRN ST. CNT 


28F8 


0000 


75 






EXTRN ST. ENTRY 


28F8 


0000 


76 






EXTRN ST. FREE 


28F8 


0000 


77 






EXTRN ST.FLINK 


28F8 


0000 


78 






EXTRN VRT.LIM 


28F8 


0000 


79 






EXTRN MEMSIZE 


28F8 


0000 


80 






EXTRN MEM2SML 


28F8 




81 


* 






28F8 




82 


* 


BLOCK FILE MANAGER INITIAL 


28F8 




83 








28F8 


0000 


84 






EXTRN FCBZPP 


28F8 


0000 


85 






EXTRN PATHBUF 


28F8 


0000 


86 






EXTRN VCB 


28F8 


0000 


87 






EXTRN WORKSPC 


28F8 


0000 


88 






EXTRN PFIXPTR 


28F8 


0000 


89 






EXTRN FCBADDRH 


28F8 


0000 


90 






EXTRN BMAPAGE 


28F8 


0000 


91 






EXTRN BMBPAGE 


28F8 


0000 


92 






EXTRN BMAMADR 


28F8 


0000 


93 






EXTRN BMBMADR 


28F8 


0000 


94 






EXTRN BFMFCBl 


28F8 


0000 


95 






EXTRN BFMFCB2 


28F8 




95 


* 






28F8 




97 


* 


CONSTANT DECLARATIONS 


28F8 




98 


* 






28F8 


0080 


99 


TRUE 


EQU $80 


28F8 


0000 


100 


FALSE 


EQU $00 


28F8 


0040 


101 


B 


IT0N6 


EQU $40 


28F8 


0080 


102 


B 


IT0N7 


EQU $80 


28F8 




103 








28F8 




104 


* 


SYSTEM 


CONTROL REGISTERS 


28F8 




105 


A 






28F8 


FFDF 


105 


E 


.REG 


EQU $FFDF 


28F8 


FFDO 


107 


Z 


.REG 


EQU $FFDO 



/ENVIRONMENT REGISTER 
;ZERO PAGE REGISTER 
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28F8 








109 


* 










28F8 








110 


* 


6522 


REGISTERS 




28F8 








111 












28F8 






FFD2 


112 


D 


. DDRB 


EQU 


$FFD2 




28F8 






FFD3 


113 


D 


. DDRA 


EQU 


$FFD3 




28F8 






FFDB 


114 


D 


. ACR 


EQU 


$FFDB 




28F8 






FFDC 


115 


D 


. PCR 


EQU 


$FFDC 




28F8 






FFDD 


115 


D 


. IFR 


EQU 


$FFDD 




28F8 






FFDE 


117 


D 


. lER 


EQU 


$FFDE 




28F8 






FFEO 


118 


E 


. lORB 


EQU 


$FFEO 




2 8F8 






FFE2 


119 


E 


.DDRB 


EQU 


$FFE2 




28F8 






FFE3 


120 


E 


.DDRA 


EQU 


$FFE3 




28F8 






FFEB 


121 


E 


.ACR 


EQU 


$FFEB 




28F8 






FFEC 


122 


E 


.PCR 


EQU 


$FFEC 




28F8 






FEED 


123 


E 


. IFR 


EQU 


$FFED 




28F8 






FFEE 


124 


E 


. lER 


EQU 


$FFEE 




28F8 






COFl 


125 


ACIASTAT 


EQU 


SCOFl 




28F8 








125 


* 










28F8 








127 


* 










28F8 








128 


* 


******* 


******** 


************** 


****************************** 


28F8 








129 












28F8 








130 




THIS 


SUBROUTINE INITIALIZES 


THE INTERRUPT SYSTEM. 


28F8 








131 




ALL HARDWARE 


INTERRUPTS ARE 


MASKED AND THE 


28F8 








132 




INTERRUPT ALLOCATION TABLE 


IS CLEARED. 


28F8 








133 












28F8 








134 




******* 


******** 


************** 


****************************** 


28F8 








135 


* 










28F8 








136 












28F8 






28F8 


137 


INT.INIT 


EQU 






28F8 


78 






138 






SEI 




/DISABLE INTERRUPTS 


28F9 


A9 


00 




139 






LDA 


#>ZPGSTART 


;SET UP MIH 


28FB 


8D 


00 


00 


140 






STA 


ZPGSTACK 


ZERO PAGE STACK POINTER 


28FE 








141 


* 










28FE 


AD 


DF 


FF 


142 






LDA 


E.REG 


/SELECT $C000 I/O SPACE 


2901 


48 






143 






PHA 




; AND SET 1 MHZ 


2902 


09 


CO 




144 






ORA 


#BITON7+BITON5 


2904 


8D 


DF 


FF 


145 






STA 


E.REG 




2907 








146 












2907 


8D 


Fl 


CO 


147 






STA 


ACIASTAT 


; RESET AC I A 


290A 








148 












2 9 OA 


A9 


FF 




149 






LDA 


#$FF 


;SET UP 6522 D 


290C 


8D 


D2 


FF 


150 






STA 


D . DDRB 




290F 


8D 


D3 


FF 


151 






STA 


D.DDRA 




2912 


A9 


00 




152 






LDA 


#$00 




2914 


8D 


DB 


FF 


153 






STA 


D.ACR 




2917 


A9 


76 




154 






LDA 


#$76 




2919 


8D 


DC 


FF 


155 






STA 


D.PCR 




291C 


A9 


7F 




156 






LDA 


#$7F 




291E 


8D 


DD 


FF 


157 






STA 


D . IFR 




2921 


8D 


DE 


FF 


158 






STA 


D . lER 




2924 


A9 


82 




159 






LDA 


#$82 




2926 


8D 


DE 


FF 


160 






STA 


D. lER 




2929 








161 












2929 


A9 


3F 




162 






LDA 


#$3F 


;SET UP 5522 E 


292B 


8D 


E2 


FF 


163 






STA 


E . DDRB 




292E 


A9 


OF 




164 






LDA 


#$0F 
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2930 


8D 


E3 


FF 


165 


STA 


E.DDRA 


2933 


A9 


00 




166 


LDA 


#$00 


2935 


8D 


EB 


FF 


1 67 


STA 


E . ACR 


2938 


A9 


63 




168 


LDA 


#S63 


293A 


8D 


EC 


FF 


169 


STA 


E . PCR 


293D 


A9 


7F 




170 


LDA 


#S7F 


2 93F 


8D 


ED 


FF 


171 


STA 


E . IFR 


2942 


8D 


EE 


FF 


172 


STA 


E . lER 


2945 








173 * 






2945 


A9 


FF 




174 


LDA 


#$FF 


2947 


8D 


EO 


FF 


175 


STA 


E . lORB 


2 94A 


2C 


D8 


CO 


176 


BIT 


SC0D8 


294D 


2C 


DA 


CO 


177 


BIT 


$CODA 


2950 


2C 


DC 


CO 


178 


BIT 


$CODC 


2953 


2C 


DE 


CO 


179 


BIT 


$CODE 


2956 








180 * 






2956 


68 






181 


PLA 




2957 


8D 


DF 


FF 


182 


STA 


E.REG 


295A 








183 * 






2 95A 


A9 


00 




184 


LDA 


#FALSE 


295C 


8D 


00 


00 


185 


STA 


NMIFLAG 



SOUND PORT 

DISABLE GRAPHICS SCROLL 
DISABLE CHARACTER DOWNLOAD 
DISABLE ENSEL 
SET ENSIO FOR INPUT 

.•RESTORE E REGISTER 



.•CLEAR NMI WAIT FLAG 



RELATIVE EXPRSN OPERATOR ERROR IN LINE 



295F 


AC 


00 


GO 


186 




LDY 


#>SIRTBLSIZ-1 




2962 


99 


00 


00 


187 


INTIOlO 


STA 


SIRTABLE, Y 


; ALLOCATION TABLE 


2965 


88 






188 




DEY 






2966 


10 


FA 


2962 


189 




BPL 


INTIOlO 




2968 


A9 


80 




190 




LDA 


#TRUE 




2 9 6A 


8D 


OA 


00 


191 




STA 


SIRTABLE+$OA 


;LOCK DOWN ANY SLOT SIR 


296D 








192 










296D 


A2 


05 




193 




LDX 


#S05 




296F 


BD 


7F 


29 


194 


INTI020 


LDA 


RAMVECT, X 


;SET UP VECTORS 


2972 


9D 


FA 


FF 


195 




STA 


$FFFA, X 


; AT $FFFA - $FFFF 


2975 


BD 


85 


29 


196 




LDA 


RAMJMPS, X 


;SET UP JMP INSTRUCTIONS 


2978 


9D 


CA 


FF 


197 




STA 


$FFCA, X 


; AT $FFCA - $FFCF 


297B 


CA 






198 




DEX 






297C 


10 


Fl 


296F 


199 




BPL 


INTI020 




297E 


60 






200 




RTS 






297F 








201 










297F 


00 


00 




202 


RAMVECT 


DW 


NMI . RCVR 




2981 


00 


00 




203 




DW 


COLDSTRT 




2983 


00 


00 




204 




DW 


IRQ. RCVR 




2985 


4C 


00 


00 


205 


RAMJMPS 


JMP 


NMI . RCVR 




2988 


4C 


00 


00 


206 




JMP 


IRQ. RCVR 
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298B 






208 


****************************** 


298B 






209 


* 


298B 






210 


* THIS SUBROUTINE INITIALIZES 


298B 






211 


* ARE CLEARED AND LINKED INTO 


298B 






212 


* LIST IS EMPTY. 


298B 






213 




298B 






214 


****************************** 


298B 






215 


* 


298B 






215 


* 


298B 




298B 


217 


EVQ.INIT EQU * 


298B 






218 


* 


298B 






219 


* CLEAR ALL ENTRIES 


298B 






220 


* 


298B 


AO 


00 


221 


LDY #>EVQ.LEN 


298D 


A9 


00 


222 


LDA #0 


298F 


99 


FF FF 


223 


EVQIOlO STA EV.QUEUE-1,Y 


2992 


88 




224 


DEY 


2993 


DO 


FA 298F 


225 


BNE EVQIOlO 


2995 






225 


* 


2995 






227 


* SET UP FREE LIST 


2995 






228 


* 



THE ACTIVE 





* RELAT 


IVE EXPRSN OPERATOR 


ERROR IN 


LINE 229 


2995 


: AE 


00 


00 


229 


LDX 


#>EVQ.CNT-2 


2998 


:A9 


00 




230 


LDA 


#>EVQ.SIZ 


299A 


:8D 


00 


00 


231 


STA 


EVQ . FREE 


299D 


:A8 






232 EVQI020 


TAY 




299E 


:18 






233 


CLC 




299F 


: 69 


00 




234 


ADC 


#>EVQ.SIZ 


2 9A1 


: 99 


00 


00 


235 


STA 


EVQ. LINK, Y 


2 9A4 


:CA 






236 


DEX 




2 9A5 


:D0 


F6 


299D 


237 


BNE 


EVQI020 


2 9A7 


: 50 






238 


RTS 
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2 9A8 








240 


********** 


****** 


************** 


* * * * 


************************** 


2 9A8 








241 


* 










2 9A8 








242 


* THIS SUBROUTINE INITIALIZES 


THE 


PSEUDO CLOCK. IF THE 


2 9A8 








243 


* RAM BEHIND THE "D" 6522 HAS 


THE 


PROPER CHECKSUM, IT 


2 9A8 








244 


* IS USED 


TO INITIALIZE THE PSEUDO CLOCK. OTHERWISE, 


2 9A8 








245 


* THE PSEUDO CLOCK IS SET TO 


ZERO 




2 9A8 








246 












2 9A8 








247 


* (ADDED 23 OCT 


81) 






2 9A8 








248 


* BOTH THE 


CLOCK 


AND PSEUDO CLOCK 


ARE 


2 9A8 








249 


* ARE NOW 


INITIALIZED 






2 9A8 








250 


* 










2 9A8 








251 


********** 


****** 


************** 


* * * * 


************************** 


2 9A8 








252 












2 9A8 






OOFO 


253 


PCLK 


EQU 


$F0 






2 9A8 






00F2 


254 


CKSUM 


EQU 


$F2 






2 9A8 






0011 


255 


CLKICR 


EQU 


$11 




; CLOCK INTERRUPT CONTROL 


29A8 






0016 


255 


CLKSTBY 


EQU 


$16 




; CLOCK STANDBY INTERRUPT 


2 9A8 






C070 


257 


CLOCK 


EQU 


$C070 






29A8 








258 


* 










2 9A8 






29A8 


259 


CLK. INIT 


EQU 


* 






2 9A8 


A9 


DO 




2 60 




LDA 


#$D0 






2 9AA 


85 


FO 




2 61 




STA 


PCLK 




; POINT (PCLK) TO 8F:FFD0 


2 9AC 


A9 


FF 




2 62 




LDA 


#$FF 






2 9AE 


85 


Fl 




263 




STA 


PCLK+1 






29B0 


A9 


8F 




2 64 




LDA 


#$8F 






2 9B2 


8D 


Fl 


00 


265 




STA 


SXPAGE+PCLK+1 






2 9B5 


A9 


A5 




266 




LDA 


#$A5 






29B7 


85 


F2 




2 67 




STA 


CKSUM 




; INITIALIZE CHECKSUM 


29B9 








2 68 












29B9 


AO 


00 




269 




LDY 


#$00 






2 9BB 


Bl 


FO 




270 


CLKOlO 


LDA 


(PCLK) , Y 




;COPY SAVED CLOCK DATA 


2 9BD 


99 


00 


00 


271 




STA 


PCLOCK, Y 




; TO PSEUDO CLOCK 


29C0 


45 


F2 




272 




EOR 


CKSUM 






2 9C2 


85 


F2 




273 




STA 


CKSUM 




/UPDATE CHECKSUM 


2 9C4 


C8 






274 




INY 








2 9C5 


CO 


OA 




275 




CPY 


#$0A 






29C7 


90 


F2 


2 9BB 


276 




BCC 


CLKOlO 






29C9 








277 


J, 










29C9 


Dl 


FO 




278 




CMP 


(PCLK) , Y 




; TEST CHECKSUM 


29CB 


FO 


08 


29D5 


279 




BEQ 


CLK030 






2 9CD 








280 












29CD 


A9 


00 




281 




LDA 


#$00 






2 9CF 


88 






282 


CLK020 


DEY 








29D0 


99 


00 


00 


283 




STA 


PCLOCK, Y 




;ZERO PSEUDO CLOCK 


29D3 


DO 


FA 


29CF 


284 




BNE 


CLK020 






29D5 


AD 


DF 


FF 


285 


CLK030 


LDA 


E.REG 






29D8 


48 






286 




PHA 








29D9 


09 


80 




287 




ORA 


#$80 




; SET 1 MHZ 


2 9DB 


8D 


DF 


FF 


288 




STA 


E.REG 






2 9DE 


A9 


00 




289 




LDA 


#$00 






29E0 


AC 


DO 


FF 


290 




LDY 


Z.REG 






29E3 


A2 


11 




291 




LDX 


#CLKICR 






29E5 


8E 


DO 


FF 


292 




STX 


Z.REG 






29E8 


8D 


70 


CO 


293 




STA 


CLOCK 




; DISABLE CLOCK INTERRUPTS 


2 9EB 


A2 


16 




294 




LDX 


#CLKSTBY 






2 9ED 


8E 


DO 


FF 


295 




STX 


Z.REG 
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29F0 


8D 


70 CO 


296 


STA 


CLOCK ; DISABLE STANDBY INTERRUPT 


29F3 


8C 


DO FF 


297 


STY 


Z.REG 


29F6 


68 




298 


FLA 




29F7 


8D 


DF FF 


299 


STA 


E.REG 


2 9FA 


60 




300 


RTS 




***** DIRECTIVE OPERAND 


ERROR IN LINE 


301 


2 9FB 






301 


SBTL 


"CHARACTER FILE MANAGER INITIALIZATION" 


2 9FB 






302 


**************** 


******************************************** 


2 9FB 






303 


* 




2 9FB 






304 


* CHAR FILE MANAGER INITIALIZATION ROUTINE 


2 9FB 






305 






2 9FB 






306 


* CFMGR.INIT INITIALIZES ALL ENTRIES IN THE CFCB TABLE TO 


2 9FB 






307 


* THE "FREE" STATE. 


2 9FB 






308 


* 




2 9FB 






309 


**************** 


******************************************** 


2 9FB 






310 


* 




2 9FB 




29FB 


311 


CFMGR.INIT EQU 




29FB 


A9 


80 


312 


LDA 


#$80 


2 9FD 


A2 


FF 


313 


LDX 


#CFCB.MAX-1 


2 9FF 


9D 


00 00 


314 


CFINITOlO STA 


CFCB.DEV,X 


2A02 


CA 




315 


DEX 




2 AO 3 


10 


FA 29FF 


316 


BPL 


CFINITOlO 


2 AO 5 


60 




317 


RTS 
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2A0 6; 








319 


********* 


******* 


**************** 


**************************** 


2A0 6 ; 








320 


* 








2A06 ; 








321 


♦ DEVICE 


MANAGER 


INITIALIZATION 


ROUTINE 


2A06 ; 








322 










2A0 6 : 








323 


* INITIALIZES THE SYSTEM DEVICE 


TABLE (SDT) BY WALKING THE 


2A0 6 : 








324 


* DEVICE 


INFORMATION BLOCK (DIB) 


LINKS. CALLED BY SYSLDR. 


2A0 6 ; 








325 


* 








2A0 6; 








326 


********* 


******* 


**************** 


**************************** 


2A0 5; 








327 


* 








2A0 5; 






OOCO 


328 


D . TPARMX 


EQU 


SCO 




2A0 6 ; 






COCO 


329 


REQCODE 


EQU 


D.TPARMX+$00 




2A0 6 : 






OOCl 


330 


DNUM 


EQU 


D.TPARMX+$01 




2A0 6 ; 






0001 


331 


DNUM . TEMP 


DS 


1 




2A07 ; 








332 










2A07 ; 








333 










2 AO 7 ; 






2 AO 7 


334 


DMGR. INIT 


EQU 






2 AO 7 ; 


: AE 


00 


00 


335 




LDX 


MAX . DNUM 




2 AO A; 


: EE 


00 


00 


336 




INC 


MAX . DNUM 


; MAX . DNUM : =MAX DEV NUMBER IN SYSTEM+1 


2A0D; 


:8E 


05 


2A 


337 




STX 


DNUM. TEMP 




2A10; 


:A9 


08 




338 


DMIllO 


LDA 


#8 


; INITIALIZE ALL DEVICES IN SYSTEM (D.INIT) 


2A12 ; 


:85 


CO 




339 




STA 


REQCODE 




2A14 : 


: AD 


06 


2A 


340 




LDA 


DNUM. TEMP 




2A17 ; 


: 85 


CI 




341 




STA 


DNUM 




2A19; 


:20 


00 


GO 


342 




JSR 


DMGR 




2A1C: 


:CE 


06 


2A 


343 




DEC 


DNUM. TEMP 




2A1F; 


:D0 


EF 


2A10 


344 




BNE 


DMIllO 




2A21; 


: 60 






345 




RTS 




; NORMAL EXIT 
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2A22 ; 








347 


*************** 


*************** 


****************************** 


2A22 ; 








348 


* 






2A22 ; 








349 


♦ BMGR.INIT 






2A22 ; 








350 








2A22 ; 








351 


* THIS ROUTINE 


INITIALIZES THE 


BUFFER TABLE'S ENTRIES TO "FREE". 


2A22 ; 








352 


* CALLED DURING 


SYSTEM BOOT. 




2A22 ; 








353 








2A22 ; 








354 


*************** 


*************** 


****************************** 


2A22 ; 








355 


* 






2A22 ; 






2A22 


355 


BMGR.INIT EQU 


* 




2A22 ; 


;A9 


FF 




357 


LDA 


#$FF 


; USED WHEN FINDING LOWEST BUFFER IN 


2A24 ; 


: 8D 


00 


00 


358 


STA 


XBYTE . T 




2A27 ; 








359 








2A27 ; 


: A2 


FF 




360 


LDX 


#BUF . CNT-1 




2A29; 


:A9 


80 




361 


LDA 


#$80 




2A2B; 


: 9D 


00 


00 


362 


BUFIOlO STA 


PGCT.T,X 


;SET ALL ENTRIES "FREE" 


2A2E; 


:CA 






363 


DEX 






2A2F; 


:D0 


FA 


2A2B 


364 


BNE 


BUFIOlO 




2A31; 








365 


* 






2A31; 


:8E 


00 


00 


366 


STX 


BUFREF 


;ZERO COUNT BYTE IN BUFFER REFERENCE 


2 A3 4 ; 








367 


* 






2 A3 4 ; 


: 18 






368 


CLC 






2 A3 5; 


; 60 






369 


RTS 
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2 A3 5 








371 


*************** 


********************************************* 


2 A3 6 








372 


* 




2 A3 6 








373 


* MMGR.INIT 




2 A3 6 








374 






2A36 








375 


♦ THIS ROUTINE 


INITIALIZES THE MEMORY MANAGER'S SEGMENT TABLE 


2A36 








376 


* TO FREE ENTRIES, AND DETERMINES THE MEMORY SIZE OF THE 


2 A3 6 








377 


* MACHINE (96K, 


128K, 160K, 192K, 224K, 256K, . . , 512K IN 32K STEPS) 


2 A3 6 








378 


* 




2 A3 5 








379 


*************** 


********************************************* 


2 A3 6 








380 


* 




2 A3 6 






2 A3 6 


381 


MMGR.INIT EQU 


* 


2A3 6 








382 


* 




2A36 








383 


* INIT SEGMENT 


TABLE 


2A3 6 








384 






2A3 6 


A9 


00 




385 


LDA 


#0 


2 A3 8 


8D 


00 


00 


386 


STA 


ST. ENTRY 


2A3B 


A9 


81 




387 


LDA 


#$81 


2A3D 


8D 


00 


00 


388 


STA 


ST. FREE 


2A40 








389 


* 




2A40 


AO 


FF 




390 


LDY 


#ST.CNT-1 


2A42 


A9 


80 




391 


LDA 


#$80 ; SET LAST LINK TO NULL 


2A44 


99 


00 


00 


392 


STA 


ST.FLINK, Y 


2A47 


98 






393 


MEMIOlO TYA 




2A48 


09 


80 




394 


ORA 


#$80 


2A4A 


88 






395 


DEY 




2A4B 


99 


00 


00 


396 


STA 


ST.FLINK, Y 


2A4E 


DO 


F7 


2A47 


397 


BNE 


MEMIOlO 


2A50 








398 






2A50 








399 


* COMPUTE VIRTUAL LIMIT FROM MEMORY SIZE 


2A50 








400 


♦ VRT.LIM := NUMBER OF PAGES IN BANK SWITCHED MEMORY - 1 


2A50 








401 


* := (MEMSIZ-2) *64 - 1 


2A50 








402 


* := (MEMSIZ-4) *64 + 127 


2A50 








403 


* 




2A50 


38 






404 


SEC 




2A51 


AD 


00 


00 


405 


LDA 


MEMSIZE 


2A54 


E9 


04 




406 


SBC 


#4 


2A5 6 


90 


OD 


2A65 


407 


BCC 


MEMI . ERR 


2A58 


4A 






408 


LSR 


A 


2A5 9 


4A 






409 


LSR 


A 


2A5A 


8D 


01 


00 


410 


STA 


VRT.LIM+1 


2A5D 


A9 


FE 




411 


LDA 


#$FE 


2A5F 


6A 






412 


ROR 


A 


2A60 


8D 


00 


00 


413 


STA 


VRT.LIM 


2A63 


18 






414 


CLC 




2A64 


60 






415 


RTS 


; NORMAL EXIT 


2A65 








416 


* 




2A65 


A9 


00 




417 


MEMI . ERR LDA 


#MEM2SML ; FATAL ERR - MEM < 64K 


2A67 


20 


00 


00 


418 


JSR 


SYSDEATH 
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2A6A: 
2A6A: 

2A6A: 
2A6A: 
2A6A: 
2A6A: 
2A6A: 
2A6A: 

2A6A:A9 00 



1400 
2A5A 



420 *********************************************************** 

421 * 

422 * BLOCK FILE MANAGER INITIALIZATION 

423 ♦ 

424 *********************************************************** 

425 * 

426 SISTER EQU $1400 

427 BFM.INIT EQU * 

428 LDA #BFMFCB1 



;BFM XPAGE 

; ADDRESS OF PAGE 1 OF FOB 



***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 429 
2A6C:8D 00 00 429 STA >FCBZPP+1 

2A6F:A9 00 430 LDA #BFMFCB2 



; AND PAGE 2 



***** RELATIVE EXPRSN OPERATOR ERROR IN LINE 431 
2A71:8D 00 00 431 STA >FCBZPP + 3 

2A74:A9 00 432 LDA #0 



***** EXTRN USED AS ZXTRN IN LINE 433 
2A76:85 00 433 STA 



FCB PAGE ALIGNED 



RELATIVE EXPRSN OPERATOR ERROR IN LINE 434 



2A7 8 
2A7B 
2A7E 
2A81 
2A82 
2A82 
2A85 



A8 



00 00 

01 14 
03 14 



00 00 
00 00 



434 
435 
436 
437 
438 
439 
440 



STA 
STA 
STA 
TAY 
EQU 
STA 
STA 



>FCBZPP+2 

SISTER+FCBZPP+1 

SISTER+FCBZPP+3 



PATHBUF, Y 
VCB, Y 



PREPARE PART OF EXTEND BYTE 
MAKE ZERO INTO INDEX 



PATHNAME BUFFER PAGE 
VOLUME CONTROL BLOCK PAGE 



***** EXTRN USED AS ZXTRN IN LINE 441 
2A88 : 91 00 441 STA 



(>FCBZPP) , Y 



BOTH FILE CONTROL BLOCK PAGES 



RELATIVE EXPRSN OPERATOR ERROR IN LINE 442 



2A8A 


8D 


00 


00 


442 




STA 


(>FCBZPP+ 


2A8D 


C8 






443 




INY 




2A8E 


DO 


F2 


2A82 


444 




BNE 


CLRBUFFS 


2A90 


A2 


3F 




445 




LDX 


#$3F 


2A92 


95 


00 




446 


CLRZWRK 


STA 


0,X 


2A94 


9D 


00 


00 


447 




STA 


WORKSPC, X 


2A97 


CA 






448 




DEX 




2A98 


10 


F8 


2A92 


449 




BPL 


CLRZWRK 


2A9A 


A9 


00 




450 




LDA 


#<PATHBUF 


2A9C 


8D 


01 


00 


451 




STA 


PFIXPTR+1 


2A9F 


A9 


00 




452 




LDA 


#BFMFCB1 


2AA1 


8D 


00 


00 


453 




STA 


FCBADDRH 


2AA4 


A9 


00 




454 




LDA 


#BMAPAGE 


2AA6 


8D 


00 


00 


455 




STA 


BMAMADR 


2AA9 


A9 


00 




456 




LDA 


tBMBPAGE 


2AAB 


8D 


00 


00 


457 




STA 


BMBMADR 


2AAE 


18 






458 




CLC 




2AAF 


60 






459 




RTS 




2AB0 








460 


* 






2AB0 








461 




LST 


ON 


2AB0 






2 ABO 


462 


ZZEND 


EQU 





SIZE OF MY ZERO PAGE STUFF 
ZERO PAGE ZEROED 



BIT MAP A PAGE NUMBER 
BIT MAP B PAGE NUMBER 
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2AB0: 01B8 463 ZZLEN EQU ZZEND-ZZORG 

2AB0: 0006 464 IFNE ZZLEN-LENINIT 

>>»»FAILURE: "SOSORG FILE IS INCORRECT FOR INIT" 
2AB0: 466 FIN 
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02 SYMBOL TABLE 


SORTED 


BY SYMBOL 




COFl 


ACIASTAT 


N2A6A 


BFM. INIT 


X0033 


40 


BIT0N6 


80 


BIT0N7 


72E00 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


68F4 


BLAFMGR 


72CF8 


BLAGLOB 


72AF8 


2000 


BLALODR 


76E6E 


BLAME MMG 


5466 


665E 


BLASCMGR 


5404 


BLASERR 


5A8B 


X002F 


BMAPAGE 


X0032 


BMBMADR 


X0030 


XOOIE 


BUF . CNT 


2A2B 


BUFIOlO 


X0021 


XOOIA 


CFCB . MAX 


29FF 


CFINITOlO 


N29FB 


N29A8 


CLK. INIT 


29BB 


CLKOlO 


29CF 


11 


CLKICR 


16 


CLKSTBY 


C070 


2A92 


CLRZWRK 


XOOOB 


COLDSTRT 


FFDB 


FFD2 


D . DDRB 


FFDE 


D . lER 


FFDD 


CO 


D . TPARMX 


N2A07 


DMGR. INIT 


XOOIC 


2 AO 6 


DNUM.TEMP 


CI 


DNUM 


FFEB 


FFE2 


E . DDRB 


FFEE 


E . lER 


FEED 


FFEC 


E.PCR 


FFDF 


E . REG 


X0013 


X0017 


EVQ . FREE 


N298B 


EVQ. INIT 


X0014 


X0016 


EVQ.SIZ 


298F 


EVQIOlO 


299D 


X002E 


FCBADDRH 


X0029 


FCBZPP 


N28F8 


296F 


INTI020 


xoooc 


IRQ . RCVR 


70400 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


61 


LENFMGR 


01B2 


LENINIT 


04CB 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


D5 


LENSERR 


040E 


LENUMGR 


XOOID 


2A55 


MEMI . ERR 


2A47 


MEMI 010 


X0027 


XOOOD 


NMI . RCVR 


XOOOE 


NMI FLAG 


BCOO 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


EE04 


X002A 


PATHBUF 


FO 


PCLK 


X0019 


XOOIF 


PGCT.T 


2985 


RAMJMPS 


297F 


XOOOF 


SIRTABLE 


XOOlO 


SIRTBLSIZ 


1400 


X0023 


ST. ENTRY 


X0D25 


ST.FLINK 


X0024 


XOOOA 


SYSDEATH 


80 


TRUE 


X002B 


X002C 


WORKSPC 


X0020 


XBYTE.T 


FFDO 


X0012 


ZPGSTART 


2 ABO 


ZZEND 


01B8 



BFMFCBl 


X0034 


BFMFCB2 


BLABFMI 


3200 


BLABFM 


BLADISK3 


64D9 


BLADMGR 


BLAINIT 


55C0 


BLAIPL 


BLAOMSG 


5466 


BLAPATCH 


BLAUMGR 


X0031 


BMAMADR 


BMBPAGE 


N2A22 


BMGR. INIT 


BUFREF 


XOOIB 


CFCB.DEV 


CFMGR. INIT 


F2 


CKSUM 


CLK020 


29D5 


CLK030 


CLOCK 


2A82 


CLRBUFFS 


D . ACR 


FFD3 


D . DDRA 


D . IFR 


FFDC 


D . PGR 


DMGR 


2A10 


DMIllO 


E .ACR 


FFE3 


E . DDRA 


E . IFR 


FFEO 


E . lORB 


EV. QUEUE 


X0015 


EVQ . CNT 


EVQ . LEN 


X0018 


EVQ. LINK 


EVQI020 


00 


FALSE 


INT. INIT 


2962 


INTIOlO 


LENBFMI 


2266 


LENBFM 


LENDISK3 


0185 


LENDMGR 


LENIPL 


OAF 8 


LENLODR 


LENPATCH 


0296 


LENSCMGR 


MAX . DNUM 


X0028 


MEM2 SML 


MEMSIZE 


N2A36 


MMGR. INIT 


ORGBFM 


B800 


ORGBFMI 


0RGDISK3 


EED9 


ORGDMGR 


ORGGLOB 


28F8 


ORGINIT 


ORGMEMMG 


DE66 


ORGOMSG 


ORGSERR 


E48B 


ORGUMGR 


PCLOCK 


X002D 


PFIXPTR 


RAMVECT 


CO 


REQCODE 


SISTER 


X0022 


ST. CNT 


ST. FREE 


X0009 


SXPAGE 


VCB 


X0026 


VRT.LIM 


Z.REG 


XOOll 


ZPGSTACK 


ZZLEN 


28F8 


ZZORG 
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RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


186 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


229 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


429 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


431 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


434 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


442 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


186 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


229 


OF 


FILE 


# 


02 


DIRECTIVE OPERAND ERROR IN LINE 


301 OF 


FILE # 


02 






RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


429 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


431 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


434 


OF 


FILE 


# 


02 


RELATIVE 


EXPRSN 


OPERATOR 


ERROR 


IN 


LINE 


442 


OF 


FILE 


# 


02 



4 WARNINGS IN THIS ASSEMBLY 
14 ERRORS IN THIS ASSEMBLY 
** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 525 
** FREE SPACE PAGE COUNT 80 
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0000 




2 








REL 




18FC 


18FC 


3 








ORG 


$18FC 


18FC 




4 








MSB 


OFF 


18FC 




5 


* * 


****** 


* * 


****** 




18FC 




6 


* 






COPYRIGHT (C) APPLE COMPUTER INC. 1980 


18FC 




7 


* 








ALL RIGHTS RESERVED 


18FC 




8 


* * 


****** 


* * 


************************************************** 


18FC 




9 


* 










1 8FC 




10 


* 


SOS SYSTEM GLOBAL DATA & EQUATES 


18FC 




11 


* 










18FC 




12 


* 


THIS 


MODULE CONTAINS THE SOS JUMP TABLE, AND ALL GLOBAL 


18FC 




13 




DATA 


AND EQUATES. THE JUMP TABLE, AND ALL DATA THAT IS 


18FC 




14 




TO BE 


REFERENCED BY DEVICE HANDLERS, ARE ASSIGNED FIXED 


18FC 




15 




ADDRESSES AT THE BEGINNING OF MEMORY PAGE $19. DATA 


18FC 




16 




THAT 


IS 


ONLY REFERENCED BY SOS BEGINS $1980, BUT MAY BE 


18FC 




17 




MOVED 


WHENEVER SOS IS RELINKED. 


18FC 




18 


* 










18FC 




19 


* * 


****** 


* * 


****** 


******************************************** 


18FC 




20 


* 










18FC 


0000 


21 








EXTRN 


ALLOCS IR 


18FC 


0000 


22 








EXTRN 


DEALCSIR 


1 8FC 


0000 


23 








EXTRN 


NMIDSBL 


18FC 


0000 


24 








EXTRN 


NMIENBL 


18FC 


0000 


25 








EXTRN 


QUEEVENT 


18FC 


0000 


26 








EXTRN 


SELC800 


18FC 


0000 


27 








EXTRN 


SYSDEATH 


18FC 


0000 


28 








EXTRN 


SYSERR 


1 8FC 


0000 


29 








EXTRN 


REQBUF 


18FC 


0000 


30 








EXTRN 


GETBUFADR 


18FC 


0000 


31 








EXTRN 


RELBUF 


18FC 


0000 


32 








EXTRN 


NMIDBUG 


18FC 


0000 


33 








EXTRN 


NMICONT 


18FC 


0000 


34 








EXTRN 


COLDSTRT 


18FC 




35 


* 










18FC 




35 


* 










18FC 


1900 


37 








ENTRY 


MEMSIZE 


18FC 


1901 


38 








ENTRY 


SYSBANK 


18FC 


1902 


39 








ENTRY 


SUSPFLSH 


18FC 


1903 


4 








ENTRY 


NMIFLAG 


18FC 


190 6 


4 1 








ENTRY 


SCRNMODE 


18FC 


1907 


42 








ENTRY 


GRSIZE 


18FC 




43 


* 










18FC 


1980 


44 








ENTRY 


SERR 


18FC 


1981 


45 








ENTRY 


DBUGBRK 


18FC 


1985 


45 








ENTRY 


KYBDNMI 


18FC 


198B 


47 








ENTRY 


NMISPSV 


18FC 


19F6 


48 








ENTRY 


SDEATH.REGS 


18FC 




49 












18FC 


1990 


50 








ENTRY 


SOSVER 


18FC 


0013 


51 








ENTRY 


SOSVERL 


18FC 




52 


* 










18FC 


1800 


53 








ENTRY 


SZPAGE 


18FC 


1400 


54 








ENTRY 


SXPAGE 


18FC 


0100 


55 








ENTRY 


S SPACE 


18FC 




55 


* 










18FC 


lAOO 


57 








ENTRY 


CZPAGE 
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18FC 


1600 


58 




ENTRY 


GXP AGE 


18FC 


IBOO 


59 




ENTRY 


CSPAGE 


18FC 


19C8 


60 




ENTRY 


CEVPRI 


18FC 




61 








18FC 


19C9 


62 




ENTRY 


SIRTEMP 


18FC 


1 9CA 


63 




ENTRY 


SIRARGSIZ 


18FC 


19CB 


64 




ENTRY 


IRQCNTR 


18FC 


19CD 


65 




ENTRY 


NMICNTR 


18FC 


19CF 


66 




ENTRY 


QEVTEMP 


18FC 


19D0 


67 




ENTRY 


QEV.THIS 


18FC 


19D1 


68 




ENTRY 


QEV.LAST 


18FC 




69 


* 






18FC 


0001 


70 




ENTRY 


BADBRK 


18FC 


0002 


71 




ENTRY 


BAD I NT 1 


18FC 


0003 


72 




ENTRY 


BADINT2 


18FC 


0004 


73 




ENTRY 


NMIHANG 


18FC 


0005 


74 




ENTRY 


EVQOVFL 


18FC 


0006 


75 




ENTRY 


STKOVFL 


18FC 


0007 


75 




ENTRY 


BADSYSCALL 


18FC 


0008 


77 




ENTRY 


DEV.OVFLOW 


18FC 


0009 


78 




ENTRY 


MEM2 SML 


1 8FC 


00 OA 


79 




ENTRY 


VCBERR 


18FC 


OOOB 


80 




ENTRY 


FCBERR 


18FC 


OOOC 


81 




ENTRY 


ALCERR 


18FC 


0051 


82 




ENTRY 


DIRERR 


18FC 


OOOE 


83 




ENTRY 


TOOLONG 


18FC 


OOOF 


84 




ENTRY 


BADBUFNUM 


1 8FC 


0010 


85 




ENTRY 


BADBUFSIZ 


18FC 


005A 


86 




ENTRY 


BITMAP ADR 


18FC 




87 








18FC 


0001 


88 




ENTRY 


BADSCNUM 


18FC 


0002 


89 




ENTRY 


BADCZPAGE 


18FC 


0003 


90 




ENTRY 


BADXBYTE 


18FC 


0004 


91 




ENTRY 


BADSCPCNT 


18FC 


0005 


92 




ENTRY 


BADSCBNDS 


18FC 




93 


* 






18FC 


0010 


94 




ENTRY 


NODNAME 


18FC 


0011 


95 




ENTRY 


BADDNUM 


18FC 




96 


* 






18FC 


0040 


97 




ENTRY 


BADPATH 


18FC 


0041 


98 




ENTRY 


CFCBFULL 


18FC 


0042 


99 




ENTRY 


FCBFULL 


18FC 


0043 


100 




ENTRY 


BADREFNUM 


18FC 


0044 


101 




ENTRY 


PATHNOTFND 


18FC 


0045 


102 




ENTRY 


VNFERR 


18FC 


0046 


103 




ENTRY 


FNFERR 


18FC 


0047 


104 




ENTRY 


DUPERR 


18FC 


0048 


105 




ENTRY 


OVRERR 


18FC 


0049 


106 




ENTRY 


DIRFULL 


18FC 


004A 


107 




ENTRY 


CP TERR 


18FC 


004B 


108 




ENTRY 


TYPERR 


18FC 


004C 


109 




ENTRY 


EOFERR 


18FC 


004D 


110 




ENTRY 


POSNERR 


18FC 


004E 


111 




ENTRY 


ACCSERR 


18FC 


004F 


112 




ENTRY 


BTSERR 


18FC 


0050 


113 




ENTRY 


FILBUSY 
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18FC 


0052 


114 




ENTRY 


NOTSOS 


18FC 


0053 


115 




ENTRY 


BADLSTCNT 


18FC 


0054 


116 




ENTRY 


OUTOFMEM 


18FC 


0055 


117 




ENTRY 


BUFTBLFULL 


18FC 


0056 


118 




ENTRY 


BADSYSBUF 


18FC 


0057 


119 




ENTRY 


DUPVOL 


18FC 


0058 


120 




ENTRY 


NOTBLKDEV 


18FC 


0059 


121 




ENTRY 


LVLERR 


18FC 




122 


* 






18FC 


0070 


123 




ENTRY 


BADJMODE 


18FC 




124 


* 






18FC 


OOEO 


125 




ENTRY 


BADBKPG 


18FC 


OOEl 


126 




ENTRY 


SEGRQDN 


18FC 


00E2 


127 




ENTRY 


SEGTBLFULL 


18FC 


00E3 


128 




ENTRY 


BADSEGNUM 


18FC 


00E4 


129 




ENTRY 


SEGNOTFND 


18FC 


00E5 


130 




ENTRY 


BADSRCHMODE 


18FC 


00E6 


131 




ENTRY 


BADCHGMODE 


18FC 


00E7 


132 




ENTRY 


BADPGCNT 


18FC 




133 


* 






18FC 


0020 


134 




ENTRY 


XREQCODE 


1 8FC 


0021 


135 




ENTRY 


XCTLCODE 


18FC 


0022 


136 




ENTRY 


XCTLPARM 


18FC 


0023 


137 




ENTRY 


XNOTOPEN 


18FC 


0024 


138 




ENTRY 


XNOTAVAIL 


18FC 


0025 


139 




ENTRY 


XNORESRC 


18FC 


0026 


140 




ENTRY 


XBADOP 


1 8FC 


0027 


141 




ENTRY 


XIOERROR 


18FC 


0028 


142 




ENTRY 


XNODRIVE 


18FC 


002B 


143 




ENTRY 


XNOWRITE 


18FC 


002C 


144 




ENTRY 


XBYTECNT 


18FC 


002D 


145 




ENTRY 


XBLKNUM 


18FC 


002E 


145 




ENTRY 


XDISKSW 


18FC 


19D2 


147 




ENTRY 


BACKMASK 


18FC 




148 


* 






18FC 


1908 


149 




ENTRY 


E1908 


18FC 




150 


* 







; MASK BYTE FOR BACKUP BIT. 

; DISK DRIVER IS READING/WRITING (SET) ELSE NOT (RESET) 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 79 of 456 



01 SYSGLOB.SRC 



SOS 1.1 GLOBAL EQUATES 



AUGUST-2006 



18FC 


00 


19 




152 


DW 


SYSGLOB 


18FE 


00 


01 




153 


DW 


$0100 


1900 








154 


* 




1900 








155 


* SYSTEM GLOBAL 


DATA 


1900 








156 


* (ACCESSIBLE 


TO SOS AND DEVICE 


1900 








157 






1900 






1900 


158 


SYSGLOB EQU 




1900 








159 


* 




1900 


08 






160 


MEMSIZE DFB 


$08 


1901 


02 






161 


SYSBANK DFB 


$02 


1902 


00 






162 


SUSPFLSH DFB 


$00 


1903 


00 






163 


NMIFLAG DFB 


$00 


1904 


8F 


19 




164 


DW 


NMIEXIT 


1906 


80 






165 


SCRNMODE DFB 


$80 


1907 


00 






166 


GRSIZE DFB 


$00 


1908 








167 






1908 








168 


* 




1908 








169 


* SOS JUMP TABLE 


1908 








170 


* 




1908 






0008 


171 


DS 


SYSGLOB+$10-*, $00 


1910 


4C 


8F 


19 


172 


USERNMI JMP 


NMIEXIT 


1913 


4C 


00 


00 


173 


JMP 


ALLOCSIR 


1916 


4C 


00 


00 


174 


JMP 


DEALCSIR 


1919 


4C 


00 


GO 


175 


JMP 


NMIDSBL 


191C 


4C 


00 


00 


176 


JMP 


NMIENBL 


191F 


4C 


00 


00 


177 


JMP 


QUEEVENT 


1922 


4C 


00 


00 


178 


JMP 


SELC800 


1925 


4C 


00 


00 


179 


JMP 


SYSDEATH 


1928 


4C 


00 


00 


180 


JMP 


SYSERR 


192B 


4C 


00 


00 


181 


JMP 


REQBUF 


192E 


4C 


00 


00 


182 


JMP 


GETBUFADR 


1931 


4C 


00 


00 


183 


JMP 


RELBUF 


1934 


4C 


D3 


19 


184 


JMP 


CLRBMASK 



/SYSGLOB TARGET ADDRESS 
; AND LENGTH 



MEMORY SIZE = 128K 

SYSTEM BANK = 2 

SYSOUT SUSPEND/FLUSH FLAG 

NMI PENDING FLAG 
DEFAULT NMI VECTOR 
CURRENT SCREEN MODE 



; USED BY THE MOUSE DRIVER 

KEYBOARD NMI VECTOR 

ALLOCATE A SIR 

DEALLOCATE A SIR 

DISABLE NMI 

ENABLE NMI 

QUEUE AN EVENT 

SELECT I/O EXPANSION ROM 

SYSTEM DEATH 

SOS ERROR 

REQUEST BUFFER 

GET BUFFER'S ADDRESS 

RELEASE BUFFER 

VECTOR TO CLRBMASK 
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1937 








186 


* 








1937 








187 


* SOS DATA AND 


EQUATES 




1937 








188 


* (ACCESSIBLE ONLY TO SOS) 




1937 








189 










1937 






0049 


190 




DS 


SYSGLOB+$80-*, $00 




1980 


00 






191 


SERR 


DFB 


SOO 


SYSTEM ERROR CODE 


1981 








192 










1981 


EA 






193 


DBUGBRK 


NOP 




TO ENABLE DEBUG BREAK POINTS, 


1982 


68 






194 




PLA 




PATCH THESE BYTES TO 


1983 


58 






195 




PLA 




JMP TO THE DEBUGGER 


1984 


60 






196 




RTS 






1985 








197 


* 








1985 


40 


10 


1 9 


1 98 


KYBDNMI 


JMP 


USERNMI 




1988 


40 


00 


00 


199 




JMP 


NMIDBUG 




198B 


GO 






200 


NMISPSV 


DFB 







198C 


40 


00 


00 


201 




JMP 


NMICONT 




198F 


60 






202 


NMIEXIT 


RTS 






1990 








203 


* 








1990 








204 


* 








1990 


53 


4F 


53 20 


205 


SOSVER 


ASC 


"SOS 1.3 Ol-DEC-82" 


19A3 






0013 


206 


SOSVERL 


EQU 


*-SOSVER 




19A3 








207 










19A3 


28 


43 


2 9 20 


208 




ASC 


"(0) 1980, 1981 BY APPLE COMPUTER INC." 


19C8 








209 










19C8 






1908 


210 


E1908 


EQU 


$1908 


ALLOCATED TO STEPHEN SMITH (MOUSE DRIVER) 


19C8 








211 


* ABOVE SET AND 


RESET IN DISK DRIVER 


19C8 






1800 


212 


SZPAGE 


EQU 


$1800 


SYSTEM ZERO PAGE 


19C8 






1400 


213 


SXPAGE 


EQU 


$1400 


SYSTEM EXTEND PAGE 


19C8 






0100 


214 


S SPACE 


EQU 


$0100 


SYSTEM STACK PAGE 


19C8 








215 










19C8 






lAOO 


216 


CZPAGE 


EQU 


$1A00 


CALLER'S ZERO PAGE 


19C8 






1600 


217 


CXPAGE 


EQU 


$1600 


CALLER'S EXTEND PAGE 


19C8 






IBOO 


218 


CSPACE 


EQU 


$1B00 


CALLER'S STACK PAGE 


19C8 


00 






219 


CEVPRI 


DFB 


$00 


CALLER'S EVENT PRIORITY 


19C9 








220 


* 








19C9 


00 






221 


SIRTEMP 


DFB 


$00 


TEMP FOR ALLOCSIR S DEALCSIR 


19CA 


00 






222 


SIRARGSIZ 


DFB 


$00 


ARGUMENT COUNT FOR ALLOCSIR S DEALCSIR 


19CB 


00 


00 




223 


IRQCNTR 


DW 


$0000 


FALSE IRQ COUNTER 


19CD 


00 


00 




224 


NMICNTR 


DW 


$0000 


COUNTER FOR NMILOCK 


19CF 


00 






225 


QEVTEMP 


DFB 


$00 


TEMP FOR QUEEVENT 


19D0 


00 






226 


QEV.THIS 


DFB 


$00 


POINTER FOR QUEEVENT 


19D1 


00 






227 


QEV.LAST 


DFB 


$00 


POINTER FOR QUEEVENT 


19D2 








228 


* 








19D2 






0000 


229 


SOSQUIT 


DS 


COLDSTRT 




19D2 


20 






230 


BACKMASK 


DFB 


BACKBIT 


MASK USED BY BFM TO UPDATE BACKUP BIT 


19D3 








231 










19D3 








232 


* TO CLEAR 


THE 


BACKUP BIT, A PROGRAM MUST JSR TO CLRBMASK THRU 1934 THEN DO A 


19D3 








233 


* SET-FILE- 


-INFO 


WITH NO INTERVENING SOS CALLS. ANY SOS CALL WILL 


19D3 








234 


* SET BACICMASK 


AGAIN. THIS FEATURE IS INTENTIONALLY LEFT UNDOCUMENTED. 


19D3 








235 


A 








19D3 


29 


20 




236 


CLRBMASK 


AND 


#BACKBIT 


PURIFY 


19D5 


8D 


D2 


19 


237 




STA 


BACKMASK 


SET THE MASK 


19D8 


60 






238 




RTS 




; AND BACK TO THE CALLER 
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19D9 






240 


* 














19D9 






241 


* SYSTEM 


DEATH 


REGISTER 


SAVE 


AREA 




19D9 






242 


* (SYSTEM 


STACK 


MOVED 


TO 


$170 


0-$17FF) 


19D9 






243 
















19D9 




OOID 


244 




DS 


SYSGL0B+$F6- 


*, $00 




19F6 




19F6 


245 


SDEATH.REGS EQU 












19F6 


00 




246 




DFB 


$00 








BANK 


19F7 


00 




247 




DFB 


$00 








ZERO PAGE 


19F8 


00 




248 




DFB 


$00 








ENVIRONMENT 


19F9 


00 




249 




DFB 


$00 








Y 


19FA 


00 




250 




DFB 


$00 








X 


19FB 


00 




251 




DFB 


$00 








A 


19FC 


00 




252 




DFB 


$00 








STATUS 


19FD 


00 00 




253 




DW 


$00 








PROGRAM COUNTER 


19FF 


00 




254 




DFB 


$00 








STACK POINTER 


lAOO 






255 
















lAOO 






255 


* SYSTEM 


DEATH 


ERROR 


NUMBERS 






lAOO 






257 


* 














lAOO 




0001 


258 


BADBRK 


EQU 


$01 








BRK FROM SOS 


lAOO 




0002 


259 


BAD I NT 1 


EQU 


$02 








INTERRUPT NOT FOUND 


lAOO 




0003 


260 


BADINT2 


EQU 


$03 








BAD ZERO PAGE ALLOCATION 


lAOO 




0004 


2 61 


NMIHANG 


EQU 


$04 








UNABLE TO LOCK NMI 


lAOO 




0005 


262 


EVQOVFL 


EQU 


$05 








EVENT QUEUE OVERFLOW 


lAOO 




0006 


263 


STKOVFL 


EQU 


$06 








STACK OVERFLOW 


lAOO 






2 64 
















lAOO 




0007 


265 


BADSYSCALL 


EQU 


$07 








DMGR DETECTED INVALID REQUEST CODE 


lAOO 




0008 


266 


DEV.OVFLOW 


EQU 


$08 








DMGR - TOO MANY DEVICE HANDLERS 


lAOO 




0009 


267 


MEM2SML 


EQU 


$09 








MEMORY SIZE < 64K 


lAOO 




OOOA 


268 


VCBERR 


EQU 


$GA 








VOLUME CONTROL BLOCK NOT USABLE (BFMGR) 


lAOO 




OOOB 


269 


FCBERR 


EQU 


$0B 








FILE CONTROL BLOCK CRASHED 


lAOO 




OOOC 


270 


ALCERR 


EQU 


$0C 








ALLOCATION BLOCKS INVALID 


lAOO 




OOOE 


271 


TOOLONG 


EQU 


$0E 








PATHNAME BUFFER OVERFLOW 


lAOO 




OOOF 


272 


BADBUFNUM 


EQU 


$0F 








INVALID BUFFER NUMBER 


lAOO 




0010 


273 


BADBUFSIZ 


EQU 


$10 








INVALID BUFFER SIZE (=0 OR >16K) 
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lAOO 




275 


* 












lAOO 




276 


* SYSTEM 


ERROR 


NUMBERS 






lAOO 




277 














lAOO 




278 


* - SYSTEM 


CALL 


MANAGER 






lAOO 




279 














lAOO 


0001 


280 


BADSCNUM 


EQU 


$01 






BAD SYSTEM CALL NUMBER 


lAOO 


0002 


281 


BADCZPAGE 


EQU 


$02 






BAD CALLER'S ZPAGE (MUST=$1A) 


lAOO 


0003 


282 


BADXBYTE 


EQU 


$03 






BITS 6 . . 4 <> 


lAOO 


0004 


283 


BADSCPCNT 


EQU 


$04 






BAD SYSTEM CALL PARM COUNT 


lAOO 


0005 


284 


BADSCBNDS 


EQU 


$05 






SYS CALL PARM ADR 


lAOO 




285 


* 












lAOO 




286 


♦ - DEVICE 


MANAGER 








lAOO 




287 














lAOO 


0010 


288 


NODNAME 


EQU 


$10 






DEVICE NAME NOT FOUND 


lAOO 


0011 


289 


BADDNUM 


EQU 


$11 






INVALID DEV.NUM PARM 


lAOO 




290 














lAOO 




291 


* - DEVICE 


HANDLERS ( 


STANDARD 


ERRORS) 


lAOO 




292 


* 












lAOO 


0020 


293 


XREQCODE 


EQU 


$20 






INVALID REQUEST CODE 


lAOO 


0021 


294 


XCTLCODE 


EQU 


$21 






INVALID CONTROL/STATUS CODE 


lAOO 


0022 


2 95 


XCTLPARM 


EQU 


$22 






INVALID CONTROL/STATUS PARM 


lAOO 


0023 


296 


XNOTOPEN 


EQU 


$23 






DEVICE NOT OPEN 


lAOO 


0024 


2 97 


XNOTAVAIL 


EQU 


$24 






DEVICE NOT AVAILABLE 


lAOO 


0025 


2 98 


XNORESRC 


EQU 


$25 






UNABLE TO OBTAIN RESOURCE 


lAOO 


002 6 


2 99 


XBADOP 


EQU 


$26 






INVALID OPERATION 


lAOO 


0027 


300 


XIOERROR 


EQU 


$27 






I/O ERROR 


lAOO 




301 














lAOO 


0028 


302 


XNODRIVE 


EQU 


$28 






NO DRIVE CONNECTED 


lAOO 


002B 


303 


XNOWRITE 


EQU 


$2B 






DEVICE WRITE PROTECTED 


lAOO 


002C 


304 


XBYTECNT 


EQU 


$2C 






BYTE COUNT <> A MULTIPLE OF 512 


lAOO 


002D 


305 


XBLKNUM 


EQU 


$2D 






BLOCK NUMBER TOO LARGE 


lAOO 


002E 


306 


XDISKSW 


EQU 


$2E 






DISK MEDIA HAS BEEN SWITCHED 


lAOO 




307 


* 












lAOO 




308 


* - NOTE; 


ERROR 


CODES 


$30-$3F 


HAVE 


BEEN RESERVED FOR DEVICE 


lAOO 




309 


* HANDLER SPECIFIC 


ERRORS 






lAOO 




310 


* 












lAOO 




311 














lAOO 




312 


* - FILE MANAGER 








lAOO 




313 














lAOO 


0040 


314 


BADPATH 


EQU 


$40 






PATHNAME, INVALID SYNTAX 


lAOO 


0041 


315 


CFCBFULL 


EQU 


$41 






CHAR FILE CTRL BLOCK TABLE FULL 


lAOO 


0042 


315 


FCBFULL 


EQU 


$42 






BLOCK FILE CTRL BLOCK TABLE FULL 


lAOO 


0043 


317 


BADREFNUM 


EQU 


$43 






INVALID REF.NUM PARM 


lAOQ 


0044 


318 


PATHNOTFND 


EQU 


$44 






PATHNAME NOT FOUND 


lAOO 


0045 


319 


VNFERR 


EQU 


$45 






VOLUME NOT FOUND 


lAOO 


0046 


320 


FNFERR 


EQU 


$46 






FILE NOT FOUND 


lAOO 


0047 


321 


DUPERR 


EQU 


$47 






DUPLICATE FILE NAME ERROR 


lAOO 


0048 


322 


OVRERR 


EQU 


$48 






NOT ENOUGH DISK SPACE FOR PREALLOCATION 


lAOO 


0049 


323 


DIRFULL 


EQU 


$49 






DIRECTORY FULL ERROR 


lAOO 


004A 


324 


CP TERR 


EQU 


$4A 






FILE INCOMPATIBLE SOS VERSION 


lAOO 


004B 


325 


TYPERR 


EQU 


$4B 






NOT CURRENTLY SUPPORTED FILE TYPE 


lAOO 


004C 


326 


EOFERR 


EQU 


$4C 






POSITION ATTEMPTED BEYOND END OF FILE 


lAOO 


004D 


327 


POSNERR 


EQU 


$4D 






ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


lAOO 


G04E 


328 


ACCSERR 


EQU 


$4E 






FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES 


lAOO 


004F 


329 


BTSERR 


EQU 


$4F 






USER SUPPLIED BUFFER TOO SMALL 


lAOO 


0050 


330 


FILBUSY 


EQU 


$50 






EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY 
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01 SYSGLOB.SRC 
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lAOO 






0051 


331 


DIRERR 


EQU 


$51 


DIRECTORY ERROR 


lAOO 






0052 


332 


NOTSOS 


EQU 


$52 


NOT A SOS DISKETTE 


lAOO 






0053 


333 


BADLSTCNT 


EQU 


$53 


INVALID VALUE IN LIST PARAMETER 


lAOO 






0054 


334 


OUTOFMEM 


EQU 


$54 


OUT OF FREE MEMORY FOR BUFFER 


lAOO 






0055 


335 


BUFTBLFULL 


EQU 


$55 


BUFFER TABLE FULL 


lAOO 






0056 


336 


BADSYSBUF 


EQU 


$55 


INVALID SYSBUF PARAMETER 


lAOO 






0057 


337 


DUPVOL 


EQU 


$57 


SON A BITCH GOT TWO VOLUMES OF SAME 


lAOO 






0058 


338 


NOTBLKDEV 


EQU 


$58 




lAOO 






0059 


339 


LVLERR 


EQU 


$59 


INVALID FILE LEVEL 


lAOO 






005A 


340 


BITMAP ADR 


EQU 


$5A 




lAOO 






0020 


341 


BACKBIT 


EQU 


$20 


MASK FOR BACKUP BIT 


lAOO 








342 










lAOO 








343 


* - UTILITY MANAGER 




lAOO 








344 










lAOO 






0070 


345 


BADJMODE 


EQU 


$70 


INVALID JOYSTICK REQUEST 


lAOO 








346 










lAOO 








347 


* - MEMORY 


MANAGER 




lAOO 








348 


* 








lAOO 






OOEO 


349 


BADBKPG 


EQU 


$E0 


INVALID BANK/PAGE PAIR 


lAOO 






OOEl 


350 


SEGRQDN 


EQU 


$E1 


SEGMENT REQUEST DENIED 


lAOO 






00E2 


351 


SEGTBLFULL 


EQU 


$E2 


SEGMENT TABLE FULL 


lAOO 






00E3 


352 


BADSEGNUM 


EQU 


$E3 


INVALID SEGMENT NUMBER 


lAOO 






00E4 


353 


SEGNOTFND 


EQU 


$E4 


SEGMENT NOT FOUND 


lAOO 






00E5 


354 


BADSRCHMODE EQU 


$E5 


INVALID SEARCH MODE FARM 


lAOO 






00E6 


355 


BADCHGMODE 


EQU 


$E6 


INVALID CHANGE MODE FARM 


lAOO 






00E7 


356 


BADPGCNT 


EQU 


$E7 


INVALID PAGE COUNT PARM 


lAOO 






lAOO 


357 




ORG 


SYSGLOB+$100 




lAOO 


00 


B8 




358 




DW 


$B800 


KERNEL TARGET ADDRESS 


1A02 


CO 


47 




359 




DW 


$47C0 


AND LENGTH 
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01 SYMBOL TABLE 



SORTED BY SYMBOL 



AUGUST-2006 



04E 


ACCSERR 


NOOOC 


ALCERR 


XOOOl 


ALLOCS IR 


0020 


BACKBIT 


9D2 


BACKMASK 


NOOEO 


BADBKPG 


NOOOl 


BADBRK 


NOOOF 


BADBUFNUM 


010 


BADBUFSIZ 


N00E6 


BADCHGMODE 


N0002 


BADCZPAGE 


NOOll 


BADDNUM 


002 


BAD I NT 1 


N0003 


BADINT2 


N0070 


BAD JMODE 


N0053 


BADLSTCNT 


040 


BADPATH 


N00E7 


BADPGCNT 


N0043 


BADREFNUM 


N0005 


BADSCBNDS 


001 


BADSCNUM 


N0004 


BADSCPCNT 


N00E3 


BADSEGNUM 


N00E5 


BADSRCHMODE 


056 


BADSYSBUF 


N0007 


BADSYSCALL 


N0003 


BADXBYTE 


N005A 


BITMAP ADR 


04F 


BTSERR 


N0055 


BUFTBLFULL 


N19C8 


CEVPRI 


N0041 


CFCBFULL 


9D3 


CLRBMASK 


XOOOE 


COLDSTRT 


N004A 


CPTERR 


NIBOO 


CSPAGE 


600 


CXPAGE 


NIAOO 


CZPAGE 


N1981 


DBUGBRK 


X0002 


DEALCSIR 


008 


DEV.OVFLOW 


N0051 


DIRERR 


N0049 


DIRFULL 


N0047 


DUPERR 


057 


DUPVOL 


N1908 


E1908 


N004C 


EOFERR 


N0005 


EVQOVFL 


OOB 


FCBERR 


N0042 


FCBFULL 


N0050 


FILBUSY 


N004 6 


FNFERR 


OCA 


GETBUFADR 


Nl 907 


GRSIZE 


Nl 9CB 


IRQCNTR 


N1985 


KYBDNMI 


059 


LVLERR 


N0009 


MEM2SML 


Nl 900 


MEMSIZE 


Nl 9CD 


NMICNTR 


OOD 


NMICONT 


xoooc 


NMIDBUG 


X0003 


NMIDSBL 


X0004 


NMIENBL 


98F 


NMIEXIT 


N1903 


NMIFLAG 


N0004 


NMIHANG 


N198B 


NMISPSV 


010 


NODNAME 


N0058 


NOTBLKDEV 


N0052 


NOTSOS 


N0054 


OUTOFMEM 


048 


OVRERR 


N0044 


PATHNOTFND 


N004D 


POSNERR 


N19D1 


QEV.LAST 


9D0 


QEV.THIS 


N19CF 


QEVTEMP 


X0005 


QUEEVENT 


XOOOB 


RELBUF 


009 


REQBUF 


N1906 


SCRNMODE 


Nl 9F6 


SDEATH.REGS 


N00E4 


SEGNOTFND 


OEl 


SEGRQDN 


NO0E2 


SEGTBLFULL 


X0005 


SELC800 


Nl 98 


SERR 


9CA 


SIRARGSIZ 


N19C9 


SIRTEMP 


?19D2 


SOSQUIT 


N0013 


SOSVERL 


990 


SOSVER 


NOlOO 


SSPAGE 


N0006 


STKOVFL 


N1902 


SUSPFLSH 


400 


SXPAGE 


N1901 


SYSBANK 


X0007 


SYSDEATH 


X0008 


SYSERR 


900 


SYSGLOB 


N1800 


SZPAGE 


NOOOE 


TOOLONG 


N004B 


TYPERR 


910 


USERNMI 


NOOOA 


VCBERR 


N0045 


VNFERR 


N0026 


XBADOP 


02D 


XBLKNUM 


N002C 


XBYTECNT 


N0021 


XCTLCODE 


N0022 


XCTLPARM 


02E 


XDISKSW 


N0027 


XIOERROR 


N0028 


XNODRIVE 


N0025 


XNORESRC 


024 


XNOTAVAIL 


NG023 


XNOTOPEN 


N002B 


XNOWRITE 


N0020 


XREQCODE 


SUCCESSFUL ASSEMBLY := 


NO ERRORS 











ASSEMBLER CREATED ON 30-APR-85 22:4£ 
TOTAL LINES ASSEMBLED 359 
FREE SPACE PAGE COUNT 83 
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01 BFM. INIT2 . SRC SOS 1.1 BFM.INIT2 AUGUST-2006 PAGE 2 



0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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02 SOSORG 


SOS 
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0000 


5955 


55 


BLACFM EQU BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 






* * * * 


************************************************************* 


B800 


B800 


4 


ORG ORGBFMI 


B800 




5 


MSB OFF 


B800 




6 


************************************************************ 


B800 




7 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


B800 




8 


* ALL RIGHTS RESERVED 


B800 




9 


************************************************************ 


B800 




10 


* 


B800 




11 


* BLOCK FILE MANAGER INIT2 


B800 




12 


* 


B800 




13 


* SECONDARY INITIALIZATION ROUTINE FOR BLOCK FILE MANAGER 


B800 




14 


* 


B800 




1 5 




B800 




16 


* DISK DRIVER'S SEEKDSK3 ROUTINE. 


B800 




17 


* CHANGES MARKED BY 'D3RRA81084' 


B800 




18 


* 


B800 




19 


* MODIFIED: 08/19/81 TO WORK WITH NEW 


B800 




20 


* SOSLDR MODULE. 


B800 




21 




B800 




22 


* 


B800 


BBOl 


23 


ENTRY BFM. INIT2 


B800 




24 


A 


B800 




25 


*EXTRN I. BASE. P ; ENTRY IN SOSLDR 


B800 


0000 


26 


EXTRN SYSBANK 


B800 


0000 


27 


EXTRN SXPAGE 


B800 


0000 


28 


EXTRN CZPAGE 


B800 


0000 


29 


EXTRN SEEKDSK3 ; IN DISKDH/D3RRA81084 


B800 


0000 


30 


EXTRN NMIDSBL ;/D3RRA81084 


B800 


0002 


31 


I. BASE. P EQU $2 
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02 BFM. INIT2 . SRC SOS 1.1 BFM.INIT2 



AUGUST-2006 



B800 




33 


* 






B800 




34 


* CONSTANTS 




B800 




35 








B800 


B800 


36 


KERNEL. BASE EQU 


$B800 


B800 


00 AO 


37 


ROMID 


EQU 


$A0 


B800 


0060 


38 


SLOT 


EQU 


$60 


B800 


0009 


39 


BEGTRK 


EQU 


$9 


B800 


0002 


40 


BEGSECT 


EQU 


$2 


B800 


0006 


41 


ENDSECT 


EQU 


$6 


B800 




42 


* 






B800 




43 


* ZERO PAGE 




B800 




44 








B800 


0099 


45 


TRACK 


EQU 


$99 


B800 


0098 


46 


SECTOR 


EQU 


$98 


B800 


00 9A 


47 


VOLUME 


EQU 


$9A 


B800 


OOEO 


48 


KEY 


EQU 


$E0 


B800 


00E8 


49 


PREV.K 


EQU 


KEY+S8 


B800 


00E9 


50 


XIDX 


EQU 


KEY+$9 


B800 


OOEA 


51 


I 


EQU 


KEY+$A 


B800 




52 


* 






B800 




53 


* ROM ROUTINES 




B800 




54 








B800 


F1B9 


55 


RDADR 


EQU 


$F1B9 


B800 


FIBD 


56 


RDADRX 


EQU 


$F1BD 


B800 




57 


* 






B800 




58 


* HARDWARE 


LOCATIONS 


B800 




59 








B800 


FFDF 


60 


E.REG 


EQU 


$FFDF 


B800 


FFEF 


61 


B.REG 


EQU 


$FFEF 


B800 


C089 


62 


MOTORON 


EQU 


$C089 


B800 


C088 


63 


MOTOROFF 


EQU 


$C088 



; BASE ADDRESS OF SOS KERNEL 
;$F1B9 OF NEW ROM/D3RRA81084 



THRU $E7 



; & $B 



; REVl 
; REVO 
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AUGUST-2006 



B800 










65 


********** 


* * * * * 


********* 


B800 










66 


* 






B800 










67 


* BFM.INIT2 ENTRY POINT 


B800 










68 








B800 










69 




***** 


^, ^, ^, ^, ^, ^, ^, ^, ^, 


B800 










70 


* 






B800 


FE 








71 


STATE 


DEB 


$FE 


B801 










72 


* 






B801 






BE 


01 


73 


BFM. INIT2 


EQU 


* 


B801 


EE 


00 


B8 




74 




INC 


STATE 


B804 


30 


13 


BE 


19 


75 




BMI 


BFMI050 


B806 


20 


9D 


B8 




76 




JSR 


GETK 


B809 


AD 


9B 


B8 




77 




LDA 


RETRY 


B80C 


FO 


OD 


BE 


IB 


78 




BEQ 


BADNEWS 


B80E 


90 


09 


BE 


19 


79 




BCC 


BFMI050 


B810 


20 


00 


GO 




80 




JSR 


NMIDSBL 


B813 


20 


ID 


B8 




81 




JSR 


DC 


B815 


EE 


00 


B8 




82 




INC 


STATE 


B819 


18 








83 


BFMI050 


CLC 




B81A 


50 








84 




RTS 




B81B 


38 








85 


BADNEWS 


SEC 




B81C 


60 








86 




RTS 





; FF=1ST ENTRY, 0=2ND ENTRY, 1=PR0T 



; I/O ERROR 
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02 BFM. INIT2 . SRC SOS 1.1 BFM.INIT2 



AUGUST-2006 



B81D 










88 


* * 


* * 


****** 


****** 


********* 


****** 


* * * 


************************** 




B8 ID 










8 9 


* 


















B81D 










90 




DECODE SUBROUTINE 










B81D 










91 




















B81D 










92 




TO 


ENCODE: 












B81D 










93 


-„ 




EO .E8 




- INIT 


KEY 


S PREV.K 




B81D 










94 






B84E : 


4C 64 


B8 - JUMPS AROUND 


INTERP'S 3 BYTE OVERWRITE 




B81D 










95 


* 




1A02 . 


1A03: 


- NEW 


INTER? 


'S 


LOAD ADR (LO,HII) 




B81D 










96 


* 




B81DG 




- JSR 


FROM MONITOR 




B81D 










97 


* 


















B81D 










98 


* * 


* * 


****** 


****** 


********* 


****** 


* * * 


************************** 




B81D 






B 


JID 


99 


DC 






EQU 












B81D 


AD 


EF 


FF 




100 








LDA 


B.REG 






; SAVE BANK REGISTER 




B820 


48 








101 








PHA 












B821 


AD 


00 


00 




102 








LDA 


SYSBANK 






; AND SWITCH TO SYSTEM BANK 




B824 


8D 


EF 


FF 




103 








STA 


B.REG 










B827 


18 








104 








CLC 








; FETCH LOADER'S INTERPRETER POINTER 




B828 


AD 


02 


00 




105 








LDA 


CZPAGE+I 


.BASE. 


P 






B82B 


59 


03 






106 








ADC 


#3 










B82D 


85 


EA 






107 








STA 


I 










B82F 


48 








108 








PHA 












B830 


AD 


03 


00 




109 








LDA 


CZPAGE+I 


.BASE. 


P+1 






B833 


69 


00 






110 








ADC 


#0 










B835 


85 


EB 






111 








STA 


I + l 










B837 


48 








112 








PHA 












B838 


A9 


00 






113 








LDA 


#0 










B83A 


8D 


EB 


00 




114 








STA 


SXPAGE+I+1 








B8 3D 










115 




















B8 3D 


A4 


EA 






116 








LDY 


I 






; ALIGN I PTR TO PAGE BOUNDARY 




B83F 


A9 


00 






117 








LDA 


#0 










B841 


85 


EA 






118 








STA 


I 










B843 


85 


E8 






119 








STA 


PREV.K 










B845 










120 


* 


















B845 


20 


69 


B8 




121 








JSR 


DCLOOP 






; DECODE 




B848 










122 


* 


















B848 


68 








123 








PLA 








; RETRIEVE LOADER'S INTERPRETER POINTER 




B849 


85 


EB 






124 








STA 


I + l 










B84B 


68 








125 








PLA 












B84C 


85 


EA 






126 








STA 


I 










B84E 










127 


* 


















B84E 


AO 


01 






128 








LDY 


#1 






; REPOSITION LOADER'S INTERPRETER POINTER 


(PUT ENCODE JMP 


B850 


Bl 


EA 






129 








LDA 


(I) ,Y 










B852 


8D 


02 


00 




130 








STA 


CZPAGE+I 


.BASE. 


P 






B855 


C8 








131 








INY 












B856 


Bl 


EA 






132 








LDA 


(I) ,Y 










B858 


8D 


03 


00 




133 








STA 


CZPAGE+I 


.BASE. 


P+1 






B85B 










134 




















B85B 


AO 


02 






135 








LDY 


#2 






; WALK ON INTERPRETER'S FIRST INSTRUCTION 


(3 BYTES) 


B85D 


A9 


00 






136 








LDA 


#0 










B85F 


91 


EA 






137 


DCA 




STA 


(I) ,Y 










B861 


88 








138 








DEY 












B862 


10 


FB 


B 


J5F 


139 








BPL 


DCA 










B864 


68 








140 








PLA 








; RESTORE BANK REGISTER ( 


ENCODE JMP JUMPS 


HERE) 




























B865 


8D 


EF 


FF 




141 








STA 


B.REG 










B868 


60 








142 








RTS 
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B869 








144 


******** 


******* 


******************** 


************************* 


B869 








145 


* 








B869 








146 


* DECODE 


LOOP SUBROUTINE 




B869 








147 










B869 








148 


-1, ^, -1, ^, ^, ^, ^, ^, 








B869 






B869 


149 


DCLOOP 


EQU 


* 




B869 


A2 


07 




15G 




LDX 


#7 ; 


SHIFT LEFT ONE BIT 


B86B 


18 






151 




CLC 






B86C 


A5 


EG 




152 




LDA 


KEY 




B86E 


10 


01 


B871 


153 




BPL 


DCl 




B870 


38 






154 




SEC 






B871 


36 


EG 




155 


DCl 


ROL 


KEY, X 




B873 


CA 






156 




DEX 






B874 


10 


FB 


B871 


157 




BPL 


DCl 




B876 








158 










B876 


98 






159 


DC2 


TYA 






B877 


29 


07 




16G 




AND 


#7 




B879 


49 


02 




161 




EOR 


#2 




B87B 


AA 






162 




TAX 






B87C 


B5 


EG 




163 




LDA 


KEY, X 




B87E 


48 






164 




PHA 






B87F 


2 9 


07 




1 65 




AND 


#7 




B881 


AA 






166 




TAX 






B882 


68 






1 67 




PLA 






B883 


18 






168 




CLC 






B884 


65 


E8 




169 




ADC 


PREV . K 




B886 


18 






17G 




CLC 






B887 


75 


EG 




171 




ADC 


KEY, X 




B889 


85 


E8 




172 




STA 


PREV.K 




B88B 


51 


EA 




173 




EOR 


(I),Y 


DECODE BYTE 


B88D 


91 


EA 




174 




STA 


(I),Y 


AND PUT IT BACK 


B88F 


C8 






175 




INY 






B890 


DO 


E4 


B876 


176 




BNE 


DC2 




B892 


E6 


EB 




177 




INC 


I + l 




B894 


A5 


EB 




178 




LDA 


I + l 




B896 


C9 


B8 




179 




CMP 


#<KERNEL.BASE 




B898 


90 


CF 


B869 


18G 




BCC 


DCLOOP 




B89A 


60 






181 




RTS 
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B89B 








183 


******** 


******** 


************* 


* * * 


**************************** 


B89B 








184 


* 












B89B 








185 


* GETKEY 


SUBROUTINE 








B8 9B 








186 














B89B 








187 


^, ^, -1, ^, -„ ^, 


^, ^, , ^, ^, ^, 




* * * 




B8 9B 
B89B 


OB 






188 
189 


-1, 

RETRY 


DFB 


10 + 1 






TEN RETRIES 


B89C 






0001 


190 


OURTRACK 


DS 


1 






CURRENT TRACK/D3RRA81084 


B89D 








191 


* 












B89D 






B89D 


192 


GETK 


EQU 










B89D 


A2 


07 




193 




LDX 


#7 








B8 9F 


86 


E9 




194 




STX 


XIDX 








B8A1 


A2 


60 




1 95 




LDX 


#SLOT 








B8A3 


BD 


89 


CO 


196 




LDA 


MOTORON, X 






ENSURE MOTOR STAYS ON 


B8A6 


AD 


DF 


FF 


197 




LDA 


E.REG 






SELECT IMHZ, ROM 


B8A9 


09 


83 




198 




ORA 


#$83 








B8AB 


8D 


DF 


FF 


199 




STA 


E.REG 








B8AE 








200 


* 












B8AE 








201 


* NOTE: 


THE SEEKDSK3 ROUTINE 


HAS 


THESE /D3RRA81084 


B8AE 








202 


* CAVEATS : IMHZ 


MODE, MOTOR 


IS 


ON 


/D3RRA81084 


B8AE 








203 


* DRIVE 


CURRENTLY SELECTED, 


ROM+I/0 ENABLED! /D3RRA81084 


B8AE 








204 














B8AE 


A9 


09 




205 


GETKOlO 


LDA 


#BEGTRK 








B8B0 


8D 


9C 


B8 


206 




STA 


OURTRACK 






WHERE WE SEEK TO /D3RRA81084 


B8B3 


20 


00 


00 


207 




JSR 


SEEKDSK3 






HAVE DISKDH SEEK FOR US /D3RRA81084 


B8B5 


A2 


60 




208 


GETK020 


LDX 


#SLOT 








B8B8 


20 


05 


B9 


209 




JSR 


DOREAD 






FIND A SECTOR HEADER 


B8BB 


BO 


5D 


B91A 


210 




BCS 


lOERROR 






=>RETRY IF BAD 


B8BD 


A5 


98 




211 




LDA 


SECTOR 






WHERE ARE WE? 


B8BF 


C9 


02 




212 




CMP 


#BEGSECT 






AT THE RIGHT PLACE? 


B8C1 


DO 


F3 


B8B6 


213 




BNE 


GETK020 






=>N0, GET THERE 


B8C3 








214 


* 












B8C3 


A2 


01 




215 


GETKIOO 


LDX 


#1 








B8C5 


20 


25 


B9 


215 




JSR 


WAIT 






(X * 1284) + 15 MILISECONDS 


B8C8 


A6 


E9 




217 




LDX 


XIDX 








B8CA 


A5 


9A 




218 




LDA 


VOLUME 








B8CC 


95 


EO 




219 




STA 


KEY, X 








B8CE 


C6 


E9 




220 




DEC 


XIDX 








B8D0 


30 


14 


B8E6 


221 




BMI 


ENUFF 








B8D2 


EE 


9C 


B8 


222 




INC 


OURTRACK 




;BUMP FOR NEXT TRACK /D3RRA81084 


B8D5 


AD 


9C 


B8 


223 




LDA 


OURTRACK 






WHERE TO GO /D3RRA81084 


B8D8 


A2 


60 




224 




LDX 


#SLOT 








B8DA 


20 


00 


00 


225 




JSR 


SEEKDSK3 






DISKDH, PLEASE SEEK ME /D3RRA81084 


B8DD 


A2 


60 




225 




LDX 


#SLOT 








B8DF 


20 


05 


B9 


227 




JSR 


DOREAD 








B8E2 


90 


DF 


B8C3 


228 




BCC 


GETKIOO 








B8E4 


BO 


34 


B91A 


229 




BCS 


lOERROR 








B8E6 








230 














B8E6 


A2 


60 




231 


ENUFF 


LDX 


#SLOT 








B8E8 


BD 


88 


CO 


232 




LDA 


MOTOROFF,X 








B8EB 


AD 


DF 


FF 


233 




LDA 


E.REG 






SELECT 2MHZ, RAM 


B8EE 


29 


7C 




234 




AND 


#$7C 








B8F0 


8D 


DF 


FF 


235 




STA 


E.REG 
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B8F3 ; 


:A5 


98 




237 




LDA 


SECTOR 


B8F5 ; 


;C9 


06 




238 




CMP 


#ENDSECT 


B8F7 ; 


:D0 


08 


B901 


239 




BNE 


NOTPROT 


B8F9 ; 


: A5 


EG 




240 




LDA 


KEY 


B8FB; 


: 45 


El 




241 




FOR 


KEY+1 


B8FD; 


:F0 


02 


B901 


242 




BEQ 


NOTPROT 


B8FF ; 


; 38 






243 




SEC 




B900 ; 


; 60 






244 




RTS 




B901 ; 








245 


* 






B901 ; 


;A9 


00 




246 


NOTPROT 


LDA 


#0 


B903 ; 


; 18 






247 




CLC 




B904 ; 


: 50 






248 




RTS 




B905 ; 








249 








B905 : 








250 








B905 : 


: 20 


10 


B9 


251 


DOREAD 


JSR 


WHICHROM 


B908 ; 


;B0 


03 


B90D 


252 




BCS 


OLDREAD 


B90A; 


; 4C 


B9 


Fl 


253 




JMP 


RDADR 


B90D ; 


; 4C 


BD 


Fl 


254 


OLDREAD 


JMP 


RDADRX 


B910 ; 








255 


* 






B910 ; 








256 


* 






B910 ; 


: AD 


B9 


Fl 


257 


WHICHROM 


LDA 


RDADR 


B913 : 


:C9 


AO 




258 




CMP 


#ROMID 


B915 : 


: 18 






259 




CLC 




B916 ; 


:F0 


01 


B919 


260 




BEQ 


NEWROM 


B918 : 


: 38 






2 61 




SEC 




B919; 


: 60 






262 


NEWROM 


RTS 




B91A; 








263 


* 






B91A: 








2 64 








B91A; 


: CE 


9B 


B8 


265 


lOERROR 


DEC 


RETRY 


B91D ; 


:F0 


03 


B922 


266 




BEQ 


ERRl 


B91F; 


: 4C 


9D 


B8 


267 




JMP 


GETK 


B922 ; 


; 4C 


E6 


B8 


268 


ERRl 


JMP 


ENUFF 


B925 ; 








269 


* 






B925 ; 








270 


* 






B925 ; 


; AO 


00 




271 


WAIT 


LDY 


#0 


B927; 


:88 






272 


Wl 


DEY 




B928: 


:D0 


FD 


B927 


273 




BNE 


Wl 


B92A: 


:CA 






274 




DEX 




B92B: 


:D0 


FA 


B927 


275 




BNE 


Wl 


B92D: 


: 60 






276 




RTS 




B92E; 






0400 


277 


ZZLEN 


EQU 


$400 


B92E; 






0000 


278 




IFNE 


ZZLEN-LENBFMI 


S 








279 




FAIL 


2, "SOSORG 


B92E; 








280 




FIN 





.•TRACKS SYNCED? 



; IF FIRST 2 VOLS ARE EQUAL 



; TRY, TRY AGAIN 

; I/O ERROR, CLEANUP AND EXIT 



FILE IS INCORRECT FOR BFM.INIT2" 
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FFEF 


B.REG 


B81B 


BADNEWS 


02 


BEGSECT 


09 


BEGTRK 


NB801 


BFM. INIT2 


B819 


BFMI050 


72E00 


BLABFMI 


3200 


BLABFM 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


BLADISK3 


64D9 


BLADMGR 


68F4 


BLAFMGR 


?2CF8 


BLAGLOB 


?2AF8 


BLAINIT 


55C0 


BLAIPL 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


X0004 


CZPAGE 


B87 6 


DC2 


B85F 


DCA 


B869 


DCLOOP 


B81D 


DC 


B871 


DCl 


B905 


OGRE AD 


FFDF 


E.REG 


06 


ENDSECT 


B8E6 


ENUFF 


B922 


ERRl 


B89D 


GETK 


7B8AE 


GETKOlO 


B8B6 


GETK020 


B8C3 


GETKIOO 


02 


I . BASE . P 


B91A 


lOERROR 


EA 


I 


B800 


KERNEL. BASE 


EO 


KEY 


2266 


LENBFM 


0400 


LENBFMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


0185 


LENDMGR 


61 


LENFMGR 


?01B2 


LENINIT 


04CB 


LENIPL 


OAF 8 


LENLODR 


?0751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSCMGR 


05 


LENSERR 


040E 


LENUMGR 


C088 


MOTOROFF 


C089 


MOTORON 


B919 


NEWROM 


X0006 


NMIDSBL 


B901 


NOTPROT 


B90D 


OLDREAD 


B800 


ORGBFMI 


BCOO 


ORGBFM 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE56 


ORGPATCH 


FOSE 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


B89C 


OURTRACK 


E8 


PREV.K 


FIBD 


RDADRX 


F1B9 


RDADR 


B89B 


RETRY 


AO 


ROM ID 


98 


SECTOR 


X0005 


SEEKDSK3 


60 


SLOT 


B800 


STATE 


X0003 


SXPAGE 


X0002 


SYSBANK 


? 99 


TRACK 


9A 


VOLUME 


B927 


Wl 


B925 


WAIT 


B910 


WHICHROM 


E9 


XIDX 


0400 


ZZLEN 










** SUCCESSFUL ASSEMBLY := 


NO ERRORS 











** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 339 
** FREE SPACE PAGE COUNT 84 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 55 


BLACFM EQU BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 56 


BLABUFMG EQU BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 57 


BLAMEMMG EQU BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 


58 












DE66 


DE66 4 




ORG ORGOMSG 


DE66 


DE66 5 


ZZORG EQU * 


DE66 


6 




MSB OFF 


DE65 


7 


* * 


********************************************************** 


DE66 


8 


* 




DE66 


9 


* 


COPYRIGHT (C) APPLE COMPUTER INC. 1981 


DE66 


10 




ALL RIGHTS RESERVED 


DE66 


11 






DE66 


12 


** 




DE66 


13 






DE66 


14 




THIS MODULE CONTAINS THE BLOCK FILE MANAGERS ' S OPERATOR 


DE66 


15 


* 


INTERFACE. IT DISPLAYS A MESSAGE IN A FOUR LINE BY 


DE65 


16 


* 


FOURTY COLUMN WINDOW, THEN WAITS FOR THE USER TO TOGGLE 


DE66 


17 


* 


THE ALPHA— LOCK KEY BEFORE RETURNING. 


DE65 


18 


* 




DE66 


19 


* 


THE VERTICAL BLANKING FLAGS AND COMPOSITE BLANKING 


DE66 


20 




TIMER ARE USED TO MAINTAIN THE DISPLAY. MEMORY PAGE 


DE66 


21 




$02 IS USED FOR TEMPORARY STORAGE. ON EXIT, ALL 


DE56 


22 


* 


RESOURCES ARE RESTORED TO THEIR PREVIOUS STATES. 


DE66 


23 


* 




DE65 


24 


* 


ENTRY POINT: OPMSGRPLY 


DE56 


25 


* 




DE66 


26 


* 


PARAMETERS: X — MESSAGE ADDRESS (LOW BYTE) 


DE56 


27 


* 


Y — MESSAGE ADDRESS (HIGH BYTE) 


DE66 


28 




(THE MESSAGE MUST RESIDE IN THE CURRENT BANK) 


DE66 


29 






DE66 


30 




RESULT: A — RESPONSE KEYSTROKE 


DE65 


31 


* 


X, Y — UNDEFINED 


DE66 


32 


* 




DE66 


33 


* * 


********************************************************** 


DE66 


34 


* 




DE66 


35 


* 




DE66 


DE66 36 




ENTRY OPMSGRPLY 


DE56 


37 


* 




DE66 


0000 38 




EXTRN SCRNMODE 
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DE66 




40 


* 






DE66 




41 


* HARDWARE EQUATES 


DE66 




42 


* 






DE66 


FFDO 


43 


Z .REG 


EQU 


$FFDO 


DE66 


FFDF 


44 


E.REG 


EQU 


$FFDF 


DE66 




45 








DE66 


COOS 


46 


KBPORT 


EQU 


$C008 


DE66 




47 


* 






DE65 


C040 


48 


BELL 


EQU 


$C040 


DE66 




49 


* 






DE66 


C050 


50 


VMO 


EQU 


$C050 


DE66 


C052 


51 


VMl 


EQU 


$C052 


DE66 


C054 


52 


VM2 


EQU 


$C054 


DE66 


C056 


53 


VM3 


EQU 


$C056 


DE66 




54 


* 






DE66 


FFE8 


55 


E . T2 


EQU 


$FFE8 


DE66 


FFEB 


56 


E.ACR 


EQU 


$FFEB 


DE66 


FFEC 


57 


E.PCR 


EQU 


$FFEC 


DE66 


FEED 


58 


E . IFR 


EQU 


$FFED 


DE66 


FFEE 


59 


E . lER 


EQU 


$FFEE 


DE56 




60 


* 






DE56 




61 


* ZERO 


PAGE DECLARATI 


DE56 




62 








0000 




63 




DSECT 




0000 


0200 


64 


ZPBASE 


EQU 


$200 


0000 


0000 


65 




ORG 


soooo 


0000 


0002 


66 


MSGPTR 


DS 


2 


0002 


0001 


67 


MSGIDX 


DS 


1 


0003 




58 








0003 


0001 


69 


SCRNIDX 


DS 


1 


0004 


0002 


70 


SCRNPTR 


DS 


2 


0006 


0002 


71 


DATAPTR 


DS 


2 


0008 


00 AO 


72 


DATABUF 


DS 


160 


00A8 




73 


* 






00A8 


0001 


74 


SV.ZREG 


DS 


1 


00A9 


0001 


75 


SV.EREG 


DS 


1 


OOAA 


0001 


76 


SV. SMODE 


DS 


1 


OOAB 


0001 


77 


SV.EACR 


DS 


1 


00 AC 


0001 


78 


SV.EPCR 


DS 


1 


00 AD 


0001 


79 


SV.EIER 


DS 


1 


OOAE 




80 


* 






OOAE 


0001 


81 


FLAG 


DS 


1 


DE65 




82 




DEND 





;ZERO PAGE DECLARATIONS 
/MESSAGE POINTER 
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DE66 






DE66 


84 


OPMSGRPLY EQU 






DE66 








85 


* 










DE66 








86 












DE66 








87 




SAVE 


CURRENT 


VALUES AND SET UP 


ZERO PAGE, 


DE66 








88 




ENVIRONMENT, 


SCREEN MODE, AND E 


.6522 REGISTERS. 


DE66 








89 


* 










DE66 


08 






90 






PHP 






DE67 


78 






91 






SEI 






DE68 


AD 


DO 


FF 


92 






LDA 


Z.REG 




DE6B 


8D 


A8 


02 


93 






STA 


ZPBASE+SV. ZREG 


; SAVE ZERO PAGE 


DE6E 


A9 


02 




94 






LDA 


#<ZPBASE 




DE70 


8D 


DO 


FF 


95 






STA 


Z . REG 




DE73 


86 


00 




96 






STX 


MSGPTR 


; SAVE MESSAGE ADDRESS 


DE75 


84 


01 




97 






STY 


MSGPTR+1 




DE77 


AD 


DF 


FF 


98 






LDA 


E . REG 




DE7A 


85 


A9 




99 






STA 


SV.EREG 


; SAVE ENVIRONMENT 


DE7C 


29 


5F 




100 






AND 


#$5F 




DE7E 


09 


40 




101 






ORA 


#$40 




DE80 


8D 


DF 


FF 


102 






STA 


E.REG 


/SCREEN OFF, I/O SPACE ON 


DE83 


AD 


00 


00 


103 






LDA 


SCRNMODE 




DE86 


85 


AA 




104 






STA 


SV. SMODE 


; SAVE SCREEN MODE 


DE88 


A9 


00 




105 






LDA 


#$00 




DE8A 


8D 


00 


00 


106 






STA 


SCRNMODE 




DE8D 


2C 


50 


CO 


107 






BIT 


VMO 


; SET 4 COLUMN 


DE90 


20 


52 


CO 


108 






BIT 


VMl 


; BLACK & WHITE TEXT 


DE93 


20 


54 


CO 


109 






BIT 


VM2 




DE96 


20 


56 


CO 


110 






BIT 


VM3 




DE99 


AE 


EB 


FF 


111 






LDX 


E . ACR 




DE9C 


8A 






112 






TXA 






DE9D 


2 9 


20 




113 






AND 


#$20 




DE9F 


85 


AB 




114 






STA 


SV.EACR 


;SAVE AUXILIARY CONTROL REG 


DEAl 


8A 






115 






TXA 






DEA2 


09 


20 




116 






ORA 


#$20 




DEA4 


8D 


EB 


FF 


117 






STA 


E . ACR 


; SET UP BL TIMER 


DEA7 


AE 


EC 


FF 


118 






LDX 


E.PCR 




DEAA 


8A 






119 






TXA 






DEAB 


29 


FO 




120 






AND 


#$F0 




DEAD 


85 


AC 




121 






STA 


SV.EPCR 


; SAVE PERIPHERAL CONTROL REG 


DEAF 


8A 






122 






TXA 






DEBO 


2 9 


OF 




123 






AND 


#$0F 




DEB2 


09 


60 




124 






ORA 


#$60 




DEB4 


8D 


EC 


FF 


125 






STA 


E.PCR 


;SET UP VBL FLAGS 


DEB7 


AD 


EE 


FF 


126 






LDA 


E.IER 




DEBA 


29 


38 




127 






AND 


#$38 




DEBC 


8D 


EE 


FF 


128 






STA 


E.IER 


;MASK VBL & BL INTERRUPTS 


DEBF 


85 


AD 




129 






STA 


SV.EIER 


;SAVE INTERRUPT MASKS 


DECl 


28 






130 






PLP 






DEC2 








131 












DEC2 








132 












DEC2 








133 




SAVE 


SCREEN 


DATA AND CLEAR MESSAGE WINDOW 


DEC2 








134 


* 










DEC2 


A2 


03 




135 






LDX 


#3 




DEC4 


20 


A7 


DF 


136 


OPROlO 


JSR 


SETPTRS 




DEC7 


AO 


27 




137 






LDY 


#39 




DEC 9 


Bl 


04 




138 


OPR020 


LDA 


(SCRNPTR) , Y 


;SAVE SCREEN DATA 


DECB 


91 


06 




139 






STA 


(DATAPTR) , Y 
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DECD 


:A9 


AO 




140 




LDA 


#$A0 


DECF 


: 91 


04 




141 




STA 


(SCRNPTR) , Y 


DEDl 


: 88 






142 




DEY 




DED2 


: 10 


F5 


DEC9 


143 




BPL 


OPR020 


DED4 


:CA 






144 




DEX 




DED5 


: 10 


ED 


DEC4 


145 




BPL 


OPROlO 


DED7 








146 








DED7 








147 


* 






DED7 








148 


* MOVE MESSAGE 


TO WINDOW 


DED7 








149 


* 






DED7 


:2C 


40 


CO 


150 




BIT 


BELL 


DEDA 


:A2 


00 




151 




LDX 


#$00 


DEDC 


: 86 


02 




152 




STX 


MSGIDX 


DEDE 


: 20 


A7 


DF 


153 


OPRIOO 


JSR 


SETPTRS 


DEEl 


: AO 


00 




154 




LDY 


#S00 


DEE3 


: 84 


03 




155 




STY 


SCRNIDX 


DEES 


:A4 


02 




156 


OPRllO 


LDY 


MSGIDX 


DEE7 


:E6 


02 




157 




INC 


MSGIDX 


DEE9 


:B1 


00 




158 




LDA 


(MSGPTR) , Y 


DEEB 


:F0 


F8 


DEES 


159 




BEQ 


OPRllO 


DEED 


: 30 


15 


DF04 


160 




BMI 


OPR2 00 


DEEF 


: C9 


OD 




161 




CMP 


#$0D 


DEFl 


:F0 


OC 


DEFF 


162 




BEQ 


OPR120 


DEF3 


: A4 


03 




1 63 




LDY 


SCRNIDX 


DEF5 


:E6 


03 




164 




INC 


SCRNIDX 


DEF7 


: 09 


80 




165 




ORA 


#$80 


DEE 9 


: 91 


04 




166 




STA 


(SCRNPTR) , Y 


DEFB 


: CO 


27 




1 67 




CPY 


#39 


DEED 


: 90 


E6 


DEE5 


168 




BCC 


OPRllO 


DEFF 


:E8 






169 


OPR120 


INX 




DFOO 


:E0 


04 




170 




CPX 


#4 


DF02 


: 90 


DA 


DEDE 


171 




BCC 


OPRIOO 


DF04 








172 


* 






DF04 








173 


* 






DF04 








174 


* DISPLAY 


MESSAGE UNTIL ALPl 


DF04 








175 


* 






DF04 


:A0 


02 




176 


OPR200 


LDY 


#2 


DF06 


: AD 


08 


CO 


177 




LDA 


KBPORT 


DF09 


:29 


08 




178 




AND 


#$08 


DFOB 


: 85 


AE 




179 




STA 


FLAG 


DFOD 


:20 


77 


DE 


180 


OPR210 


JSR 


VIDEO 


DFIO 


: AD 


08 


CO 


181 




LDA 


KBPORT 


DF13 


:29 


08 




182 




AND 


#$08 


DF15 


:C5 


AE 




183 




CMP 


FLAG 


DF17 


:F0 


F4 


DFOD 


184 




BEQ 


OPR210 


DF19 


: 85 


AE 




185 




STA 


FLAG 


DFIB 


:88 






186 




DEY 




DFIC 


:D0 


EE 


DFOD 


187 




BNE 


OPR210 


DFIE 








188 








DFIE 








189 








DFIE 








190 


* RESTORE 


PREVIOUS CONTENTS 


DFIE 








191 


* 






DFIE 


:A2 


03 




192 




LDX 


#3 


DF2 


:20 


A7 


DF 


193 


OPR400 


JSR 


SETPTRS 


DF23 


:A0 


27 




194 




LDY 


#39 


DF25 


:B1 


06 




195 


OPR410 


LDA 


(DATAPTR) , Y 



/BLANK SCREEN 



;SET UP MESSAGE 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 101 of 456 



02 OPRMSG.SRC 



SOS 1.1 OPERATOR MESSAGE/REPLY AUGUST-2006 PAGE 7 



DF27 ; 


; 91 


04 




195 




STA 


(SCRNPTR) , Y 






DF2 9 ; 


; 88 






197 




DEY 








DF2A: 


: 10 


F9 


DF25 


1 98 




BPL 


OPR410 






DF2C : 


: CA 






199 




DEX 








DF2D : 


: 10 


Fl 


DF20 


200 




BPL 


OPR4 00 






DF2F : 








201 












DF2F ; 








202 












DF2F ; 








203 


* RESTORE E.6522, SCREEN MODE, 


ENVIRONMENT, S ZERO PAGE 


DF2F ; 








204 


* THEN 


RETURN 


TO CALLER 






DF2F ; 








205 


* 










DF2F ; 


; 08 






206 




PHP 








DF30 ; 


; 78 






207 




SEI 








DF31 : 


: AD 


EB 


FF 


208 




LDA 


E . ACR 






DF34 : 


: 2 9 


DF 




209 




AND 


#$DF 






DF36 : 


: 05 


AB 




210 




ORA 


SV.EACR 


; RESTORE 


AUXILIARY CONTROL REG 


DF38 ; 


; 8D 


EB 


FF 


211 




STA 


E . ACR 






DF3B ; 


: AD 


EC 


FF 


212 




LDA 


E.PCR 






DF3E ; 


; 29 


OF 




213 




AND 


#$0F 






DF40 ; 


; 05 


AC 




214 




ORA 


SV.EPCR 


; RESTORE 


PERIPHERAL CONTROL REG 


DF42 ; 


; 8D 


EC 


FF 


215 




STA 


E.PCR 






DF45 : 


: A5 


AD 




216 




LDA 


SV.EIER 


; RESTORE 


INTERRUPT ENABLE REG 


DF47 : 


: 09 


80 




217 




ORA 


#S80 






DF49 : 


: 8D 


EE 


FF 


218 




STA 


E . lER 






DF4C : 


: A5 


AA 




219 




LDA 


SV. SMODE 


; RESTORE 


SCREEN MODE 


DF4E : 


: 8D 


00 


00 


220 




STA 


SCRNMODE 






DF51 ; 


; 4A 






221 




LSR 


A 






DF52 ; 


; 90 


03 


DF57 


222 




BCC 


OPR500 






DF54 : 


: 2C 


51 


CO 


223 




BIT 


VMO + 1 


; RESTORE 


VIDEO MODE 


DF57 ; 


: 4A 






224 


OPR500 


LSR 


A 






DF58 : 


: 90 


03 


DF5D 


225 




BCC 


OPR510 






DF5A: 


;2C 


53 


CO 


226 




BIT 


VMl + 1 






DF5D ; 


; 4A 






227 


OPR510 


LSR 


A 






DF5E ; 


; 90 


03 


DF63 


228 




BCC 


OPR520 






DF60 ; 


; 2C 


55 


CO 


229 




BIT 


VM2 + 1 






DF63; 


:2C 


00 


00 


230 


OPR520 


BIT 


SCRNMODE 






DF66 ; 


:50 


03 


DF6B 


231 




BVC 


OPR530 






DF68 ; 


:2C 


57 


CO 


232 




BIT 


VM3 + 1 






DF6B; 


:A5 


A9 




233 


OPR530 


LDA 


SV.EREG 


; RESTORE 


ENVIRONMENT 


DF6D : 


: 8D 


DF 


FF 


234 




STA 


E.REG 






DF7 : 


:A5 


A8 




235 




LDA 


SV. ZREG 


; RESTORE 


ZERO PAGE 


DF72 : 


:8D 


DO 


FF 


236 




STA 


Z.REG 






DF75; 


:28 






237 




PLP 








DF7 5; 


: 60 






238 




RTS 
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DF77 








240 


* * 


****** 


******** 


************ 


* * * * * 


************************ 


DF77 








241 


* 












DF77 








242 




SUBROUTINE VIDEO 






DF77 








243 














DF77 








244 




THIS 


SUBROUTINE POLLS THE 


VERTICAL-BLANKING AND 


DF77 








245 




COMPOSITE-BLANKING-TIMER 


FLAGS 


AND TURNS THE SCREEN 


DF77 








246 




OFF AND ON SO 


THAT ONLY THE MESSAGE WINDOW WILL BE 


DF77 








247 


* 


DISPLAYED. 








DF77 








248 


* 












DF77 








249 


* 


THE E 


.6522 MUST BE INITIALIZED 


SO THAT E.CB2 FLAGS THE 


DF77 








250 


* 


POSITIVE EDGE 


OF VBL AND 


E.T2 


COUNTS BL PULSES. THE 


DF77 








251 


* 


INTERRUPTS MUST BE MASKED 


AND 


THE PROPER COUNT MUST 


DF77 








252 




ALREADY BE STORED IN THE 


LOW ORDER BYTE OF E.T2. 


DF77 








253 














DF77 








254 




ENTRY 


: VIDEO 








DF77 








255 














DF77 








255 


* 


PARAMETERS : 


INTERRUPT SYSTEM 


DISABLED 


DF77 








257 


* 












DF77 








258 


* 


EXIT: 


A — UNDEFINED 






DF77 








259 


* 




X, Y - 


- PRESERVED 






DF77 








2 60 














DF77 








2 61 




****** 


******** 


************ 


* * * * * 


************************ 


DF77 








2 62 














DF77 






DF7'/ 


263 


VIDEO 


EQU 








DF77 


AD 


ED 


FF 


2 64 






LDA 


E . IFR 






DF7A 


29 


28 




265 






AND 


#$28 




;GET VBL S BL FLAGS 


DF7C 


FO 


28 


DFA6 


266 






BEQ 


VIO030 






DF7E 


8D 


ED 


FF 


2 67 






STA 


E . IFR 




/CLEAR FLAGS 


DF81 


2 9 


20 




2 68 






AND 


#$20 




; WHICH FLAG? 


DF83 


DO 


12 


DF97 


269 






BNE 


VIDOlO 




; BL 


DF85 








270 














DF85 


A9 


IF 




271 






LDA 


#$1F 






DF87 


80 


E8 


FF 


272 






STA 


E.T2 




;SET UP BL TIMER 


DF8A 


A9 


00 




273 






LDA 


#$00 






DF8C 


80 


E9 


FF 


274 






STA 


E.T2+1 






DF8F 


AO 


OF 


FF 


275 






LDA 


E.REG 






DF92 


09 


20 




276 






ORA 


#$20 




;SET UP FOR SCREEN ON 


DF94 


38 






277 






SEC 








DF95 


BO 


06 


DF9D 


278 






BCS 


VID020 






DF97 








279 














DF97 


AD 


DF 


FF 


280 


VIDOlO 


LDA 


E.REG 






DF9A 


29 


OF 




281 






AND 


#$0F 




;SET UP FOR SCREEN OFF 


DF9C 


18 






282 






CLC 








DF9D 








283 


* 












DF9D 


80 


OF 


FF 


284 


VID020 


STA 


E .REG 






DFAO 


A9 


00 




285 






LDA 


#$00 






DFA2 


6A 






286 






ROR 


A 






DFA3 


80 


00 


00 


287 






STA 


SCRNMODE 






DFA6 


60 






288 


VID030 


RTS 
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DFA7 








290 


* * 


************* 


************************ 


* * * 


************** 


* * * * 


DFA7 








291 


* 












DFA7 








292 




SUBROUTINE SETPTRS 








DFA7 








2 93 














DFA7 








2 94 




THIS SUBROUTINE SETS UP THE POINTERS 


TO 


THE MESSAGE 




DFA7 








2 95 




WINDOW AND DATA SAVE AREA. 








DFA7 








2 96 














DFA7 








297 


* 


ENTRY: SETPTRS 








DFA7 








298 


* 












DFA7 








299 


* 


PARAMETERS : 


X — LINE NUMBER [0..3] 








DFA7 








300 


* 












DFA7 








301 




EXIT: A — 


UNDEFINED 








DFA7 








302 




X, Y 


— PRESERVED 








DFA7 








303 














DFA7 








304 




************* 


************************ 


* * * 


************** 


* * * * 


DFA7 








305 














DFA7 






DFA7 


306 


SETPTRS EQU 


* 








DFA7 


8A 






307 




TXA 










DFA8 


4A 






308 




LSR 


A 








DFA9 


09 


04 




309 




ORA 


#$04 








DFAB 


85 


05 




310 




STA 


SCRNPTR+1 








DFAD 


A9 


00 




311 




LDA 


#S00 








DFAF 


6A 






312 




ROR 


A 








DFBO 


85 


04 




313 




STA 


SCRNPTR 








DFB2 


A9 


00 




314 




LDA 


#<DATABUF 








DFB4 


85 


07 




315 




STA 


DATAPTR+1 








DFB6 


BD 


BC 


DF 


316 




LDA 


DBUFADR, X 








DFB9 


85 


06 




317 




STA 


DATAPTR 








DFBB 


60 






318 




RTS 










DFBC 








319 














DFBC 






DFBC 


320 


DBUFADR EQU 










DFBC 


08 






321 




DFB 


>0*4 0+DATABUF 








DFBD 


30 






322 




DFB 


>1*40+DATABUF 








DFBE 


58 






323 




DFB 


>2*40+DATABUF 








DFBF 


80 






324 




DFB 


>3*40+DATABUF 








DFCO 








325 




LST 


ON 








DFCO 






DFCO 


326 


ZZEND EQU 










DFCO 






015A 


327 


ZZLEN EQU 


ZZEND-ZZORG 








DFCO 






0000 


328 




IFNE 


ZZLEN-LENOMSG 








S 








329 




FAIL 


2,"S0S0RG FILE 


IS 


INCORRECT FOR 


OPRMSG" 


DFCO 








330 




FIN 
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C040 


BELL 


3200 


BLABFM 


72E00 


BLABFMI 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


BLADISK3 


64D9 


BLADMGR 


68F4 


BLAFMGR 


?2CF8 


BLAGLOB 


?2AF8 


BLAINIT 


55C0 


BLAIPL 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


08 


DATABUF 


06 


DATAPTR 


DFBC 


DBUFADR 


FFEB 


E . ACR 


FFEE 


E . lER 


FEED 


E . IFR 


FFEC 


E . PGR 


FFDF 


E . REG 


FFE8 


E . T2 


AE 


FLAG 


COOS 


KBPORT 


70400 


LENBFMI 


2266 


LENBFM 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


0185 


LENDMGR 


51 


LENFMGR 


?01B2 


LENINIT 


04CB 


LENIPL 


OAFS 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSCMGR 


D5 


LENSERR 


040E 


LENUMGR 


02 


MSGIDX 


00 


MSGPTR 


NDE6 6 


OPMSGRPLY 


DEC4 


OPROlO 


DEC9 


OPR020 


DEDE 


OPRIOO 


DEES 


OPRllO 


DEFF 


OPR120 


DF04 


OPR200 


DFOD 


OPR210 


DF20 


OPR400 


DF25 


OPR410 


DF57 


OPR500 


DF5D 


OPR510 


DF63 


OPR520 


DF6B 


OPR530 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28FS 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE56 


ORGOMSG 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


03 


SCRNIDX 


X0002 


SCRNMODE 


04 


SCRNPTR 


DFA7 


SETPTRS 


AB 


SV.EACR 


AD 


SV.EIER 


AC 


SV.EPCR 


A9 


SV.EREG 


AA 


SV. SMODE 


A8 


SV. ZREG 


DF97 


VIDOlO 


DF9D 


VID020 


DFA6 


VID030 


DF77 


VIDEO 


C050 


VMO 


C052 


VMl 


C054 


VM2 


C056 


VM3 


FFDO 


Z.REG 


0200 


ZPBASE 


DFCO 


ZZEND 


015A 


ZZLEN 


DE66 


ZZORG 










** SUCCESSFUL ASSEMBLY := 


NO ERRORS 











** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 389 
** FREE SPACE PAGE COUNT 84 
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SOURCE FILE 
INCLUDE FILE 
SOURCE FILE 



#01 =>IPL.SRC1 
#02 =>SOSORG 
#03 =>IPL.SRC2 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 106 of 456 



01 IPL.SRCl SOS 1.1 INTRPTS. S PROC . LAUNCH AUGUST-2006 PAGE 2 



0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU BLABUFMG+LENBUFMG ' BLOAD ADDRESS OF MEMMGR 


0000 




58 








************************************************************** 


DFCO 


DFCO 


4 


ORG ORGIPL 


DFCO 


DFCO 


5 


ZZORG EQU * 


DFCO 




6 


MSB OFF 


DFCO 




7 


************************************************************ 


DFCO 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


DFCO 




9 


* ALL RIGHTS RESERVED 


DFCO 




10 


************************************************************ 


DFCO 




11 




DFCO 




12 


* THIS MODULE IS RESPONSIBLE FOR FIELDING ALL INTERRUPTS 


DFCO 




13 


* AND RELAUNCHING THE INTERRUPTED CODE AFTER THE INTERRUPTS 


DFCO 




14 


* HAVE BEEN PROCESSED. THE MAJOR FUNCTIONAL AREAS ARE: 


DFCO 




15 


* 


DFCO 




16 


* GENERAL INTERRUPT RECEIVER 


DFCO 




17 


* NMI INTERRUPT RECEIVER 


DFCO 




18 


* DISPATCHER 


DFCO 




19 


* INTERRUPT ALLOCATION S DEALLOCATION 


DFCO 




20 


* EVENT QUEUE MANAGER 


DFCO 




21 


* TABLE INITIALIZATION 


DFCO 




22 


* 


DFCO 




23 


************************************************************ 


DFCO 




24 


* 


DFCO 




25 


* SUBROUTINE ENTRY POINTS 


DFCO 




26 




DFCO 


E050 


27 


ENTRY IRQ.RCVR /GENERAL INTERRUPT RECEIVER 


DFCO 


E1A4 


28 


ENTRY NMI.RCVR ; NON-MASKABLE INTRPT RCVR 


DFCO 


E21D 


29 


ENTRY DISPATCH ; DISPATCHER 


DFCO 


E2CA 


30 


ENTRY ALLOCSIR ;SIR ALLOCATION 


DFCO 


E352 


31 


ENTRY DEALCSIR ;SIR DEALLOCATION 


DFCO 


E3A9 


32 


ENTRY SELC800 /SELECT I/O EXPANSION ROM 


DFCO 


E3C2 


33 


ENTRY NMIDSBL /DISABLE NMI 


DFCO 


E3F3 


34 


ENTRY NMIENBL ; ENABLE NMI 


DFCO 


E3FC 


35 


ENTRY NMIDBUG ;NMI DEBUG ENTRY 


DFCO 


E410 


36 


ENTRY NMICONT ;NMI DEBUG CONTINUATION 


DFCO 


E41D 


37 


ENTRY QUEEVENT ; QUEUE AN EVENT 


DFCO 




38 


* 


DFCO 




39 


* EXTERNAL SUBROUTINES & DATA 


DFCO 




40 


* 


DFCO 


0000 


41 


EXTRN SCMGR 


DFCO 


0000 


42 


EXTRN CHKBUF 


DFCO 




43 


* 


DFCO 




44 


* SYSTEM DEATH ERRORS 


DFCO 




45 


* 


DFCO 


0000 


46 


EXTRN SYSDEATH 


DFCO 


0000 


47 


EXTRN BADBRK 


DFCO 


0000 


48 


EXTRN BAD INT 1 


DFCO 


0000 


49 


EXTRN BADINT2 


DFCO 


0000 


50 


EXTRN NMIHANG 


DFCO 


0000 


51 


EXTRN EVQOVFL 


DFCO 


0000 


52 


EXTRN STKOVFL 


DFCO 




53 


* 


DFCO 




54 


* LINKAGE DATA FOR INITIALIZATION ROUTINES 


DFCO 




55 


* 
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DFCO 


E026 


55 




ENTRY 


EV. QUEUE 




DFCO 


0007 


57 




ENTRY 


EVQ . CNT 




DFCO 


0006 


58 




ENTRY 


EVQ.SIZ 




DFCO 


002A 


59 




ENTRY 


EVQ . LEN 




DFCO 


E028 


60 




ENTRY 


EVQ. FREE 




DFCO 


E026 


61 




ENTRY 


EVQ. LINK 




DFCO 


DFC5 


62 




ENTRY 


SIRTABLE 




DFCO 


0018 


63 




ENTRY 


SIRTBLSIZ 




DFCO 


DFC4 


64 




ENTRY 


ZPGSTACK 




DFCO 


OOFS 


65 




ENTRY 


ZPGSTART 




DFCO 




65 


* 








DFCO 




67 


* SYSGLOB 


DATA 






DFCO 




68 










DFCO 


0000 


69 




EXTRN 


SERR 




DFCO 


0000 


70 




EXTRN 


CEVPRI 


/CALLER'S EVENT PRIORITY 


DFCO 


0000 


71 




EXTRN 


SYSBANK 


; SYSTEM BANK 


DFCO 


0000 


72 




EXTRN 


KYBDNMI 




DFCO 


0000 


73 




EXTRN 


NMISPSV 




DFCO 


0000 


74 




EXTRN 


NMIFLAG 


;NMI PENDING FLAG 


DFCO 


0000 


75 




EXTRN 


SCRNMODE 


/CURRENT SCREEN MODE 


DFCO 


0000 


76 




EXTRN 


SIRTEMP 


;FOR ALLOCSIR S DEALCSIR 


DFCO 


0000 


77 




EXTRN 


SIRARGSIZ 




DFCO 


0000 


78 




EXTRN 


IRQCNTR 


;FLASE IRQ COUNTER 


DFCO 


0000 


79 




EXTRN 


NMICNTR 


;TWO BYTE COUNTER 


DFCO 


0000 


80 




EXTRN 


QEVTEMP 




DFCO 


0000 


81 




EXTRN 


QEV.THIS 




DFCO 


0000 


82 




EXTRN 


QEV.LAST 




DFCO 


0000 


83 






EXTRN 


BACICMASK 


DFCO 




84 










DFCO 




85 


* CONSTANT DECLARATIONS 




DFCO 




86 










DFCO 


0000 


87 


FALSE 


EQU 


$00 




DFCO 


0001 


88 


BITONO 


EQU 


$01 




DFCO 


0002 


89 


BITONl 


EQU 


$02 




DFCO 


0004 


90 


BIT0N2 


EQU 


$04 




DFCO 


0010 


91 


BIT0N4 


EQU 


$10 




DFCO 


0020 


92 


BIT0N5 


EQU 


$20 




DFCO 


0040 


93 


BIT0N6 


EQU 


$40 




DFCO 


0080 


94 


BIT0N7 


EQU 


$80 




DFCO 


00F7 


95 


BIT0FF3 


EQU 


$F7 




DFCO 


OOEF 


96 


BIT0FF4 


EQU 


$EF 




DFCO 


OODF 


97 


BIT0FF5 


EQU 


$DF 




DFCO 


OOBF 


98 


BIT0FF5 


EQU 


$BF 




DFCO 


007F 


99 


BIT0FF7 


EQU 


$7F 




DFCO 


0020 


100 


BACKBIT 


EQU 


$20 


; BACKUP BIT MASK 


DFCO 




101 










DFCO 




102 


* SYSTEM 


CONTROL REGISTERS 




DFCO 




103 










DFCO 


FFEF 


104 


B.REG 


EQU 


$FFEF 


;BANK REGISTER 


DFCO 


FFDF 


105 


E.REG 


EQU 


$FFDF 


/ENVIRONMENT REGISTER 


DFCO 


FFDO 


105 


Z .REG 


EQU 


$FFDO 


;ZERO PAGE REGISTER 


DFCO 




107 


* 








DFCO 




108 


* 6522 REGISTERS 




DFCO 




109 










DFCO 


FFDD 


110 


D.IFR 


EQU 


$FFDD 




DFCO 


FFDE 


111 


D.IER 


EQU 


$FFDE 
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DFCO : 
DFCO : 
DFCO : 
DFCO : 



FFEO 112 E.IORB 

FFED 113 E.IFR 

FFEE 114 E.IER 

FFEF 115 E.IORA 



EQU SFFEO 

EQU $FFED 

EQU $FFEE 

EQU SFFEF 
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DFCO 






117 


* 








DFCO 






118 


* REGISTER PRESERVATION EQUATES 




DFCO 






119 


♦ FOR USE DURING INTERRUPT PROCESSING 


DFCO 






120 










DFCO 




0103 


121 


A . SAVE 


EQU 


$103 




DFCO 




0104 


122 


S . SAVE 


EQU 


$104 




DFCO 




OlFF 


123 


SP . SAVE 


EQU 


$1FF 




DFCO 




OlFE 


124 


E . SAVE 


EQU 


$1FE 




DFCO 




OlFD 


125 


Z . SAVE 


EQU 


$1FD 




DFCO 




OlFC 


126 


B . SAVE 


EQU 


$1FC 




DFCO 


00 




127 


EXPNSLOT 


DFB 


$00 


CURRENT I/O EXPANSION SLOT 


DFCl 






128 


* 








DFCl 






129 


* STATUS 


LOCATIONS FOR INTERRUPT POLLING 


DFCl 






130 










DFCl 




COFl 


131 


ACIASTAT 


EQU 


$C0F1 




DFCl 


02 




132 


ANYSLOT 


DFB 


BITONl 




DFC2 




C065 


133 


SLOTl 


EQU 


$C055 




DFC2 




C064 


134 


SL0T2 


EQU 


$C054 




DFC2 


20 




135 


SLOT 3 


DFB 


BIT0N5 




DFC3 


10 




136 


SLOT 4 


DFB 


BIT0N4 




DFC4 






137 










DFC4 






138 


* INTERRUPT ZERO PAGE STORAGE S EQUATES 


DFC4 






139 










DFC4 




00F9 


140 


SIRARGS 


EQU 


$F9 


AND $FA 


DFC4 




OOFB 


141 


QEVARGS 


EQU 


$FB 


AND $FC 


DFC4 




OOFD 


142 


IRQADDR 


EQU 


$FD 


AND $FE 


DFC4 




OOFF 


143 


ZPGSP 


EQU 


$FF 




DFC4 




OOFS 


144 


ZPGSTART 


EQU 


$F8 




DFC4 




0028 


145 


ZPGSTOP 


EQU 


$28 




DFC4 




0020 


146 


ZPGSPACE 


EQU 


$20 




DFC4 


F8 




147 


ZPGSTACK 


DFB 


ZPGSTART 




DFC5 






148 










DFC5 






149 


* SYSTEM 


INTERNAL RESOURCE 




DFC5 






150 


* TABLE 


STORAGE 


AND EQUATES 




DFC5 






151 


* 








DFC5 




0018 


152 


SIRTBLSIZ 


EQU 


$18 




DFC5 




0018 


153 


SIRTABLE 


DS 


SIRTBLSIZ 




DFDD 




0018 


154 


SIRADR. L 


DS 


SIRTBLSIZ 




DFF5 




0001 


155 


NMIADR. L 


DS 


1 


MUST PRECEED SIRADR. H 


DFF6 




0018 


156 


SIRADR. H 


DS 


SIRTBLSIZ 




EOOE 




0018 


157 


SIRADR. B 


DS 


SIRTBLSIZ 




E026 






158 


* 








E025 






159 


* EVENT 


QUEUE STORAGE AND EQUATES 




E026 






160 


* 








E025 




0006 


161 


EVQ.SIZ 


EQU 


6 


ENTRY SIZE 


E026 




0007 


162 


EVQ . CNT 


EQU 


$07 


ENTRY COUNT 


E026 




002A 


163 


EVQ . LEN 


EQU 


$2A 


(EVQ.SIZ*EVQ.CNT) 


E026 




002A 


164 


EV. QUEUE 


DS 


EVQ . LEN 




E050 




E028 


165 


EVQ . FREE 


EQU 


EV.QUEUE+2 


FIRST FREE ENTRY INDEX 


E050 




E026 


166 


EVQ. LINK 


EQU 


EV.QUEUE+0 


NEXT ACTIVE ENTRY INDEX 


E050 




E027 


167 


EVQ.PRI 


EQU 


EV.QUEUE+1 


EVENT PRIORITY 


E050 




E028 


168 


EVQ. ID 


EQU 


EV.QUEUE+2 


EVENT IDENTIFICATION 


E050 




E029 


169 


EVQ.ADRL 


EQU 


EV.QUEUE+3 


EVENT ADDRESS: LOW BYTE 


E050 




E02A 


170 


EVQ.ADRH 


EQU 


EV.QUEUE+4 


EVENT ADDRESS: HIGH BYTE 


E050 




E02B 


171 


EVQ . BANK 


EQU 


EV.QUEUE+5 


EVENT ADDRESS: BANK 
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E050 








173 


* * 


********************************************************** 


E050 








174 


* 




E050 








175 




THIS IS THE GENERAL INTERRUPT RECEIVER. WHEN AN 


E050 








176 




INTERRUPT OCCURS, THE CPU PASSES CONTROL TO THE GIR 


E050 








177 


* 


THROUGH THE IRQ VECTOR. THE GIR IS RESPONSIBLE FOR 


E050 








178 




SAVING THE CURRENT ENVIRONMENT, SETTING UP THE SOS 


E050 








179 




ENVIRONMENT, AND CALLING THE APPROPRIATE CODE MODULE. 


E050 








180 


* 


IF THE INTERRUPT WAS CAUSED BY A BRK, THE GIR CALLS 


E050 








181 


* 


THE SYSTEM CALL MANAGER. OTHERWISE, THE GIR POLLS THE 


E050 








182 


* 


I/O DEVICES AND CALLS THE APPROPRIATE MASTER INTERRUPT 


E050 








183 


* 


HANDLER. WHEN THE SCM OR MIH RETURNS, THE GIR PASSES 


E050 








184 




CONTROL TO THE DISPATCHER. 


E050 








185 






E050 








186 






E050 








187 






E050 






E050 


188 


IRQ.RCVR EQU * 


E050 








189 


* 




E050 








190 


* 


SAVE CPU REGISTERS A, X, S Y ON CURRENT STACK 


E050 








191 


* 




E050 


48 






192 




PHA 


E051 


8A 






193 




TXA 


E052 


48 






194 




PHA 


E053 


98 






1 95 




TYA 


E054 


48 






196 




PHA 


E055 








197 






E055 








198 


* 


CHECK FOR STACK OVERFLOW AND 


E055 








199 


* 


SAVE INTERRUPTED STATUS IN Y REGISTER. 


E055 








200 


* 




E055 


BA 






201 




TSX 


E056 


EO 


FA 




202 




CPX #$FA 


E058 


90 


05 


E05F 


203 




BCC GIR005 


E05A 


A9 


00 




204 




LDA #>STKOVFL 


E05C 


20 


00 


00 


205 




JSR SYSDEATH 


E05F 


BC 


04 


01 


206 


GIR005 LDY S.SAVE,X 


E062 








207 


* 




E062 








208 


* 


SET UP INTERRUPT ENVIRONMENT: 


E062 








209 


* 


BINARY ARITHMETIC, 2 MHZ, I/O ENABLED, 


E062 








210 




RAM WRITE ENABLED, PRIMARY STACK, 


E062 








211 




AND $F000 RAM SELECTED. PRESERVE 


E062 








212 




USER STATE OF SCREEN AND RESET LOCK. 


E062 








213 






E062 


D8 






214 




CLD 


E063 


AD 


DF 


FF 


215 




LDA E . REG 


E066 


AA 






216 




TAX 


E067 


29 


30 




217 




AND #BITON5+BITON4 


E069 


09 


44 




218 




ORA #BITON6+BITON2 


EO 6B 


8D 


DF 


FF 


219 




STA E.REG 


E06E 








220 






E06E 








221 




IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S STACK 


E06E 








222 




POINTER AND SET UP SOS STACK POINTER. 


E06E 








223 


* 




E06E 


8A 






224 




TXA 


E06F 


29 


04 




225 




AND #BIT0N2 


E071 


DO 


09 


E07C 


226 




BNE GIRO 10 


E073 


8A 






227 




TXA 


E074 


BA 






228 




TSX 
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E075 


8E 


FF 


01 


229 


STX 


SP . SAVE 




E078 


A2 


FE 




230 


LDX 


#>E . SAVE 




E07A 


9A 






231 


TXS 






E07B 


AA 






232 


TAX 






E07C 








233 








E07C 








234 


* SAVE E, Z, E 


!, S I/O EXPANSION SLOT ON SOS STACK 


E07C 








235 


* IF BRK THEN 


CALL SCMGR ELSE POLL I/O DEVICES 


E07C 








236 


* 






E07C 


8A 






237 


GIRO 10 TXA 






E07D 


48 






238 


PHA 






E07E 


AD 


DO 


FF 


239 


LDA 


Z.REG 




E081 


48 






240 


PHA 






E082 


AD 


EF 


FF 


241 


LDA 


B.REG 




E085 


48 






242 


PHA 






E086 


AD 


CO 


DF 


243 


LDA 


EXPNSLOT 




E089 


48 






244 


PHA 






E08A 


2C 


FF 


CF 


245 


BIT 


$CFFF 




E08D 


2C 


20 


CO 


246 


BIT 


$C020 


RESET I/O SPACE 


E090 


A9 


00 




247 


LDA 


#$00 




E092 


8D 


CO 


DF 


248 


STA 


EXPNSLOT 




E095 


98 






249 


TYA 






E096 


2 9 


10 




250 


AND 


#BIT0N4 




E098 


FO 


40 


EODA 


251 


BEQ 


POLL. 10 




E09A 








252 








EO 9A 








253 


* CALL SYSTEM 


CALL MANAGER; ON RETURN, PUT ERROR CODE IN 


E09A 








254 


* USER'S A REGISTER AND SET RETURN STATUS, THEN DISPATCH. 


E09A 








255 


* 






EO 9A 


BA 






256 


TSX 




CHECK FOR 


EO 9B 


EO 


FA 




257 


CPX 


#>B.SAVE-2 


REENTRANT 


E09D 


FO 


05 


E0A4 


258 


BEQ 


GIR020 


SYSTEM CALL 


E09F 


A9 


00 




259 


LDA 


#>BADBRK 




EOAl 


20 


00 


00 


260 


JSR 


SYSDEATH 




E0A4 


AD 


DF 


FF 


261 


GIR020 LDA 


E.REG 


SELECT $C000 RAM 


E0A7 


29 


BF 




262 


AND 


#BIT0FF5 




E0A9 


8D 


DF 


FF 


263 


STA 


E.REG 




EOAC 


58 






264 


CLI 




ENABLE INTERRUPTS 


EOAD 


20 


00 


00 


265 


JSR 


SCMGR 


CALL THE SYSTEM CALL MGR 


EOBO 


A9 


20 




2 66 


LDA 


# BACKBIT 


GET THE MASK 


E0B2 


8D 


00 


00 


2 67 


STA 


BACKMASK 


SET IT IN SYSGLOB 


E0B5 


20 


00 


00 


2 68 


JSR 


CHKBUF 




E0B8 


78 






2 69 


SEI 






E0B9 


AE 


FF 


01 


270 


LDX 


SP . SAVE 




EOBC 


AD 


FD 


01 


271 


LDA 


Z . SAVE 




EOBF 


49 


01 




272 


FOR 


#BITON0 


SET ZERO PAGE TO 


EOCl 


8D 


DO 


FF 


273 


STA 


Z.REG 


CALLER'S STACK 


E0C4 


AD 


00 


00 


274 


LDA 


SERR 




E0C7 


95 


03 




275 


STA 


>A.SAVE,X 




E0C9 


08 






276 


PHP 






EOCA 


B5 


04 




277 


LDA 


>S . SAVE, X 




EOCC 


29 


7D 




278 


AND 


#$7D 




EOCE 


95 


04 




279 


STA 


>S.SAVE,X 




EODO 


68 






280 


PLA 






EODl 


29 


82 




281 


AND 


#$82 




E0D3 


15 


04 




282 


ORA 


>S . SAVE, X 




E0D5 


95 


04 




283 


STA 


>S . SAVE, X 




E0D7 


4C 


ID 


E2 


284 


JMP 


DISPATCH 
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EODA; 








286 


* 








EODA; 








287 


* SET INTERRUPT ZERO PAGE AND 


SOS BANK 


EODA; 








288 


* THEN 


POLL 


I/O DEVICES 




EODA: 








289 










EODA; 


: 2C 


EF 


FF 


290 


POLL. 10 


BIT 


E . lORA 


/VERIFY THAT 'IRQ IS LOW 


EODD ; 


: 10 


OB 


EOEA 


291 




BPL 


PIO006 




EODF ; 


:EE 


00 


00 


2 92 




INC 


IRQCNTR 


; BUMP FALSE IRQ COUNTER 


E0E2 ; 


;D0 


03 


E0E7 


293 




BNE 


PIO004 




E0E4 ; 


;EE 


01 


00 


294 




INC 


IRQCNTR+1 




E0E7 ; 


; 4C 


ID 


E2 


295 


PIO004 


JMP 


DISPATCH 




EOEA; 


; A9 


00 




296 


PIO006 


LDA 


#0 


; SET INTERRUPT ZERO PAGE 


EOEC ; 


: 8D 


DO 


FF 


297 




STA 


Z . REG 




EOEF : 


: AD 


DF 


FF 


2 98 




LDA 


E . REG 




E0F2 : 


: 09 


80 




2 99 




ORA 


#BIT0N7 


; FORCE 1 MHZ FOR 


E0F4 : 


: 8D 


DF 


FF 


300 




STA 


E . REG 


; READING ACTA STATUS 


E0F7 : 


: 2 9 


7F 




301 




AND 


#BIT0FF7 




E0F9 ; 


; A2 


01 




302 




LDX 


#$01 




EOFB ; 


: AC 


Fl 


CO 


303 




LDY 


ACIASTAT 


;ANY INTERRUPT ON ACTA? 


EOFE ; 


; 80 


DF 


FF 


304 




STA 


E.REG 




ElOl ; 


; 30 


5C 


E15F 


305 




BMI 


PIO070 




E103 ; 


: AD 


ED 


FF 


306 




LDA 


E . IFR 


;ANY INTERRUPT ON E-6522? 


E106 : 


: 10 


10 


E118 


307 




BPL 


P10020 


; NO 


E108 ; 


: 2D 


EE 


FF 


308 




AND 


E . lER 




ElOB: 


: AO 


07 




309 




LDY 


#7 




ElOD : 


: A2 


02 




310 




LDX 


#$02 




ElOF ; 


; 4A 






311 


PlOOlO 


LSR 


A 


; CHECK FLAG BITS 


EllO ; 


;B0 


4D 


E15F 


312 




BCS 


PIO070 




E112 : 


:E8 






313 




INX 






E113 ; 


: 88 






314 




DEY 






E114 : 


:D0 


F9 


ElOF 


315 




BNE 


PlOOlO 




E116 : 


:F0 


18 


E130 


316 




BEQ 


PIO035 




E118 ; 


: AD 


DD 


FF 


317 


PIO020 


LDA 


D . IFR 


;ANY INTERRUPT ON D-6522? 


EllB ; 


; 10 


13 


E130 


318 




BPL 


PIO035 




EllD; 


;2D 


DE 


FF 


319 




AND 


D.IER 




E120 ; 


; 2C 


CI 


DF 


320 




BIT 


ANYSLOT 


;ANY SLOT INTERRUPT? 


E123 ; 


;D0 


OF 


E134 


321 




BNE 


PIO040 


; YES 


E125 : 


:A0 


07 




322 




LDY 


#7 




E127 ; 


: A2 


09 




323 




LDX 


#$09 




E129 ; 


: 4A 






324 


PIO030 


LSR 


A 


; CHECK FLAG BITS 


E12A: 


: BO 


33 


E15F 


325 




BCS 


PIO070 




E12C ; 


;E8 






326 




INX 






E12D ; 


; 88 






327 




DEY 






E12E ; 


;D0 


F9 


E129 


328 




BNE 


PIO030 




E130 ; 


; A2 


10 




329 


PIO035 


LDX 


#$10 


; INTERRUPT NOT FOUND 


E132 ; 


;D0 


IE 


E152 


330 




BNE 


PIO050 




E134 ; 


: A2 


11 




331 


PIO040 


LDX 


#$11 




E136 : 


: 2C 


65 


CO 


332 




BIT 


SLOTl 


; SLOT 1? 


E139: 


: 10 


24 


E15F 


333 




BPL 


PIO070 




E13B; 


:E8 






334 




INX 






E13C: 


:2C 


64 


CO 


335 




BIT 


SL0T2 


/SLOT 2? 


E13F; 


:10 


IE 


E15F 


336 




BPL 


PIO070 




E141; 


:AD 


EF 


FF 


337 




LDA 


E. lORA 




E144 : 


:E8 






338 




INX 






E145: 


:2C 


C2 


DF 


339 




BIT 


SL0T3 


/SLOT 3? 


E148; 


:F0 


15 


E15F 


340 




BEQ 


PIO070 




E14A; 


:E8 






341 




INX 
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E14B 


2C 


C3 


DF 


342 


BIT 


SL0T4 




;SLOT 4? 


E14E 


FO 


OF 


E15F 


343 


BEQ 


PIO070 






E150 


A2 


OA 




344 


LDX 


#$0A 






E152 








345 










E152 








346 


* BAD INTERRUPT 


— SYSTEM DEATH 




E152 








347 










E152 


A9 


00 




348 


PIO050 LDA 


#>BADINT1 




; INTERRUPT NOT FOUND 


E154 


20 


00 


00 


349 


JSR 


SYSDEATH 






E157 


A9 


00 




350 


PIO050 LDA 


#>BADINT2 




;BAD ZERO PAGE ALLOCATION 


E159 


20 


00 


00 


351 


JSR 


SYSDEATH 






E15C 








352 


* 








E15C 








353 


* INTERRUPTING 


DEVICE FOUND 






E15C 








354 


* ALLOCATE ZERO PAGE AND 


CALL 


MASTER INTERRUPT HANDLER 


E15C 








355 










E15C 








356 


* NOTE: 








E15C 








357 


♦ SINCE READING THE ACTA' 


S STATUS REGISTER RESETS THE 


E15C 








358 


* DSR AND DCD 


BITS, THE STATUS READ BY THE POLLING 


E15C 








359 


* ROUTINE MUST BE PASSED 


TO THE INTERRUPT HANDLER; 


E15C 








360 


* THE Y REGISTER HAS BEEN 


SELECTED FOR THIS PURPOSE. 


E15C 








361 


* THE CURRENT 


IMPLEMENTATION 


DOES NOT USE Y IN CALLING 


E15C 








362 


* THE INTERRUPT HANDLER. 


IF 


SUBSEQUENT REVISIONS 


E15C 








363 


* NEED TO USE 


Y, THE STATUS MUST BE PRESERVED AND 


E15C 








364 


* RESTORED BEFORE CALLING 


THE 


INTERRUPT HANDLER. 


E15C 








365 










E15C 


6C 


FD 


GO 


366 


CALLMIH JMP 


(IRQADDR) 






E15F 








367 










E15F 


BD 


C5 


DF 


368 


PIO070 LDA 


SIRTABLE,X 




/INTERRUPT ALLOCATED? 


El 62 


10 


EE 


E152 


369 


BPL 


PIO050 




; NO 


El 64 


BD 


DD 


DF 


370 


LDA 


SIRADR.L,X 




;GET INTERRUPT ADDRESS 


E167 


85 


FD 




371 


STA 


IRQADDR 






E169 


ID 


F6 


DF 


372 


ORA 


SIRADR.H,X 




/CHECK FOR ADDRESS = $00 


E16C 


FO 


E4 


E152 


373 


BEQ 


PI0050 




; BAD ADDRESS 


E16E 


BD 


F5 


DF 


374 


LDA 


SIRADR.H,X 






E171 


85 


FE 




375 


STA 


IRQADDR+1 






E173 


BD 


OE 


EO 


376 


LDA 


SIRADR.B,X 






E176 


8D 


EF 


FF 


377 


STA 


B.REG 






E179 


AD 


C4 


DF 


378 


LDA 


ZPGSTACK 




/ALLOCATE MIH ZERO PAGE 


E17C 


C9 


48 




379 


CMP 


#ZPGSTOP+ZPGSPACE 


E17E 


90 


D7 


E157 


380 


BCC 


PIO060 




;T00 MANY NESTED INTERRUPTS 


E180 


E9 


20 




381 


SBC 


#ZPGSPACE 






E182 


8D 


C4 


DF 


382 


STA 


ZPGSTACK 






E185 


85 


FF 




383 


STA 


ZPGSP 






E187 


AA 






384 


TAX 








E188 


20 


5C 


El 


385 


JSR 


CALLMIH 




;CALL INTERRUPT HANDLER 


E18B 


78 






386 


SEI 








El 8C 


A9 


00 




387 


LDA 


#$00 






E18E 


8D 


DO 


FF 


388 


STA 


Z.REG 






E191 


18 






389 


CLC 








E192 


AD 


C4 


DF 


390 


LDA 


ZPGSTACK 




/DEALLOCATE MIH ZERO PAGE 


E195 


69 


20 




391 


ADC 


#ZPGSPACE 






E197 


8D 


C4 


DF 


392 


STA 


ZPGSTACK 






E19A 


85 


FF 




393 


STA 


ZPGSP 






E19C 


A9 


02 




394 


LDA 


#BIT0N1 






E19E 


8D 


DD 


FF 


395 


STA 


D . IFR 




/CLEAR ANY SLOT INTERRUPT 


ElAl 


4C 


ID 


E2 


396 


JMP 


DISPATCH 
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E1A4 








398 


* * 


********************************************************** 


E1A4 








399 


* 




E1A4 








400 


* 


THIS IS THE NON-MASKABLE INTERRUPT RECEIVER. WHEN AN 


E1A4 








401 




NMI OCCURS, THE CPU PASSES CONTROL TO THE NMI RECEIVER 


E1A4 








402 




THROUGH THE NMI VECTOR. THE OPERATION OF THE NMI 


E1A4 








403 




RECEIVER IS ESSENTIALLY THE SAME AS THE GIR EXCEPT 


E1A4 








404 




THAT IT IS NOT CONCERNED WITH BRK, AND THE ONLY VALID 


E1A4 








405 


* 


SOURCE OF AN NMI IS THE KEYBOARD OR THE I/O DEVICE THAT 


E1A4 








406 


* 


HAS ALLOCATED THE NMI RESOURCE. 


E1A4 








407 


* 




E1A4 








408 


* * 


********************************************************** 


E1A4 








409 






E1A4 








410 






E1A4 






E1A4 


411 


NMI.RCVR EQU * 


E1A4 








412 






E1A4 








413 




SAVE CPU REGISTERS A, X, S Y ON CURRENT STACK 


E1A4 








414 


* 




E1A4 


48 






415 




PHA 


E1A5 


8A 






415 




TXA 


E1A6 


48 






417 




PHA 


E1A7 


98 






418 




TYA 


E1A8 


48 






419 




PHA 


E1A9 








420 






E1A9 








421 




CHECK FOR STACK OVERFLOW 


E1A9 








422 






E1A9 


BA 






423 




TSX 


ElAA 


EO 


FA 




424 




CPX #$FA 


El AC 


90 


05 


E1B3 


425 




BCC NMI005 


ElAE 


A9 


00 




426 




LDA #>STKOVFL 


ElBO 


20 


00 


00 


427 




JSR SYSDEATH 


E1B3 








428 






E1B3 








429 




SET UP INTERRUPT ENVIRONMENT: 


E1B3 








430 


* 


BINARY ARITHMETIC, 2 MHZ, I/O ENABLED, 


E1B3 








431 


* 


RAM WRITE ENABLED, PRIMARY STACK, 


E1B3 








432 


* 


AND $F000 RAM SELECTED. PRESERVE 


E1B3 








433 


* 


USER STATE OF SCREEN AND RESET LOCK. 


E1B3 








434 






E1B3 


D8 






435 


NMI005 CLD 


E1B4 


AD 


DF 


FF 


436 




LDA E.REG 


E1B7 


AA 






437 




TAX 


E1B8 


29 


30 




438 




AND #BITON5+BITON4 


ElBA 


09 


44 




439 




ORA #BITON6+BITON2 


ElBC 


8D 


DF 


FF 


440 




STA E.REG 


ElBF 








441 


* 




ElBF 








442 


* 


IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S 


ElBF 








443 


* 


STACK POINTER AND SET UP SOS STACK POINTER. 


ElBF 








444 






ElBF 


8A 






445 




TXA 


EICO 


29 


04 




446 




AND #BIT0N2 


E1C2 


DO 


09 


EICD 


447 




BNE NMIOlO 


E1C4 


8A 






448 




TXA 


E1C5 


BA 






449 




TSX 


E1C6 


8E 


FF 


01 


450 




STX SP . SAVE 


E1C9 


A2 


EE 




451 




LDX #>E . SAVE 


EICB 


9A 






452 




TXS 


EICC 


AA 






453 




TAX 
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02 IPL. 


3RC1 


NON- 


-MASKABLE INTERRUPT RECEIVER AUGUST-2006 PAGE 


EICD 








454 


* 




EICD 








455 


* SAVE SYSTEM CONTROL REGISTERS E, Z, S B ON SOS STACK 


EICD 








456 


* 




EICD 


8A 






457 


NMI 1 TXA 




EICE 


48 






458 


PHA 




EICF 


AD 


DO 


FF 


459 


LDA 


Z.REG 


E1D2 


48 






460 


PHA 




E1D3 


AD 


EF 


FF 


461 


LDA 


B.REG 


E1D5 


48 






462 


PHA 




E1D7 


AD 


CO 


DF 


463 


LDA 


EXPNSLOT 


EIDA 


48 






464 


PHA 




EIDB 


2C 


FF 


CF 


465 


BIT 


$CFFF 


EIDE 


2C 


20 


CO 


4 66 


BIT 


$C020 /RESET I/O SPACE 


ElEl 


A9 


00 




4 67 


LDA 


#$00 


E1E3 


8D 


CO 


DF 


468 


STA 


EXPNSLOT 


E1E6 








469 






E1E6 








470 


* SET INTERRUPT 


ZERO PAGE 


E1E5 








471 


* 




E1E6 


A9 


00 




472 


LDA 


#0 


E1E8 


8D 


DO 


FF 


473 


STA 


Z.REG 


ElEB 








474 






ElEB 








475 


* SEE IF NMI IS 


FROM KEYBOARD OR I/O DEVICE 


ElEB 








476 






ElEB 


AD 


EO 


FF 


477 


LDA 


E . lORB 


ElEE 


30 


20 


E210 


478 


BMI 


NMI030 


EIFO 








479 






EIFO 








480 


* NMI IS FROM I/O DEVICE 


EIFO 








481 






FIFO 


AD 


C5 


DF 


482 


LDA 


SIRTABLE ;NMI ALLOCATED? 


E1F3 


10 


16 


E20B 


483 


BPL 


NMI020 


E1F5 


20 


EC 


El 


484 


JSR 


CALLNMI 


EIFB 


78 






485 


SEI 




E1F9 


4C 


ID 


E2 


485 


JMP 


DISPATCH 


EIFC 


AD 


DD 


DF 


487 


CALLNMI LDA 


SIRADR.L 


EIFF 


8D 


F5 


DF 


488 


STA 


NMI ADR. L 


E202 


AD 


OE 


EO 


489 


LDA 


SIRADR.B 


E205 


8D 


EF 


FF 


490 


STA 


B.REG 


E208 


6C 


F5 


DF 


491 


JMP 


( NMI ADR. L) 


E20B 








4 92 






E20B 








4 93 


* BAD INTERRUPT 


— SYSTEM DEATH 


E20B 








494 






E20B 


A9 


00 




495 


NMI 020 LDA 


#>BADINT1 ;NMI NOT ALLOCATED 


E20D 


20 


00 


00 


495 


JSR 


SYSDEATH 


E210 








497 


* 




E210 








498 


* NMI IS FROM THE KEYBOARD 


E210 








499 


A 




E210 


AD 


00 


00 


500 


NMI030 LDA 


SYSBANK 


E213 


8D 


EF 


FF 


501 


STA 


B.REG 


E216 


20 


00 


00 


502 


JSR 


KYBDNMI 


E219 


78 






503 


SEI 




E21A 


4C 


ID 


E2 


504 


JMP 


DISPATCH 
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E21D 








505 


* * 


********************************************************** 


E21D 








507 


* 




E21D 








508 


* 


THIS IS THE DISPATCHER. UPON COMPLETION, ALL SOS CALLS 


E21D 








509 




AND INTERRUPT HANDLERS RETURN CONTROL TO THE DISPATCHER. 


E21D 








510 




ITS PURPOSE IS TO SET UP THE APPROPRIATE ENVIRONMENT AND 


E21D 








511 


* 


PASS CONTROL TO WHATEVER CODE SHOULD RUN NEXT. 


E2 ID 








512 






E21D 








513 


* 


WHEN SOS IS INTERRUPTED, CONTROL ALWAYS RETURNS TO THE 


E21D 








514 


* 


INTERRUPTED CODE. HOWEVER, WHEN THE USER IS INTERRUPTED, 


E21D 








515 


* 


BY EITHER A SOS CALL OR AN INTERRUPT, THE DISPATCHER 


E21D 








516 


* 


MUST CHECK THE EVENT QUEUE. IF THERE IS AN ACTIVE EVENT 


E21D 








517 


* 


WITH A PRIORITY HIGHER THAN THE CURRENT EVENT FENCE, 


E21D 








518 




CONTROL IS PASSED TO THE EVENT CODE. OTHERWISE, CONTROL 


E21D 








519 




RETURNS TO THE INTERRUPTED CODE. 


E21D 








520 






E21D 








521 




********************************************************** 


E21D 








522 


* 




E21D 






E21D 


523 


DISPATCH EQU * 


E21D 








524 


* 




E21D 








525 


* 


DISABLE INTERRUPTS AND RESTORE 


E21D 








526 




SYSTEM CONTROL REGISTERS B & Z 


E21D 








527 






E21D 


78 






528 




SET 


E21E 


AD 


DF 


FF 


529 




LDA E . REG 


E221 


09 


40 




530 




ORA #BIT0N6 /ENABLE I/O 


E223 


8D 


DF 


FF 


531 




STA E.REG 


E226 


68 






532 




PLA 


E227 


20 


A9 


E3 


533 




JSR SELC800 /RESTORE I/O SPACE 


E22A 


68 






534 




PLA 


E22B 


8D 


EF 


FF 


535 




STA B.REG 


E22E 


68 






536 




PLA 


E22F 


8D 


DO 


FF 


537 




STA Z . REG 


E232 








538 


* 




E232 








539 


* 


CHECK SAVED ENVIRONMENT REGISTER 


E232 








540 


* 


IF RETURNING TO PRIMARY STACK 


E232 








541 


* 


THEN RESTORE E REG AND RELAUNCH SOS 


E232 








542 




ELSE RESET STACK POINTER S RESTORE E REG 


E232 








543 






E232 


68 






544 




PLA 


E233 


09 


20 




545 




ORA #BIT0N5 ; SET SCREEN STATE TO 


E235 


2C 


00 


00 


546 




BIT SCRNMODE ; CURRENT SCREEN MODE 


E238 


30 


02 


E23C 


547 




BMI DSP005 


E23A 


29 


DF 




548 




AND #B I TOFF 5 


E23C 


A8 






549 


DSP005 TAY 


E23D 


29 


04 




550 




AND #BIT0N2 


E23F 


FO 


05 


E246 


551 




BEQ DSPOlO 


E241 


8C 


DF 


FF 


552 




STY E.REG 


E244 


DO 


41 


E287 


553 




BNE DSP030 


E246 


68 






554 


DSPOlO PLA 


E247 


AA 






555 




TAX 


E248 


9A 






556 




TXS 


E249 


8C 


DF 


FF 


557 




STY E.REG 


E24C 








558 






E24C 








559 




CHECK FOR ACTIVE EVENT WITH PRIORITY > FENCE 


E24C 








560 






E24C 


AD 


00 


00 


561 


DSP020 LDA CEVPRI 
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DISPATCHER 



AUGUST-2006 



E24F 


AE 


26 


EO 




562 






LDX 


EVQ.LINK 


E252 


DD 


27 


EO 




563 






CMP 


EVQ . PRI , X 


E255 


BO 


30 


E2! 


J7 


564 






BCS 


DSP030 


E257 










565 










E257 










566 




PROCESS 


ACTIVE EVENT TR 


E257 










567 




SAVE E, 


Z, B 


, S CALLER' 


E257 










568 




EVENT . 


UPON 


RETURN, RE 


E257 










569 


* 


CHECK FOR MORE EVENTS. 


E257 










570 


* 








E257 


AD 


OF 


FF 




571 






LDA 


E.REG 


E25A 


48 








572 






PHA 




E25B 


AD 


DO 


FF 




573 






LDA 


Z .REG 


E25E 


48 








574 






PHA 




E25F 


AD 


EF 


FF 




575 






LDA 


B . REG 


E262 


48 








576 






PHA 




E263 


AD 


00 


00 




577 






LDA 


CEVPRI 


E266 


48 








578 






PHA 




E267 


20 


8D 


E2 




579 






JSR 


DO . EVENT 


E26A 


78 








580 






SEI 




E26B 


68 








581 






PLA 




E26C 


BD 


00 


00 




582 






STA 


CEVPRI 


E2 6F 


68 








583 






PLA 




E270 


8D 


EF 


FF 




584 






STA 


B . REG 


E273 


68 








585 






PLA 




E274 


8D 


DO 


FF 




586 






STA 


Z.REG 


E277 


68 








587 






PLA 




E278 


09 


20 






588 






ORA 


#BIT0N5 


E27A 


2C 


00 


00 




589 






BIT 


SCRNMODE 


E27D 


30 


02 


E2 


1 


590 






BMI 


DSP025 


E27F 


29 


DF 






591 






AND 


#BIT0FF5 


E281 


8D 


DF 


FF 




592 


DSP025 


STA 


E.REG 


E284 


4C 


4C 


E2 




593 






JMP 


DSP020 


E287 










594 


* 








E287 










595 


* 


RESTORE 


CPU 


REGISTERS Y 


E287 










596 


* 








E287 


68 








597 


DSP030 


PLA 




E288 


A8 








598 






TAY 




E289 


68 








599 






PLA 




E28A 


AA 








600 






TAX 




E28B 


68 








601 






PLA 




E28C 


40 








602 






RTI 





PRIORITY ON STACK THEN CALL 
TORE PRIORITY, B, Z, S E THEN 



;SET SCREEN STATE TO 
: CURRENT SCREEN MODE 



X, S A AND LAUNCH 
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E28D 








604 


* * 


************* 


********************************************* 


E28D 








605 


* 






E28D 








606 




THIS SUBROUTINE CALLS THE HIGHEST PRIORITY ACTIVE EVENT. 


E2 8D 








607 




FIRST, IT DELINKS THE FIRST ENTRY ON THE ACTIVE LIST AND 


E28D 








608 




LINKS IT TO 


THE FREE LIST. THEN, IT SETS UP THE BANK, 


E28D 








609 




ADDRESS, ID, 


& STATUS AND CALLS THE EVENT VIA AN RTI . 


E28D 








610 








E28D 








611 


* * 


************* 


********************************************* 


E28D 








612 


* 






E28D 






E28D 


613 


DO 


. EVENT EQU 




E28D 








614 


* 






E28D 








615 




WRITE ENABLE 


RAM 


E28D 








616 








E28D 


AC 


DF 


FF 


617 




LDY 


E . REG 


E2 90 


98 






618 




TYA 




E2 91 


2 9 


F7 




619 




AND 


#BIT0FF3 


E293 


8D 


DF 


FF 


620 




STA 


E.REG 


E295 








621 


* 






E296 








522 


* 


DELINK ENTRY 


FROM ACTIVE LIST AND RELINK IT TO FREE LIST 


E296 








523 


* 






E2 96 


AE 


26 


EO 


624 




LDX 


EVQ . LINK 


E2 99 


BD 


26 


EO 


625 




LDA 


EVQ . LINK, X 


E2 9C 


8D 


26 


EO 


626 




STA 


EVQ . LINK 


E2 9F 


AD 


28 


EO 


627 




LDA 


EVQ . FREE 


E2A2 


9D 


26 


EO 


628 




STA 


EVQ . LINK, X 


E2A5 


8E 


28 


EO 


529 




STX 


EVQ . FREE 


E2A8 








630 


* 






E2A8 








631 




SET FENCE TO 


EVENT PRIORITY THEN RESTORE E REG 


E2A8 








632 








E2A8 


BD 


27 


EO 


633 




LDA 


EVQ . PRI, X 


E2AB 


8D 


00 


00 


634 




STA 


CEVPRI 


E2AE 


8C 


DF 


FF 


635 




STY 


E . REG 


E2B1 








535 


* 






E2B1 








537 


* 


SET UP B, Z, 


E, ADDRESS, ID, S STATUS 


E2B1 








538 


* 






E2B1 


BD 


2B 


EO 


539 




LDA 


EVQ. BANK, X 


E2B4 


8D 


EE 


FF 


640 




STA 


B.REG 


E2B7 


BD 


2A 


EO 


641 




LDA 


EVQ.ADRH,X 


E2BA 


48 






642 




PHA 




E2BB 


BD 


29 


EO 


64 3 




LDA 


EVQ.ADRL,X 


E2BE 


48 






644 




PHA 




E2BF 


BC 


28 


EO 


545 




LDY 


EVQ. ID, X 


E2C2 


08 






545 




PHP 




E2C3 


58 






547 




PLA 




E2C4 


29 


82 




548 




AND 


#$82 


E2C6 


48 






649 




PHA 




E2C7 


98 






650 




TYA 




E2C8 


40 






651 




RTI 




E2C9 








652 


* 






E2C9 








653 




CHN 


IPL.SRC2 
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SYSTEM INTERNAL RESOURCES 



AUGUST-2006 



E2C9 


2 


* * 


* * * * A 


********************************* 


E2C9 


3 


* 






E2C9 


4 


* 


SYSTEM INTERNAL RESOURCE NUMBERS 


E2C9 


5 


* 






E2C9 


6 


* 






E2C9 


7 


* 


SIR 


RESOURCE 


E2C9 


8 


* 






E2C9 


9 


* 





SOUND PORT / I/O NMI 


E2C9 


10 


* 


1 


ACTA 


E2C9 


11 


* 


2 


E.CA2 — KEYBOARD 


E2C9 


12 


* 


3 


E.CAl — CLOCK 


E2C9 


13 




4 


E . SR 


E2C9 


14 




5 


E.CB2 — VBL + 


E2C9 


15 




6 


E.CBl — VBL - 


E2C9 


16 




7 


E . T2 


E2C9 


17 




8 


E.Tl 


E2C9 


18 


* 


9 


D.CA2 — CSP INPUT FLAG / INPUT 


E2C9 


19 


* 


A 


D.CAl — ANY SLOT (RESERVED FOR 


E2C9 


20 


* 


B 


D.SR — CSP DATA REGISTER 


E2C9 


21 


* 


c 


D.CB2 — CSP DATA I/O / ENSIO 


E2C9 


22 




D 


D.CBl — CSP CLOCK / ENSEL / A/D 


E2C9 


23 




E 


D.T2 


E2C9 


24 




F 


D.Tl 


E2C9 


25 




10 


DISK STEPPER / GRAPHICS SCROLL / 


E2C9 


26 




11 


SLOT 1 


E2C9 


27 




12 


SLOT 2 


E2C9 


28 


* 


13 


SLOT 3 


E2C9 


29 




14 


SLOT 4 


E2C9 


30 




15 


(UNASSIGNED) 


E2C9 


31 




16 


(UNASSIGNED) 


E2C9 


32 


* 


17 


(UNASSIGNED) 


E2C9 


33 


* 






E2C9 


34 


* * 


* * * * * 


********************************* 
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E2C9 


36 


* * 


******************************************************** 


E2C9 


37 


* 




E2C9 


38 


* 


RESOURCE ALLOCATION AND DEALLOCATION 


E2C9 


39 


* 




E2C9 


40 


* 


SIRS ARE ALLOCATED AND DEALLOCATED BY THE SUBROUTINES 


E2C9 


41 


* 


'ALLOCSIR' AND 'DEALCSIR' . THE RESOURCE PARAMETERS ARE 


E2C9 


42 




PASSED IN A TABLE THAT CONTAINS ONE FIVE-BYTE ENTRY FOR 


E2C9 


43 


* 


EACH SIR THAT IS TO BE ALLOCATED OR DEALLOCATED. THE 


E2C9 


44 


* 


TABLE ENTRY FORMAT IS SHOWN BELOW: 


E2C9 


45 


* 




E2C9 


46 


* 


12 3 4 


E2C9 


47 


* 




E2C9 


48 


* 


1 SIR # 1 ID 1 ADR.L 1 ADR.H | ADR.B | 


E2C9 


49 


* 




E2C9 


50 


* 




E2C9 


51 


* 


SIR # — SYSTEM INTERNAL RESOURCE NUMBER 


E2C9 


52 


* 


ID — IDENTIFICATION BYTE 


E2C9 


53 


* 


SUPPLIED BY ALLOCSIR, CHECKED BY DEALCSIR 


E2C9 


54 


* 


ADR — INTERRUPT ADDRESS (LOW, HIGH, BANK) 


E2C9 


55 


* 


ZERO IF NO INTERRUPT HANDLER 


E2C9 


56 






E2C9 


57 


* 




E2C9 


58 


* 


ALLOCSIR -- ALLOCATE SYSTEM INTERNAL RESOURCES 


E2C9 


59 


* 




E2C9 


60 


* 


PARAMETERS : 


E2C9 


61 




A: NUMBER OF BYTES IN TABLE 


E2C9 


62 


* 


X: TABLE ADDRESS (LOW BYTE) 


E2C9 


63 


* 


Y : TABLE ADDRESS {HIGH BYTE ) 


E2C9 


64 


* 




E2C9 


65 


* 


NORMAL EXIT — SIRS ALLOCATED 


E2C9 


66 


* 


CARRY : CLEAR 


E2C9 


67 


* 


A, X, Y: UNDEFINED 


E2C9 


68 


* 




E2C9 


69 


* 


ERROR EXIT — SIRS NOT ALLOCATED 


E2C9 


70 


* 


CARRY : SET 


E2C9 


71 


* 


X: SIR NUMBER 


E2C9 


72 


* 


A, Y: UNDEFINED 


E2C9 


73 


* 




E2C9 


74 


* 




E2C9 


75 


* 


DEALCSIR — DEALLOCATE SYSTEM INTERNAL RESOURCES 


E2C9 


76 


* 




E2C9 


77 


* 


PARAMETERS : 


E2C9 


78 


* 


A: NUMBER OF BYTES IN TABLE 


E2C9 


79 


* 


X: TABLE ADDRESS (LOW BYTE) 


E2C9 


80 


* 


Y: TABLE ADDRESS (HIGH BYTE) 


E2C9 


81 


* 




E2C9 


82 


* 


NORMAL EXIT - - S IRS DEALLOCATED 


E2C9 


83 


* 


CARRY: CLEAR 


E2C9 


84 


* 


A, X, Y: UNDEFINED 


E2C9 


85 


* 




E2C9 


86 


* 


ERROR EXIT — SIRS NOT DEALLOCATED 


E2C9 


87 


* 


CARRY : SET 


E2C9 


88 


* 


X: SIR NUMBER 


E2C9 


89 


* 


A, Y: UNDEFINED 


E2C9 


90 


* 




E2C9 


91 


* * 


******************************************************** 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 122 of 456 



03 IPL.SRC2 RESOURCE ALLOCATION S DEALLOCATION AUGUST-2006 PAGE 18 



E2C9 ; 








93 


* 








E2C9 ; 


; 81 






94 


IDBYTE 


DFB 


$81 




E2CA; 








95 


* 








E2CA: 






E2CA 


96 


ALLOCSIR 


EQU 


J, 




E2CA: 


: 18 






97 




CLC 






E2CB : 


: 08 






98 




PHP 






E2CC ; 


; 78 






99 




SEX 






E2CD ; 


; 8D 


00 


00 


100 




STA 


SIRARGSIZ 


; SAVE TABLE SIZE 


E2D0 ; 


; AD 


DF 


FF 


101 




LDA 


E.REG 




E2D3 ; 


; 8D 


00 


00 


102 




STA 


SIRTEMP 




E2D6 ; 


; 09 


04 




103 




ORA 


#BIT0N2 


; FORCE PRIMARY STACK 


E2D8 ; 


:29 


F7 




104 




AND 


#BIT0FF3 


; AND WRITE ENABLE 


E2DA: 


: 8D 


DF 


FF 


105 




STA 


E . REG 




E2DD : 


: AD 


00 


00 


106 




LDA 


SIRTEMP 




E2E0 : 


: 48 






107 




PHA 






E2E1 ; 


: AD 


DO 


FF 


108 




LDA 


Z . REG 




E2E4 ; 


: 48 






109 




PHA 






E2E5 ; 


;A9 


00 




110 




LDA 


#$00 




E2E7 ; 


; 8D 


DO 


FF 


111 




STA 


Z.REG 


;SET ZERO PAGE := $00 


E2EA; 


; 86 


F9 




112 




STX 


SIRARGS 




E2EC ; 


; 84 


FA 




113 




STY 


SIRARGS+1 


; SET POINTER TO TABLE 


E2EE ; 








114 










E2EE : 


: AO 


00 




115 




LDY 


#$00 




E2F0 : 


: Bl 


F9 




116 


ASIROlO 


LDA 


(SIRARGS) , Y 


;GET SIR NUMBER 


E2F2 : 


: C9 


18 




117 




CMP 


#SIRTBLSIZ 




E2F4 ; 


; AA 






118 




TAX 






E2F5 ; 


;B0 


33 


E32A 


119 




BCS 


ASIR020 




E2F7 : 


: BD 


C5 


DF 


120 




LDA 


SIRTABLE, X 


; CHECK ALLOCATION 


E2FA: 


: 30 


2E 


E32A 


121 




BMI 


ASIR020 




E2FC ; 


: AD 


C9 


E2 


122 




LDA 


IDBYTE 




E2FF : 


: 9D 


C5 


DF 


123 




STA 


SIRTABLE, X 


/ALLOCATE SIR 


E302 ; 


; C8 






124 




INY 






E303 ; 


; 91 


F9 




125 




STA 


(SIRARGS) , Y 


/RETURN ID BYTE 


E305 ; 


;C8 






126 




INY 






E305; 


;B1 


F9 




127 




LDA 


(SIRARGS) , Y 




E308 ; 


; 9D 


DD 


DF 


128 




STA 


SIRADR. L, X 


; SAVE INTERRUPT ADDRESS 


E30B : 


:C8 






129 




INY 






E30C : 


:B1 


F9 




130 




LDA 


(SIRARGS) , Y 




E30E : 


: 9D 


F6 


DF 


131 




STA 


SIRADR. H, X 




E311 : 


: C8 






132 




INY 






E312 : 


;B1 


F9 




133 




LDA 


(SIRARGS) , Y 




E314 ; 


; 9D 


OE 


EO 


134 




STA 


SIRADR. B,X 




E317 ; 


; C8 






135 




INY 






E318 ; 


; CC 


00 


00 


136 




CPY 


SIRARGSIZ 




E31B ; 


; 90 


D3 


E2F0 


137 




BCC 


ASIROlO 




E31D : 








138 


* 








E31D : 


: 18 






139 




CLC 






E31E; 


:EE 


C9 


E2 


140 




INC 


IDBYTE 


;BUMP ID BYTE 


E321 ; 


:30 


IF 


E342 


141 




BMI 


SIREXIT 




E323: 


:A9 


81 




142 




LDA 


#$81 




E325; 


:8D 


C9 


E2 


143 




STA 


IDBYTE 




E328; 


:30 


18 


E342 


144 




BMI 


SIREXIT 




E32A; 








145 










E32A; 


: 8E 


00 


00 


146 


ASIR02G 


STX 


SIRTEMP 


;SAVE BAD SIR NUMBER 


E32D; 


;38 






147 


ASIR030 


SEC 






E32E; 


: 98 






148 




TYA 
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E32F 


E9 


05 




149 




SBC 


#5 




E331 


A8 






150 




TAY 






E332 


90 


OA 


E33E 


151 




BCC 


ASIR040 




E334 


Bl 


F9 




152 




LDA 


(SIRARGS) , Y 


;GET SIR NUMBER 


E336 


AA 






153 




TAX 






E337 


A9 


00 




154 




LDA 


#FALSE 




E339 


9D 


C5 


DF 


155 




STA 


SIRTABLE, X 


/RELEASE ALLOCATED SIRS 


E33C 


FO 


EF 


E32D 


156 




BEQ 


ASIR030 




E33E 








157 


* 








E33E 


AE 


00 


00 


158 


ASIR040 


LDX 


SIRTEMP 


/RETURN BAD SIR 


E341 


38 






159 




SEC 






E342 








160 


* 








E342 








161 










E342 








1 62 










E342 


68 






163 


SIREXIT 


PLA 






E343 


8D 


DO 


FF 


164 




STA 


Z . REG 


/RESTORE Z REGISTER 


E345 


58 






165 




PLA 






E347 


8D 


DF 


FF 


166 




STA 


E.REG 


/RESTORE E REGISTER 


E34A 


90 


04 


E350 


167 




BCC 


SIREXITl 




E34C 


68 






168 




PLA 






E34D 


09 


01 




169 




ORA 


#BITON0 




E34F 


48 






170 




PHA 






E350 


28 






171 


SIREXITl 


PLP 






E351 


60 






172 




RTS 






E352 








173 










E352 








174 










E352 








175 


A 








E352 






E352 


176 


DEALCSIR 


EQU 


J, 




E352 


18 






177 




CLC 






E353 


08 






178 




PHP 






E354 


78 






179 




SEI 






E355 


8D 


00 


00 


180 




STA 


SIRARGSIZ 


/SAVE TABLE SIZE 


E358 


AD 


DF 


FF 


181 




LDA 


E.REG 




E35B 


8D 


00 


00 


182 




STA 


SIRTEMP 




E35E 


09 


04 




183 




ORA 


#BIT0N2 


/FORCE PRIMARY STACK 


E360 


29 


F7 




184 




AND 


#BIT0FF3 


/ AND WRITE ENABLE 


E362 


BD 


DF 


FF 


185 




STA 


E.REG 




E365 


AD 


00 


00 


186 




LDA 


SIRTEMP 




E368 


48 






187 




PHA 






E369 


AD 


DO 


FF 


188 




LDA 


Z.REG 




E36C 


48 






189 




PHA 






E36D 


A9 


00 




190 




LDA 


#$00 




E36F 


8D 


DO 


FF 


191 




STA 


Z.REG 


/SET ZERO PAGE := $00 


E372 


86 


F9 




192 




SIX 


SIRARGS 




E374 


84 


FA 




193 




STY 


SIRARGS+1 


/ SET POINTER TO TABLE 


E376 








194 










E376 


AO 


00 




195 




LDY 


#soo 




E378 


Bl 


F9 




196 


DSIROlO 


LDA 


(SIRARGS) , Y 


/GET SIR NUMBER 


E37A 


AA 






197 




TAX 






E37B 


EO 


18 




198 




CPX 


#SIRTBLSIZ 




E37D 


BO 


27 


E3A6 


199 




BCS 


DSIR030 




E37F 


C8 






200 




INY 






E380 


BD 


C5 


DF 


201 




LDA 


SIRTABLE, X 




E383 


10 


21 


E3A6 


202 




BPL 


DSIR030 


/VERIFY ALLOCATION 


E385 


Dl 


F9 




203 




CMP 


(SIRARGS) , Y 




E387 


DO 


ID 


E3A6 


204 




BNE 


DSIR030 
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E389; 


;C8 






205 




INY 




E38A; 


; C8 






206 




INY 




E38B : 


: C8 






207 




INY 




E38C : 


: C8 






208 




INY 




E38D ; 


: CC 


00 


00 


209 




CPY 


SIRARGSIZ 


E390 ; 


: 90 


E6 


E378 


210 




BCC 


DSIROlO 


E392 ; 








211 


A 






E392 ; 


: AC 


00 


00 


212 




LDY 


SIRARGSIZ 


E395 ; 


; 38 






213 


DSIR020 


SEC 




E396 ; 


; 98 






214 




TYA 




E397 ; 


;E9 


05 




215 




SBC 


#5 


E399 : 


: A8 






216 




TAY 




E39A; 


: 90 


A6 


E342 


217 




BCC 


SIREXIT 


E39C: 


:B1 


F9 




218 




LDA 


(SIRARGS) , Y 


E39E: 


:AA 






219 




TAX 




E39F; 


;A9 


00 




220 




LDA 


#FALSE 


E3A1; 


: 9D 


C5 


DF 


221 




STA 


SIRTABLE,X 


E3A4 ; 


:F0 


EF 


E395 


222 




BEQ 


DSIR020 


E3A6; 








223 


* 






E3A5; 


:38 






224 


DSIR030 


SEC 




E3A7; 


:B0 


99 


E342 


225 




BCS 


SIREXIT 



;GET SIR NUMBER 
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E3A9 








227 


* * 


********************************************************** 


E3A9 








228 


* 




E3A9 








229 


* 


SUBROUTINE 'SELC800' IS CALLED TO SELECT THE C800 I/O EX- 


E3A9 








230 




PANSION ADDRESS SPACE FOR A PERIPHERAL SLOT. ON ENTRY, 


E3A9 








231 




THE SLOT NUMBER IS PASSED IN THE ACCUMULATOR. IF NO 


E3A9 








232 




ERROR OCCURS, CARRY IS CLEARED; OTHERWISE, CARRY IS SET 


E3A9 








233 




AND THE PREVIOUS SLOT REMAINS SELECTED. 


E3A9 








234 


* 




E3A9 








235 


* 


PARAMETERS : 


E3A9 








236 


* 


A: SLOT NUMBER 


E3A9 








237 


* 




E3A9 








238 




NORMAL EXIT — NEW SLOT SELECTED 


E3A9 








239 




CARRY : CLEAR 


E3A9 








240 




A: UNDEFINED 


E3A9 








2 4 ' 




X, Y: UNCHANGED 


E3A9 








242 






E3A9 








243 


* 


ERROR EXIT — SLOT NOT CHANGED 


E3A9 








244 


* 


CARRY : SET 


E3A9 








245 


* 


A, X, Y: UNCHANGED 


E3A9 








246 


* 




E3A9 








247 




WARNING ! ! ! 


E3A9 








248 




'SELC800' USES SELF-MODIFYING CODE! 


E3A9 








249 






E3A9 








250 




********************************************************** 


E3A9 








251 






E3A9 






E3A9 


252 


SELC800 EQU * 


E3A9 


C9 


05 




253 




CMP #$05 /CHECK SLOT NUMBER 


E3AB 


BO 


14 


E3C1 


254 




BCS SC8EXIT ; INVALID 


E3AD 


08 






255 




PHP 


E3AE 


78 






256 




SEI 


E3AF 


8D 


CO 


DF 


2 b'/ 




STA EXPNSLOT 


E3B2 


09 


CO 




258 




ORA #$C0 ;MAKE SLOT INTO $CNOO 


E3B4 


8D 


BF 


E3 


259 




STA CNADDR+2 ; AND MODIFY BIT ADDRESS 


E3B7 


2C 


20 


CO 


260 




BIT $C020 


E3BA 


2C 


FF 


CF 


261 




BIT $CFFF /DESELECT PREVIOUS SLOT 


E3BD 


2C 


FF 


CO 


262 


CNADDR BIT $COFF ; AND SELECT CURRENT SLOT 


E3C0 


28 






263 




PLP 


E3C1 


60 






264 


SC8EXIT RTS 
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E3C2 








266 


********** 


* * * * * 


************ 


* * * * 


************************** 


E3C2 








267 


* 










E3C2 








268 


* THE SUBROUTINES NMIDSBL 


AND 


NMIENBL ARE CALLED TO 


E3C2 








269 


* DISABLE 


AND 


ENABLE NMI, 


RESPECTIVELY. THERE ARE NO 


E3C2 








270 


* INPUT PARAMETERS. ON EXIT, 


THE REGISTERS ARE UN- 


E3C2 








271 


» DEFINED 


NMIDSBL CLEARS 


THE 


CARRY FLAG IF NMI WAS 


E3C2 








272 


* SUCCESSFULLY 


DISABLED; OTHERWISE, CARRY IS SET. 


E3C2 








273 


* 










E3C2 








274 


********** 


* * * * * 


************ 


* * * * 


************************** 


E3C2 








275 


* 










E3C2 






E3C2 


276 


NMIDSBL 


EQU 








E3C2 


AE 


DF 


FF 


277 




LDX 


E.REG 






E3C5 


2C 


00 


00 


278 




BIT 


NMIFLAG 






E3C8 


10 


22 


E3EC 


279 




BPL 


NDS020 






E3CA 


8A 






280 




TXA 








E3CB 


09 


80 




281 




ORA 


#BIT0N7 






E3CD 


8D 


DF 


FF 


282 




STA 


E.REG 




; SET IMHZ 


E3D0 


A9 


00 




283 




LDA 


#$00 






E3D2 


8D 


00 


00 


284 




STA 


NMICNTR 






E3D5 


8D 


01 


00 


285 




STA 


NMICNTR+1 






E3D8 


2C 


00 


00 


286 


NDSOlO 


BIT 


NMIFLAG 




;NMI PENDING? 


E3DB 


10 


OF 


E3EC 


287 




BPL 


NDS020 




; NO 


E3DD 


EE 


00 


00 


288 




INC 


NMICNTR 




;BUMP NMI COUNTER 


E3E0 


DO 


F6 


E3D8 


289 




BNE 


NDSOlO 




; AND RECHECK NMI FLAG 


E3E2 


EE 


01 


00 


2 90 




INC 


NMICNTR+1 






E3E5 


DO 


Fl 


E3D8 


291 




BNE 


NDSOlO 






E3E7 


A9 


00 




292 




LDA 


#>NMIHANG 




/CAN'T LOCK NMI 


E3E9 


20 


00 


00 


2 93 




JSR 


SYSDEATH 






E3EC 


8A 






2 94 


NDS020 


TXA 






; GET E.REG 


E3ED 


29 


EF 




295 




AND 


#BIT0FF4 




/DISABLE NMI 


E3EF 


8D 


DF 


FF 


2 96 




STA 


E.REG 






E3F2 


60 






297 




RTS 








E3F3 








298 


* 










E3F3 








299 


* 










E3F3 








300 


* 










E3F3 






E3F3 


301 


NMIENBL 


EQU 








E3F3 


AD 


DF 


FF 


302 




LDA 


E.REG 






E3F6 


09 


10 




303 




ORA 


#BIT0N4 




/ENABLE NMI 


E3F8 


8D 


DF 


FF 


304 




STA 


E.REG 






E3FB 


60 






305 




RTS 
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E3FC; 








307 


********** 


* * * * * 


*************** 


****************************** 


E3FC ; 








308 


* 








E3FC : 








309 


* BY DEFAULT, 


KEYBOARD NMI IS 


IGNORED. THE USER MAY 


E3FC ; 








310 


* PROCESS 


NMI 


BY CHANGING THE 


ADDRESS IN SYSTEM GLOBAL. 


E3FC; 








311 










E3FC; 








312 


********** 


* * * * * 


*************** 


****************************** 


E3FC ; 








313 










E3FC ; 






E3FC 


314 


NMIDBUG 


EQU 


* 




E3FC; 


;BA 






315 




TSX 




; SAVE THE STACK POINTER 


E3FD ; 


; 8E 


00 


00 


315 




STX 


NMISPSV 




E400 ; 


;A9 


03 




317 




LDA 


#$03 


/SELECT MONITOR'S ZERO PAGE 


E402 : 


:8D 


DO 


FF 


318 




STA 


Z .REG 




E405 : 


: AD 


DF 


FF 


319 




LDA 


E . REG 




E408 : 


: 09 


03 




320 




ORA 


#$03 


/SELECT MONITOR ROM 


E40A: 


: 8D 


DF 


FF 


321 




STA 


E . REG 




E40D; 


;20 


01 


F9 


322 




JSR 


$F901 


;CALL THE MONITOR 


E410; 








323 


* 








E410; 






E410 


324 


NMICONT 


EQU 






E410; 


:AD 


DF 


FF 


325 




LDA 


E.REG 




E413; 


:09 


04 




326 




ORA 


#BIT0N2 


/FORCE PRIMARY STACK 


E415; 


:8D 


DF 


FF 


327 




STA 


E.REG 




E418 : 


: AE 


00 


00 


328 




LDX 


NMISPSV 




E41B; 


; 9A 






329 




TXS 




/RESTORE STACK POINTER 


E41C; 


: 60 






330 




RTS 
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E41D 


332 


* * 


********************************************************** 


E41D 


333 


* 




E41D 


334 


* 


THE EVENT QUEUE IS USED TO HOLD THE PARAMETERS OF EVENTS 


E41D 


335 


-1, 


THAT HAVE BEEN DETECTED BUT NOT YET RECOGNIZED. EVENT 


E41D 


336 




QUEUE ENTRIES ARE ORGANIZED INTO TWO LINKED LISTS; A FREE 


E41D 


33'/ 




LIST AND AN ACTIVE LIST. EACH ENTRY IS SIX BYTES LONG, 


E41D 


338 




WITH THE FIRST BYTE (BYTE 0) USED AS A LINK. THE LINK 


E41D 


339 


* 


BYTE CONTAINS THE TABLE INDEX OF THE NEXT ENTRY IN THE 


E41D 


340 


* 


LIST. BECAUSE OF THE INDEXING METHOD, THE EVENT QUEUE 


E41D 


341 


* 


MUST NOT EXCEED 256 BYTES. 


E41D 


342 


* 




E41D 


343 




ENTRY ZERO IS A SPECIAL ENTRY. BYTE IS THE INDEX OF 


E41D 


344 




THE FIRST ACTIVE ENTRY; BYTE 1 CONTAINS A ZERO, ALLOWING 


E41D 


345 




ENTRY TO BE USED AS THE ACTIVE EVENT LIST TERMINATER; 


E41D 


346 




BYTE 2 CONTAINS THE INDEX OF THE FIRST FREE ENTRY; AND 


E41D 


347 




BYTES 4 THROUGH 6 ARE UNUSED. 


E41D 


348 


* 




E41D 


349 


* 


THE FREE LIST IS LINKED LIFO. THE ONLY VALID BYTE IN A 


E41D 


350 


* 


FREE ENTRY IS THE LINK BYTE; THE REMAINING BYTES ARE 


E4 ID 


351 


* 


UNDEFINED. THE FREE LIST IS TERMINATED BY A LINK BYTE 


E4 ID 


352 


* 


CONTAINING A ZERO. 


E41D 


353 






E41D 


354 




THE ACTIVE LIST IS LINKED IN DECREASING PRIORITY ORDER 


E41D 


355 




WITH ENTRIES OF EQUAL PRIORITY LINKED FIFO. BYTES 1 


E41D 


356 




THROUGH 5 CONTAIN THE EVENT PRIORITY, EVENT ID, LOW BYTE 


E41D 


357 




OF THE EVENT ADDRESS, HIGH BYTE OF THE EVENT ADDRESS, AND 


E41D 


358 


A 


THE ADDRESS BANK. THE ACTIVE LIST IS TERMINATED BY AN 


E41D 


359 




ENTRY WITH AN EVENT PRIORITY OF ZERO. 


E41D 


360 






E41D 


361 




********************************************************** 
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E41D 








363 


* * 


************* 


***************************************** 


E41D 








364 


* 






E41D 








365 




SUBROUTINE 'QUEEVENT' IS USED TO ENTER AN EVENT INTO 


E4 ID 








366 




EVENT QUEUE. 


ACTIVE EVENTS ARE LINKED IN DECREASING 


E41D 








367 




PRIORITY ORDER WITH EVENTS OF EQUAL PRIORITY LINKED F 


E41D 








368 




EVENTS ARE REMOVED FROM THE QUEUE AS THEY ARE RECOGNI 


E4 ID 








3 69 




BY THE DISPATCHER. 


E41D 








370 


* 






E41D 








371 


* 


PARAMETERS : 




E41D 








372 


* 


X : EVENT 


PARAMETER ADDRESS (LOW BYTE) 


E4 ID 








373 


* 


Y : EVENT 


PARAMETER ADDRESS (HIGH BYTE) 


E41D 








374 








E41D 








375 




EVENT 


12 3 4 


E41D 








376 




PARMS : +- 


+ + + + + 


E4 ID 








377 


* 


1 


PRI 1 ID 1 ADR.L 1 ADR.H I ADR.B 


E4 ID 








378 




+- 




E4 ID 








379 


* 


PRI: EVENT PRIORITY 


E41D 








380 


* 


ID 


: EVENT ID BYTE 


E41D 








381 


* 


ADR: EVENT ADDRESS (LOW, HIGH, BANK) 


E41D 








382 


* 






E41D 








383 


* 


EXIT CONDITIONS: 


E4 ID 








384 




CARRY : CLEAR 


E41D 








385 




A, X, Y: 


UNDEFINED 


E41D 








386 








E4 ID 








387 




************* 


***************************************** 


E41D 








388 








E41D 






E41D 


389 


QUEEVENT EQU 




E4 ID 


18 






390 




CLC 




E41E 


08 






391 




PHP 




E41F 


78 






392 




SET 




E420 


AD 


DF 


FF 


393 




LDA 


E.REG 


E423 


8D 


00 


00 


394 




STA 


QEVTEMP 


E425 


09 


04 




395 




ORA 


#BIT0N2 /FORCE PRIMARY STACK 


E428 


29 


F7 




396 




AND 


#B I TOFF 3 ; AND WRITE ENABLE 


E42A 


8D 


DF 


FF 


397 




STA 


E.REG 


E42D 


AD 


00 


00 


398 




LDA 


QEVTEMP 


E430 


48 






399 




PHA 




E431 


AD 


DO 


FF 


400 




LDA 


Z.REG 


E434 


48 






401 




PHA 




E435 


A9 


00 




402 




LDA 


#0 


E437 


BD 


DO 


FF 


403 




STA 


Z.REG ;SET ZERO PAGE := 


E43A 








404 


* 






E43A 


86 


FB 




405 




STX 


QEVARGS 


E43C 


84 


FC 




405 




STY 


QEVARGS+1 ;SET ARGUMENT POINTER 


E43E 


AO 


00 




407 




LDY 


#0 


E440 


Bl 


FB 




408 




LDA 


(QEVARGS), Y ; GET PRIORITY 


E442 


FO 


38 


E47C 


409 




BEQ 


Q.EXIT ; IGNORE IF ZERO 


E444 








410 








E444 


AE 


28 


EO 


411 




LDX 


EVQ . FREE 


E447 


FO 


3D 


E486 


412 




BEQ 


Q . FULL 


E449 


8E 


00 


00 


413 




STX 


QEV.THIS ;GET FIRST FREE ENTRY 


E44C 


BD 


26 


EO 


414 




LDA 


EVQ. LINK, X ; AND DELINK IT 


E44F 


8D 


28 


EO 


415 




STA 


EVQ . FREE 


E452 








416 








E452 


AO 


04 




417 




LDY 


#EVQ. SIZ-2 


E454 


Bl 


FB 




418 


QEVOlO LDA 


( QEVARGS ),Y ; COPY ARGUMENTS 
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E456 


9D 


2B 


EO 


419 




STA 


EVQ.BANK,X 


; INTO NEW ENTRY 


E459 


CA 






420 




DEX 






E45A 


88 






421 




DEY 






E45B 


10 


F7 


E454 


422 




BPL 


QEVOlO 




E45D 








423 










E45D 


AE 


00 


00 


424 




LDX 


QEV.THIS 




E460 


AO 


00 




425 




LDY 


#0 




E462 


8C 


00 


00 


426 


QEV020 


STY 


QEV.LAST 




E465 


B9 


25 


EO 


427 




LDA 


EVQ.LINK, Y 




E468 


A8 






428 




TAY 






E469 


B9 


27 


EO 


429 




LDA 


EVQ . PRI , Y 


; SCAN EVENT QUEUE 


E45C 


DD 


27 


EO 


430 




CMP 


EVQ . PRI , X 


; FOR PROPER POSITION 


E4 6F 


BO 


Fl 


E462 


431 




BCS 


QEV020 




E471 








432 










E471 


98 






433 




TYA 






E472 


9D 


26 


EO 


434 




STA 


EVQ . LINK, X 


; RELINK EVENT INTO QUEUE 


E475 


8A 






435 




TXA 






E476 


AC 


00 


00 


436 




LDY 


QEV.LAST 




E479 


99 


26 


EO 


437 




STA 


EVQ.LINK, Y 




E47C 








438 


* 








E47C 


68 






439 


Q.EXIT 


PLA 






E4 7D 


8D 


DO 


FF 


440 




STA 


Z . REG 


/RESTORE Z REGISTER 


E480 


68 






441 




PLA 






E481 


8D 


DF 


FF 


442 




STA 


E.REG 


/RESTORE E REGISTER 


E484 


28 






443 




PLP 






E485 


60 






444 




RTS 






E486 








445 


* 








E486 


A9 


00 




446 


Q.FULL 


LDA 


#>EVQOVFL 


/EVENT QUEUE OVERFLOW 


E488 


20 


00 


00 


447 




JSR 


SYSDEATH 




E48B 








448 




LST 


ON 




E48B 






E48B 


449 


ZZEND 


EQU 






E48B 






04CB 


450 


ZZLEN 


EQU 


ZZEND-ZZORG 




E48B 






0000 


451 




IFNE 


ZZLEN-LENIPL 




S 








452 




FAIL 


2, "SOSORG 


FILE IS INCORRECT FOR IPI 


E48B 








453 




FIN 
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0103 


A . SAVE 


COFl 


ACIASTAT 


E2F0 


ASIROlO 


E32A 


ASIR020 


FFEF 


B . REG 


OlFC 


B . SAVE 


XOOOF 


BADBRK 


XOOlO 


BAD I NT 1 


EF 


BIT0FF4 


DF 


BIT0FF5 


01 


BITONO 


02 


BITONl 


20 


BIT0N5 


40 


BIT0N6 


?2E00 


BLABFMI 


6B52 


BLABUFMG 


64D9 


BLADMGR 


68F4 


BLAFMGR 


55C0 


BLAIPL 


2000 


BLALODR 


5466 


BLAPATCH 


665E 


BLASCMGR 


E15C 


CALLMIH 


EIFC 


CALLNMI 


E3BD 


CNADDR 


FFDE 


D . lER 


NE21D 


DISPATCH 


E28D 


DO . EVENT 


E3A6 


DSIR030 


E23C 


DSP005 


E281 


DSP025 


E287 


DSP030 


FFEF 


E . lORA 


FFEO 


E . lORB 


NE026 


EV. QUEUE 


E02A 


EVQ . ADRH 


N0007 


EVQ . CNT 


NE028 


EVQ . FREE 


NE026 


EVQ.LINK 


E027 


EVQ . PRI 


DFCO 


EXPNSLOT 


00 


FALSE 


E0A4 


GIR020 


E2C9 


IDBYTE 


X0028 


IRQCNTR 


X0022 


KYBDNMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


61 


LENFMGR 


?01B2 


LENINIT 


70751 


LENMEMMG 


015A 


LENOMSG 


D5 


LENSERR 


040E 


LENUMGR 


NE1A4 


NMI . RCVR 


E1B3 


NMI005 


E210 


NMI030 


DFF5 


NMI ADR. L 


NE3FC 


NMIDBUG 


NE3C2 


NMIDSBL 


X0012 


NMIHANG 


X0023 


NMISPSV 


F552 


ORGBUFMG 


F355 


ORGCFM 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


E0E7 


PIO004 


EOEA 


PIO006 


E129 


PIO030 


E130 


PIO035 


E157 


PIO060 


E15F 


PIO070 


E486 


Q . FULL 


X002C 


QEV. LAST 


E462 


QEV020 


FB 


QEVARGS 


0104 


S . SAVE 


E3C1 


SC8EXIT 


NE3A9 


SELC800 


XOOIF 


SERR 


DFDD 


SIRADR.L 


F9 


SIRARGS 


E342 


SIREXIT 


NDFC5 


SIRTABLE 


C065 


SLOTl 


C064 


SL0T2 


OlFF 


SP . SAVE 


X0014 


STKOVFL 


FFDO 


Z .REG 


OlFD 


Z . SAVE 


NDFC4 


ZPGSTACK 


NO0F8 


ZPGSTART 


04CB 


ZZLEN 


DFCO 


ZZORG 


** SUCCESSFUL ASSEMBLY := 


NO ERRORS 



** ASSEMBLER CREATED ON 30-APR-85 22: 
** TOTAL LINES ASSEMBLED 1165 
** FREE SPACE PAGE COUNT 79 



NE2CA 


ALLOCS IR 


DFCl 


ANY SLOT 


E32D 


ASIR030 


E33E 


ASIR040 


20 


BACKBIT 


X002D 


BACKMASK 


XOOll 


BADINr2 


F7 


BIT0FF3 


BF 


BIT0FF6 


7F 


BIT0FF7 


04 


BIT0N2 


10 


BIT0N4 


80 


BIT0N7 


3200 


BLABFM 


5955 


BLACFM 


5E99 


BLADISK3 


72CF8 


BLAGLOB 


72AF8 


BLAINIT 


76E6E 


BLAMEMMG 


5466 


BLAOMSG 


6404 


BLASERR 


5A8B 


BLAUMGR 


X0020 


CEVPRI 


XOOOD 


CHKBUF 


FFDD 


D . IFR 


NE352 


DEALCSIR 


E378 


DSIROlO 


E395 


DSIR020 


E24 6 


DSPOlO 


E24C 


DSP020 


FFEE 


E . lER 


FEED 


E . IFR 


FFDF 


E.REG 


OlFE 


E . SAVE 


E029 


EVQ . ADRL 


E02B 


EVQ . BANK 


E028 


EVQ. ID 


N002A 


EVQ . LEN 


N0006 


EVQ.SIZ 


X0013 


EVQOVFL 


E05F 


GIR005 


E07C 


GIROlO 


NE050 


IRQ . RCVR 


FD 


IRQADDR 


70400 


LENBFMI 


2266 


LENBFM 


056B 


LENDISK3 


0185 


LENDMGR 


04CB 


LENIPL 


OAFS 


LENLODR 


00 


LENPATCH 


0296 


LEN SCMGR 


E3D8 


NDSOlO 


E3EC 


NDS020 


EICD 


NMIOlO 


E20B 


NMI020 


X002 9 


NMICNTR 


NE410 


NMICONT 


NE3F3 


NMIENBL 


X0024 


NMIFLAG 


B800 


ORGBFMI 


BCOO 


ORGBFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


EE04 


ORGSERR 


E48B 


ORGUMGR 


ElOF 


PlOOlO 


E118 


PIO020 


E134 


PIO040 


E152 


PIO050 


EODA 


POLL . 10 


E47C 


Q . EXIT 


X002B 


QEV. THIS 


E454 


QEVOlO 


X002A 


QEVTEMP 


NE41D 


QUEEVENT 


XOOOC 


SCMGR 


X0025 


SCRNMODE 


EOOE 


SIRADR.B 


DFF6 


SIRADR.H 


X0027 


SIRARGSIZ 


E350 


SIREXITl 


N0018 


SIRTBLSIZ 


X0026 


SIRTEMP 


DFC2 


SL0T3 


DFC3 


SL0T4 


X0021 


SYSBANK 


XOOOE 


SYSDEATH 


FF 


ZPGSP 


20 


ZPGSPACE 


28 


ZPGSTOP 


E48B 


ZZEND 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRES 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRES 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRE 


0000 




58 














E48B 


E48B 


4 


ORG 


ORGUMGR 


E48B 


E48B 


5 


ZZORG EQU 




E48B 




6 


MSB 


OFF 


E48B 




7 


**************** 


******************************** 


E48B 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 198 


E48B 




9 


* 


ALL RIGHTS RESERVED 


E48B 




10 


**************** 


******************************** 


E48B 




11 


* UTILITY MANAGER 


E48B 




1 2 


* 




E48B 




13 


* THIS MODULE HANDLES THE FOLLOWING SOS CALLS: 


E48B 




14 


* SET. FENCE, 


GET. FENCE 


E48B 




15 


* SET. TIME, 


GET . TIME 


E48B 




15 


* JOYSTICK, 


COLDSTRT 


E48B 




17 


* 




E48B 




18 


* IN ADDITION, 


IT CONTAINS THE ROUTINE DATETIME 


E48B 




19 


* PROVIDES THE 


DATE AND TIME FOR THE BLOCK FILE 


E48B 




20 






E48B 




21 






E48B 




22 






E48B 


E48B 


23 


ENTRY 


UMGR 


E48B 


E656 


24 


ENTRY 


DATETIME 


E48B 


E706 


25 


ENTRY 


BCDBIN 


E48B 


E833 


26 


ENTRY 


COLDSTRT 


E48B 




27 






E48B 


E4C3 


28 


ENTRY 


PCLOCK 


E48B 




29 






E48B 


0000 


30 


EXTRN 


SYSBANK 


E48B 


0000 


31 


EXTRN 


CEVPRI 


E48B 


0000 


32 


EXTRN 


SYSERR 


E48B 


0000 


33 


EXTRN 


BADSCNUM 


E48B 


0000 


34 


EXTRN 


BADJMODE 


E48B 


0000 


35 


EXTRN 


XNORESRC 


E48B 


0000 


36 


EXTRN 


ALLOCSIR 


E48B 


0000 


37 


EXTRN 


DEALCSIR 


E48B 




38 






E48B 


ooco 


39 


U.TPARMX EQU 


$co 


E48B 


ooco 


40 


U . REQCODE EQU 


U . TPARMX 


E48B 


ooci 


41 


PRIORITY EQU 


U.TPARMX+1 


E48B 


OOCl 


42 


J. MODE EQU 


U.TPARMX+1 


E48B 


00C2 


43 


J. VALUE EQU 


U.TPARMX+2 


E48B 


OOCl 


44 


TIME EQU 


U.TPARMX+1 


E48B 


OOCl 


45 


MEMORY EQU 


U.TPARMX+1 


E48B 




46 


* 




E48B 


0004 


47 


BIT0N2 EQU 


$04 


E48B 


0020 


48 


BIT0N5 EQU 


$20 


E48B 


0040 


49 


BIT0N6 EQU 


$40 


E48B 


0080 


50 


BIT0N7 EQU 


$80 


E48B 


OODF 


51 


BIT0FF5 EQU 


$DF 


E48B 




52 






E48B 


FFDO 


53 


Z.REG EQU 


$FFDO 


E48B 


FFDF 


54 


E.REG EQU 


$FFDF 


E48B 


FFEF 


55 


B.REG EQU 


$FFEF 
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E48B 








57 


********** 


****** 


******************* 


E48B 








58 


* 






E48B 








59 


* UTILITY 


SWITCH 




E48B 








60 








E48B 








61 


********** 


****** 


******************* 


E48B 








62 


* 






E48B 








63 


* 






E48B 






E48B 


64 


UMGR 


EQU 




E48B 


AD 


DF 


FF 


65 




LDA 


E . REG ; SELECT 


E48E 


09 


40 




66 




ORA 


#BIT0N6 


E490 


8D 


DF 


FF 


67 




STA 


E . REG 


E493 








68 


* 






E4 93 


A5 


CO 




69 




LDA 


U . REQCODE 


E4 95 


C9 


06 




70 




CMP 


#USWCNT 


E4 97 


BO 


OB 


E4A4 


71 




BCS 


UMGRERR 


E4 99 


OA 






72 




ASL 


A 


E49A 


AA 






73 




TAX 




E49B 


BD 


AA 


E4 


74 




LDA 


USWTBL+1,X 


E49E 


48 






75 




PHA 




E49F 


BD 


A9 


E4 


75 




LDA 


USWTBL, X 


E4A2 


48 






77 




PHA 




E4A3 


60 






78 




RTS 




E4A4 








79 


* 






E4A4 


A9 


00 




80 


UMGRERR 


LDA 


#>BADSCNUM 


E4A6 


20 


00 


00 


81 




JSR 


SYSERR 


E4A9 








82 


* 






E4A9 








83 


* UTILITY 


SWITCH TABLE 


E4A9 








84 


* 






E4A9 






E4A9 


85 


USWTBL 


EQU 




E4A9 


B4 


E4 




86 




DW 


SET.FENCE-1 


E4AB 


BA 


E4 




87 




DW 


GET.FENCE-1 


E4AD 


D9 


E4 




88 




DW 


SET. TIME-1 


E4AF 


CO 


E5 




89 




DW 


GET.TIME-1 


E4B1 


ID 


E7 




90 




DW 


JOYSTICK-1 


E4B3 


32 


E8 




91 




DW 


COLDSTRT-1 


E4B5 






0006 


92 


USWCNT 


EQU 


*-USWTBL/2 
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AUGUST-2006 



E4B5 



A5 CI 
8D 00 00 
60 



AD 00 GO 
AO 00 
91 CI 
60 



94 
95 

96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



************************************************************ 
* 

* SET. FENCE (IN. PRIORITY) SYSTEM CALL 

* GET. FENCE (OUT. PRIORITY) SYSTEM CALL 

* THESE TWO CALLS ALLOW THE CALLER TO EITHER RETRIEVE OR SET 

* THE CURRENT SYSTEM EVENT PRIORITY THRESHOLD. BY RAISING 

* THE FENCE, A USER MAY INHIBIT THE EXECUTION OF EVENTS WHOSE 

* PRIORITY IS EQUAL TO OR LESS THAN THE VALUE OF THE SYSTEM 

* FENCE. 
* 

************************************************************ 



SET. FENCE 



GET. FENCE 



EQU 
LDA 
STA 
RTS 



EQU 
LDA 
LDY 
STA 
RTS 



PRIORITY 
CEVPRI 



CEVPRI 
#0 

(PRIORITY) , Y 



NORMAL EXIT 



NORMAL EXIT 
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E4C3 




121 


* * 


********************************************************* 


E4C3 




122 


* 




E4C3 




123 


* 


SET. TIME (IN. TIME) 


E4C3 




124 




GET. TIME (OUT. TIME) 


E4C3 




125 


-„ 




E4C3 




126 




THESE SYSTEM CALLS ALLOW THE USER TO SET AND READ THE 


E4C3 




127 


* 


SYSTEM'S CLOCK. THE TIME IS EXPRESSED AS AN EIGHTEEN 


E4C3 




128 


* 


DIGIT ASCII STRING IN THE FORM "YYYYMMDDWHHMMSSMMM" . 


E4C3 




129 


* 




E4C3 




130 


* 


YYYY YEAR [1900-1999] 


E4C3 




131 


* 


MM MONTH [01-12] 


E4C3 




132 


* 


DD DAY [01-31] 


E4C3 




133 


-1, 


W WEEKDAY [1-7] 1 => SUNDAY 


E4C3 




134 




HH HOUR [00-23] 


E4C3 




135 




MM MINUTE [00-59] 


E4C3 




136 




SS SECOND [00-59] 


E4C3 




137 


* 


MMM MILLISECOND [000-999] 


E4C3 




138 


* 




E4C3 




139 


* 


THE CLOCK CHIP AUTOMATICALLY MAINTAINS THE TIME AND 


E4C3 




140 


* 


DATE FROM MILLISECONDS TO MONTHS. IT DOES NOT MAINTAIN 


E4C3 




141 




THE YEAR, HOWEVER, NOR DOES IT RECOGNIZE 29 FEBRUARY 


E4C3 




142 




IN LEAP YEARS . THE SOFTWARE SETS THE DAY AND MONTH 


E4C3 




143 




LATCHES TO THE DON'T CARE STATE AND USES THE REMAINING 


E4C3 




144 




EIGHT BITS TO HOLD A TWO DIGIT BCD YEAR. THE CLOCK 


E4C3 




145 




MUST BE RESET AT THE BEGINNING OF EACH YEAR AND ON 


E4C3 




14 6 




2 9 FEBRUARY IN LEAP YEARS. 


E4C3 




147 


* 




E4C3 




148 




SET. TIME ASSUMES THAT THE DATE IS VALID AND CORRECT. 


E4C3 




149 




THE CENTURY IS IGNORED AND MILLISECONDS ARE ALWAYS SET 


E4C3 




150 




TO ZERO. GET. TIME ALWAYS SETS THE CENTURY TO 19. 


E4C3 




151 


* 




E4C3 




152 




********************************************************* 


E4C3 




153 


* 




E4C3 




154 


* 




E4C3 




155 


* 


TEMPORARY ZERO PAGE 


E4C3 




156 


* 




E4C3 


OODO 


157 


PCLK EQU $D0 /POINTER TO SAVED PCLOCK 


E4C3 


00D2 


158 


WKDAY EQU $D2 


E4C3 


00D3 


159 


CKSUM EQU $D3 


E4C3 


18D4 


160 


CLKTEMP EQU $18D4 /THROUGH $18DD - ABSOLUTE 


E4C3 




161 






E4C3 




162 


* 


CLOCK LOCAL DATA 


E4C3 




163 


* 




E4C3 


OOOA 


164 


PCLOCK DS $0A ;PSEUDO CLOCK REGISTERS 


E4CD 


0001 


165 


RETRY DS $01 


E4CE 




166 






E4CE 




167 




CLOCK HARDWARE ADDRESSES 


E4CE 




168 






E4CE 


C070 


169 


CLOCK EQU $C070 


E4CE 


0002 


170 


CSEC EQU $02 


E4CE 


0003 


171 


CMIN EQU $03 


E4CE 


0007 


172 


CMON EQU $07 


E4CE 


OOOE 


173 


LDAY EQU $0E 


E4CE 


0012 


174 


CRESET EQU $12 


E4CE 


0014 


175 


STATUS EQU $14 


E4CE 




176 


* 
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E4CE 


08 


OB 


OB 07 


177 


WKMON 


DFB 


8,11,11,7 


E4D4 


07 


OA 


OD 08 


178 




DFB 


7, 10, 13, 8 


E4DA 








179 








E4DA 








180 








E4DA 






E4DA 


181 


SET. TIME 


EQU 




E4DA 


A2 


00 




182 




LDX 


#soo 


E4DC 


AO 


12 




183 




LDY 


#$12 


E4DE 


A9 


30 




184 




LDA 


# ' ' 


E4E0 


DO 


03 


E4E5 


185 




BNE 


STIMOll 


E4E2 








186 


* 






E4E2 


E8 






187 


STIMOlO 


I NX 




E4E3 


Bl 


CI 




188 




LDA 


(TIME) , Y 


E4E5 


29 


OF 




189 


STIMOll 


AND 


#$0F 


E4E7 


9D 


C3 


E4 


190 




STA 


PCLOCK, X 


E4EA 


88 






191 




DEY 




E4EB 


CO 


07 




192 




CPY 


#$07 


E4ED 


FO 


F3 


E4E2 


193 




BEQ 


STIMOlO 


E4EF 


Bl 


CI 




194 




LDA 


(TIME) , Y 


E4F1 


OA 






195 




ASL 


A 


E4F2 


OA 






196 




ASL 


A 


E4F3 


OA 






197 




ASL 


A 


E4F4 


OA 






198 




ASL 


A 


E4F5 


ID 


C3 


E4 


199 




ORA 


PCLOCK, X 


E4F8 


9D 


C3 


E4 


200 




STA 


PCLOCK, X 


E4FB 


88 






201 




DEY 




E4FC 


10 


E4 


E4E2 


202 




BPL 


STIMOlO 


E4FE 








203 


* 






E4FE 


AD 


CA 


E4 


204 




LDA 


PCLOCK+7 


E501 


20 


06 


E7 


205 




JSR 


BCDBIN 


E504 


AA 






206 




TAX 




E505 


AD 


CB 


E4 


2 0'/ 




LDA 


PCLOCK+8 


E508 


20 


06 


E7 


208 




JSR 


BCDBIN 


E50B 


A8 






209 




TAY 




E50C 


4A 






210 




LSR 


A 


E50D 


4A 






211 




LSR 


A 


E50E 


85 


D2 




212 




STA 


WKDAY 


E510 


98 






213 




TYA 




E511 


29 


03 




214 




AND 


#$03 


E513 


DO 


05 


E51A 


215 




BNE 


STIM015 


E515 


EO 


03 




216 




CPX 


#3 


E517 


BO 


01 


E51A 


217 




BCS 


STIM015 


E519 


88 






218 




DEY 




E51A 


18 






219 


STIM015 


CLC 




E51B 


98 






220 




TYA 




E51C 


65 


D2 




221 




ADC 


WKDAY 


E51E 


7D 


CD 


E4 


222 




ADC 


WKMON - 1, X 


E521 


85 


D2 




223 




STA 


WKDAY 


E523 


AD 


C9 


E4 


224 




LDA 


PCLOCK+6 


E526 


20 


06 


E7 


225 




JSR 


BCDBIN 


E529 


18 






226 




CLC 




E52A 


65 


D2 




227 




ADC 


WKDAY 


E52C 


38 






228 




SEC 




E52D 


E9 


07 




229 


STIM016 


SBC 


#7 


E52F 


C9 


08 




230 




CMP 


#8 


E531 


BO 


FA 


E52D 


231 




BCS 


STIM016 


E533 


8D 


C8 


E4 


232 




STA 


PCLOCK+5 



9, 12 



CONVERT TIME FROM 
ASCII TO BCD AND 
TRANSFER TO PCLOCK 



/CALCULATE WEEKDAY 



<SRS 82.162> 
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E536; 








233 


* 








E536 ; 


; A9 


OO 




234 




LOA 


#$O0 




E538 : 


: 85 


DO 




235 




STA 


PCLK 


;POINT (PCLK) TO 8F:FFD0 


E53A; 


: A9 


EE 




236 




LDA 


#$FE 




E53C ; 


: 85 


Dl 




237 




STA 


PCLK+1 




E53E : 


: A9 


8F 




238 




LDA 


#S8F 




E540 ; 


; 8D 


01 


14 


239 




STA 


S1401+PCLK 




E543 ; 


; A9 


A5 




240 




LDA 


#$A5 




E545 ; 


; 85 


03 




241 




STA 


CKSUM 


; INITIALIZE CHECKSUM 


E547 ; 


; AO 


00 




242 




LOY 


#$00 




E549; 








243 


* 








E549 : 


:B9 


C3 


E4 


244 


STIM020 


LDA 


PCLOCK, Y 


; SAVE PCLOCK 


E54C : 


: 91 


DO 




245 




STA 


(PCLK) , Y 


; BEHIND 6522 


E54E : 


: 45 


03 




246 




EOR 


CKSUM 




E550 ; 


: 85 


03 




247 




STA 


CKSUM 




E552 ; 


; C8 






248 




INY 






E553 ; 


; CO 


OA 




249 




CPY 


#$0A 




E555 ; 


; 90 


F2 


E549 


250 




BCC 


STIM020 




E557 ; 


; 91 


OO 




251 




STA 


(PCLK) , Y 


; SAVE CHECKSUM 


E559 ; 








252 


* 








E559 ; 


: AD 


DO 


EE 


253 




LDA 


Z . REG 




E55C : 


: 48 






254 




PHA 




; SAVE ZERO PAGE 


E55D : 


: AD 


DE 


EF 


255 




LDA 


E . REG 




E550 : 


: 48 






256 




PHA 




; SAVE ENVIRONMENT 


E561 : 


: 09 


80 




257 




ORA 


#BIT0N7 


; AND SET 1 MHZ 


E563 ; 


; 80 


OF 


FF 


258 




STA 


E.REG 




E566 ; 








259 


* 








E566 : 


: AO 


14 




2 60 




LDY 


#STATUS 




E558 : 


: 8C 


DO 


FF 


2 61 




STY 


Z . REG 




E56B: 


: AD 


70 


CO 


262 




LDA 


CLOCK 


;OOES CLOCK EXIST? 


E56E: 


: 30 


48 


E5B8 


263 




BMI 


STIM050 


; NO 


E570 ; 








254 










E570 ; 


;A2 


12 




265 




LDX 


#CRESET 




E572 ; 


; 8E 


OO 


FF 


266 




STX 


Z.REG 




E575 ; 


; A9 


FF 




267 




LOA 


#$FF 


; RESET ALL COUNTERS 


E577 ; 


; 80 


70 


CO 


268 




STA 


CLOCK 




E57A: 


: 80 


70 


CO 


269 




STA 


CLOCK 




E57D : 








270 










E57D ; 


: A2 


01 




271 




LDX 


#CSEC-1 




E57F : 


: E8 






272 


STIM030 


I NX 






E580 : 


; 08 






273 




PHP 






E581 ; 


; 78 






274 




SEI 




/DISABLE INTERRUPTS 


E582 ; 


; 8E 


00 


FF 


275 


STIM040 


STX 


Z.REG 




E585 ; 


; AO 


70 


CO 


275 




LOA 


CLOCK 


; (DUMMY READ FOR STATUS) 


E588 ; 


:B0 


C3 


E4 


277 




LOA 


PCLOCK, X 




E58B : 


: 80 


70 


CO 


278 




STA 


CLOCK 


; SET CLOCK COUNTER 


E58E : 


: AD 


70 


CO 


279 




LDA 


CLOCK 


; (DUMMY READ FOR STATUS) 


E591 ; 


:8C 


DO 


EE 


280 




STY 


Z .REG 




E594 ; 


: AD 


70 


CO 


281 




LDA 


CLOCK 


; CHECK STATUS BIT 


E597 ; 


:D0 


E9 


E582 


282 




BNE 


STIM040 




E599; 


:28 






283 




PLP 




/RESTORE INTERRUPTS 


E59A; 


:E0 


07 




284 




CPX 


#CMON 




E59C: 


: 90 


El 


E57E 


285 




BCC 


STIM030 




E59E: 








286 










E59E; 


:A2 


OE 




287 




LDX 


#LOAY 




E5A0; 


:8E 


OO 


FF 


288 




STX 


Z.REG 
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E5A3 ; 


; AD 


CB 


E4 


289 


LDA 


PCLOCK+ 


E5A6 ; 


; 09 


CC 




290 


ORA 


#$CC 


E5A8 : 


: 8D 


70 


CO 


2 91 


STA 


CLOCK 


E5AB : 


: EE 


DO 


FF 


2 92 


INC 


Z . REG 


E5AE ; 


: AD 


CB 


E4 


293 


LDA 


PCLOCK+ 


E5B1 : 


: 4A 






2 94 


LSR 


A 


E5B2 ; 


;4A 






295 


LSR 


A 


E5B3; 


:09 


CC 




296 


ORA 


#$CC 


E5B5; 


:8D 


70 


CO 


297 


STA 


CLOCK 


E5B8; 








298 * 






E5B8; 


: 68 






299 STIM050 


PLA 




E5B9; 


:8D 


DF 


FF 


300 


STA 


E.REG 


E5BC; 


: 68 






301 


PLA 




E5BD; 


:8D 


DO 


FF 


302 


STA 


Z.REG 


E5C0; 


: 60 






303 


RTS 





/STUFF YEAR INTO DAY 
; AND MONTH LATCHES 



/RESTORE ENVIRONMENT 
; AND ZERO PAGE 
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E5C1 






E5C1 


305 


GET . TIME 


EQU 






E5C1 


AD 


DO 


FF 


306 




LDA 


Z.REG 


; SAVE ZERO PAGE 


E5C4 


48 






307 




PHA 






E5C5 


AD 


DF 


FF 


308 




LDA 


E . REG 


; SAVE ENVIRONMENT 


E5C8 


48 






309 




PHA 






E5C9 


09 


80 




310 




ORA 


#BIT0N7 




E5CB 


BD 


DF 


FF 


311 




STA 


E . REG 


; SET 1 MHZ 


E5CE 








312 


* 








E5CE 


AO 


14 




313 




LDY 


♦STATUS 




E5D0 


8C 


DO 


FF 


314 




STY 


Z.REG 




E5D3 


AD 


70 


CO 


315 




LDA 


CLOCK 


;DOES CLOCK EXIST? 


E5D6 


30 


45 


E61D 


316 




BMI 


GTIM050 


NO 


E5D8 








317 










E5D8 


A9 


10 




318 




LDA 


#$10 


; ALLOW $10 RETRYS 


E5DA 


8D 


CD 


E4 


319 




STA 


RETRY 




E5DD 


A2 


08 




320 


GTIMOlO 


LDX 


#CM0N+1 




E5DF 


08 






321 




PHP 






E5E0 


78 






322 




SEI 




; DISABLE INTERRUPTS 


E5E1 








323 


* 








E5E1 


CA 






324 


GTIM020 


DEX 






E5E2 


30 


19 


E5FD 


325 




BMI 


GTIM030 


;ALL DONE 


E5E4 


8E 


DO 


FF 


326 




STX 


Z . REG 




E5E7 


AD 


70 


CO 


327 




LDA 


CLOCK 


; COPY CLOCK COUNTERS 


E5EA 


9D 


D4 


18 


328 




STA 


CLKTEMP, X 


; TO TEMP REGISTERS 


E5ED 


8C 


DO 


FF 


329 




STY 


Z . REG 




E5F0 


AD 


70 


CO 


330 




LDA 


CLOCK 


; CHECK STATUS BIT 


E5F3 


FO 


EC 


E5E1 


331 




BEQ 


GTIM020 




E5F5 








332 










E5F5 


28 






333 




PLP 




; CLOCK READ ERROR 


E5F6 


CE 


CD 


E4 


334 




DEC 


RETRY 




E5F9 


10 


E2 


E5DD 


335 




BPL 


GTIMOlO 


;TRY AGAIN 


E5FB 


30 


20 


E61D 


336 




BMI 


GTIM050 




E5FD 








337 


* 








E5FD 


28 






33B 


GTIM030 


PLP 




; RESTORE INTERRUPTS 


E5FE 


A2 


OF 




339 




LDX 


#LDAY+1 




E600 


BE 


DO 


FF 


340 




STX 


Z.REG 




E603 


AD 


70 


CO 


341 




LDA 


CLOCK 


;READ YEAR FROM DAY 


E606 


38 






342 




SEC 




; AND MONTH LATCHES 


E607 


2A 






343 




ROL 


A 




E608 


2A 






344 




ROL 


A 




E609 


CE 


DO 


FF 


345 




DEC 


Z . REG 




E60C 


2D 


70 


CO 


345 




AND 


CLOCK 




E60F 


BD 


DC 


18 


347 




STA 


CLKTEMP+8 




E512 








34B 


* 








E612 


A2 


09 




349 




LDX 


#$09 




E614 


BD 


D4 


18 


350 


GTIM040 


LDA 


CLKTEMP, X 


; COPY CLOCK DATA 


E617 


9D 


C3 


E4 


351 




STA 


PCLOCK, X 


; TO PSEUDO CLOCK 


E61A 


CA 






352 




DEX 






E61B 


10 


F7 


E614 


353 




BPL 


GTIM040 




E61D 








354 










E61D 


A9 


19 




355 


GTIM050 


LDA 


#$19 




E61F 


BD 


CC 


E4 


356 




STA 


PCLOCK+9 




E622 








357 










E622 


68 






358 




PLA 






E623 


BD 


DF 


FF 


359 




STA 


E.REG 


/RESTORE ENVIRONMENT 


E626 


68 






360 




PLA 
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E627 


8D 


DO 


FF 


361 




STA 


Z.REG 


; AND ZERO PAGE 


E62A 








362 


* 








E62A 


AO 


11 




363 




LDY 


#S11 




E62C 


A2 


00 




364 




LDX 


#S0G 




E62E 


BD 


03 


E4 


365 


GTIM060 


LDA 


PCLOCK, X 


;GET MOST SIGNIFICANT 


E631 


4A 






366 




LSR 


A 


; BCD DIGIT 


E632 


4A 






367 




LSR 


A 




E533 


4A 






368 




LSR 


A 




E634 


4A 






369 




LSR 


A 




E535 


09 


30 




370 




ORA 


#$30 


; CONVERT TO ASCII 


E637 


91 


CI 




371 




STA 


(TIME) , Y 




E639 


E8 






372 




I NX 






E63A 


88 






373 




DEY 






E63B 


30 


11 


E64E 


374 




BMI 


GTIM080 




E63D 


BD 


C3 


E4 


375 


GTIM070 


LDA 


PCLOCK, X 


;GET LEAST SIGNIFICANT 


E640 


29 


OF 




376 




AND 


#$0F 


; BCD DIGIT 


E542 


09 


30 




377 




ORA 


#$30 


/CONVERT TO ASCII 


E544 


91 


CI 




378 




STA 


(TIME) , Y 




E546 


88 






379 




DEY 






E647 


CO 


07 




380 




CPY 


#$07 




E649 


DO 


E3 


E62E 


381 




BNE 


GTIM060 




E64B 


E8 






382 




INX 






E64C 


DO 


EE 


E63D 


383 




BNE 


GTIM070 




E64E 


60 






384 


GTIM080 


RTS 
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E64F 








386 


*************** 


************* 


* * * 


*************************** 


E64F 








387 


* 








E64F 








388 


* SUBROUTINE DATETIME 






E64F 








389 










E64F 








390 


* THIS SUBROUTINE READS THE 


CLOCK AND WRITES A DATE/TIME 


E64F 








391 


* STAMP TO A FOUR BYTE BUFFER 


ON THE CALLER'S ZERO PAGE; 


E64F 








392 


* THE DATA FORMAT IS SHOWN 


BELOW. ON ENTRY, X MUST POINT 


E54F 








393 


* TO THE BUFFER. ON EXIT, 


ALL 


REGISTERS ARE CLOBBERED. 


E54F 








394 


* IF AN ERROR 


OCCURS, CARRY 


IS 


SET AND THE BUFFER IS 


E64F 








395 


* SET TO ZERO; 


OTHERWISE, CARRY IS CLEARED. 


E64F 








396 


* 








E64F 








3 97 


* BITS: 7 6 5 


4 3 2 1 






E64F 








398 


* X+0 M M M 


D D D D D 






E64F 








399 


* X+1 Y Y Y 


Y Y Y Y M 






E64F 








400 


* X+2 - MINUTE 






E64F 








401 


* X+3 - - 


HOUR - - 






E64F 








402 


* 








E64F 








403 


*************** 


************* 


* * * 


*************************** 


E64F 








404 


* 








E64F 








405 


* TEMPORARY STORAGE 






E64F 








406 


* 








E64F 


00 






407 


OFFSET DFB 









E650 


00 






408 


ERRCNT DFB 









E651 






0005 


409 


CLKREGS DS 


5 






E656 






E651 


410 


MIN EQU 


CLKREGS+0 






E655 






E652 


411 


HOUR EQU 


CLKREGS+1 






E656 






E654 


412 


DAY EQU 


CLKREGS+3 






E656 






E655 


413 


MON EQU 


CLKREGS+4 






E656 






E653 


414 


YEAR EQU 


CLKREGS+2 






E656 








415 










E656 








416 










E656 






E656 


417 


DATETIME EQU 








E556 


BE 


4F 


E6 


418 


STX 


OFFSET 






E559 


AD 


DO 


FF 


419 


LDA 


Z.REG 






E55C 


48 






420 


PHA 






; SAVE ZERO PAGE 


E65D 


AD 


DF 


FF 


421 


LDA 


E.REG 






E660 


48 






422 


PHA 






; AND ENVIRONMENT 


E661 


09 


CO 




423 


ORA 


#BITON7+BITON6 


;SET 1 MHZ AND 


E663 


8D 


DF 


FF 


424 


STA 


E.REG 




; ENABLE I/O SPACE 


E666 








425 


* 








E666 


AO 


14 




426 


LDY 


♦ STATUS 






E568 


8C 


DO 


FF 


427 


STY 


Z.REG 






E56B 


AD 


70 


CO 


428 


LDA 


CLOCK 




;DOES CLOCK EXIST? 


E56E 


30 


25 


E695 


429 


BMI 


DT030 




; NO 


E670 








430 


* 








E670 


A9 


08 




431 


LDA 


#8 






E672 


8D 


50 


E6 


432 


STA 


ERRCNT 




; ALLOW 8 RETRYS 


E675 


A2 


08 




433 


DTOlO LDX 


#CM0N+1 






E677 


08 






434 


PHP 








E678 


78 






435 


SEI 






; DISABLE INTERRUPTS 


E579 








436 


* 








E679 


CA 






437 


DT020 DEX 








E67A 


EO 


03 




438 


CPX 


#CMIN 






E67C 


90 


30 


E6AE 


439 


BCC 


DT050 






E67E 


8E 


DO 


FF 


440 


STX 


Z.REG 






E681 


AD 


70 


CO 


441 


LDA 


CLOCK 




;READ THE CLOCK 
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E684 


9D 


4E 


E6 


442 




STA 


CLKREGS- 


-CMIN, X 




E687 


8C 


OO 


FF 


443 




STY 


Z.REG 






E68A 


AD 


70 


CO 


444 




LDA 


CLOCK 




; CHECK STATUS 


E68D 


FO 


EA 


E67 9 


445 




BEQ 


OT020 






E68F 








446 












E68F 


28 






447 




PLP 






/CLOCK READ ERROR 


E690 


CE 


50 


E6 


448 




OEC 


ERRCNT 






E593 


10 


EO 


E675 


449 




BPL 


OTOlO 






E595 


58 






450 


DT030 


PLA 








E596 


8D 


OF 


FF 


451 




STA 


E.REG 




; RESTORE ENVIRONMENT 


E699 


68 






452 




PLA 








E69A 


8D 


DO 


FF 


453 




STA 


Z .REG 




; AND ZERO PAGE 


E6 9D 


A2 


04 




454 




LDX 


#CMON-CMIN 




E6 9F 


BD 


06 


E4 


455 


DT040 


LDA 


PCLOCK+CMIN, X 




E6A2 


9D 


51 


E6 


456 




STA 


CLKREGS 


X 




E6A5 


CA 






457 




OEX 








E6A6 


10 


F7 


E69F 


458 




BPL 


OT040 






E6A8 


AE 


CB 


E4 


459 




LDX 


PCLOCK+f 


) 




E5AB 


4C 


C9 


E6 


460 




JMP 


OT060 






E6AE 








461 


* 










E6AE 


28 






462 


DT050 


PLP 






; READ YEAR FROM LATCHES 


E6AF 


A9 


OF 




4 63 




LDA 


#LDAY+1 






E6B1 


8D 


DO 


FF 


4 64 




STA 


Z . REG 






E6B4 


AD 


70 


CO 


4 65 




LDA 


CLOCK 






E6B7 


38 






4 66 




SEC 








E6B8 


2A 






467 




ROL 


A 






E6B9 


2A 






468 




ROL 


A 






E6BA 


CE 


DO 


FF 


469 




OEC 


Z.REG 






E6BD 


2D 


70 


CO 


470 




AND 


CLOCK 






E6C0 


AA 






471 




TAX 








E6C1 








472 












E6C1 


68 






473 




PLA 








E6C2 


80 


OF 


FF 


474 




STA 


E.REG 




/RESTORE ENVIRONMENT 


E5C5 


68 






475 




PLA 








E6C6 


80 


OO 


FF 


475 




STA 


Z.REG 




; AND ZERO PAGE 


E6C9 








477 


* 










E6C9 


8A 






478 


DT060 


TXA 








E6CA 


20 


06 


E7 


479 




JSR 


BCDBIN 




; CONVERT YEAR TO BINARY 


E6CD 


8D 


53 


E6 


480 




STA 


YEAR 






E6D0 


AD 


55 


E6 


481 




LDA 


MON 




; CONVERT MONTH AND DAY 


E6D3 


20 


06 


E7 


482 




JSR 


BCDBIN 




; TO BINARY THEN 


E6D6 


OA 






483 




ASL 


A 




; COMBINE WITH YEAR 


E6D7 


OA 






484 




ASL 


A 




; TO FORM DATE STAMP 


E6D8 


OA 






485 




ASL 


A 






E6D9 


OA 






485 




ASL 


A 






E6DA 


OA 






487 




ASL 


A 






E6DB 


8D 


55 


E6 


488 




STA 


MON 






E6DE 


2E 


53 


E6 


489 




ROL 


YEAR 






E6E1 


AD 


54 


E6 


490 




LDA 


DAY 






E6E4 


20 


06 


E7 


491 




JSR 


BCDBIN 






E6E7 


OO 


55 


E6 


492 




ORA 


MON 






E5EA 


AE 


4F 


E6 


493 




LDX 


OFFSET 






E6ED 


95 


00 




494 




STA 


0,X 






E6EF 


AO 


53 


E6 


495 




LDA 


YEAR 






E6F2 


95 


01 




496 




STA 


1,X 






E6F4 


AO 


51 


E6 


497 




LDA 


MIN 




/CONVERT MINUTE 
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E6F7:20 06 E7 
E6FA:95 02 

E6FC:AD 52 
E6FF : 2C 
E702 : 95 
E704:18 
E705:60 



E6 
06 E7 



498 
499 

500 
501 
502 
503 
504 



JSR 
STA 
LDA 
JSR 
STA 
CLC 
RTS 



BCDBIN 

2, X 
HOUR 
BCDBIN 

3, X 



/CONVERT HOUR 
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E705; 






505 


*************** 


********************************************* 


E706; 






507 


* 




E706; 






508 


* SUBROUTINE BCDBIN 


E706 ; 






509 






E706; 






510 


* THIS SUBROUTINE CONVERTS A BYTE FROM BCD TO BINARY. 


E706; 






511 


* THE BYTE IS 


PASSED AND RETURNED IN A. THERE IS NO 


E706 ; 






512 


* ERROR CHECKING. Y IS DESTROYED AND X IS UNCHANGED. 


E705; 






513 


* 




E705; 






514 


*************** 


********************************************* 


E706; 






515 


* 




E706 ; 




E706 


515 


BCDBIN EQU 




E706: 


:48 




517 


PHA 




E707 ; 


: 4A 




518 


LSR 


A ; ISOLATE TENS DIGIT FOR 


E708 : 


: 4A 




519 


LSR 


A ; INDEXING THE TABLE 


E709 ; 


: 4A 




520 


LSR 


A 


E70A; 


; 4A 




521 


LSR 


A 


E70B; 


:A8 




522 


TAY 




E70C; 


: 58 




523 


PLA 




E70D; 


:29 


OF 


524 


AND 


#$0F ;GET UNITS 


E70F; 


:18 




525 


CLC 




E710; 


;79 


14 E7 


526 


ADC 


TENS,Y ;ADD IN TENS 


E713; 


; 60 




527 


RTS 




E714 ; 






528 


* 




E714; 


:00 


OA 14 IE 


529 


TENS DFB 


00, 10, 20, 30, 40, 50, 60, 70, 80, 90 
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E71E 








531 


********* 


******* 


******************************************** 


E71E 








532 


* 








E71E 








533 


* SOS CALL $64 


— JOYSTICK INPUT 




E71E 








534 


* JOYSTICK (IN 


.J. MODE; OUT. J. VALUE) 


E71E 








535 










E71E 








536 


********* 


******* 


******************************************** 


E71E 








537 


* 








E71E 








538 


* 








E71E 






OODO 


539 


AD . INPUT 


EQU 


$D0 




E71E 






OODl 


540 


AD . TEMP 


EQU 


$D1 




E71E 








541 


* 








E71E 






C061 


542 


PA. SWO 


EQU 


$C061 


PORT A, SWITCH 


E71E 






C063 


543 


PA. SWl 


EQU 


$C063 


PORT A, SWITCH 1 


E71E 






C062 


544 


PB.SWO 


EQU 


$C062 


PORT B, SWITCH 


E71E 






C060 


545 


PB.SWl 


EQU 


$C060 


PORT B, SWITCH 1 


E71E 








546 










E71E 






C058 


547 


AD . SELO 


EQU 


$C058 ;A/D SELECT CONTROLS 


E71E 






COSE 


548 


AD.SELl 


EQU 


$C05E 




E71E 






C05A 


549 


AD . SEL2 


EQU 


$C05A 




E71E 






C05C 


550 


AD . CHRG 


EQU 


$C05C 


A/D RAMP CHARGE / 


E71E 






C05D 


551 


AD . STRT 


EQU 


$C05D 


START TIMEOUT 


E71E 






C066 


552 


AD . FLAG 


EQU 


$C066 


A/D TIMEOUT FLAG 


E71E 








553 










E71E 






01F4 


554 


TCHARGE 


EQU 


500 


CHARGE TIME FOR A/D 


E71E 






0168 


555 


TOFFSET 


EQU 


360 /OFFSET TIME TO A/D WINDOW 


E71E 








556 


* 








E71E 






F4A8 


557 


ANALOG 


EQU 


$F4A8 


ROM ENTRY FOR ANALOG INPUT 


E71E 






F4AB 


558 


ANLOGl 


EQU 


$F4AB 


INTERRUPT REENTRY 


E71E 






FFD8 


559 


D . T2 


EQU 


$FFD8 


TIMER 


E71E 






FFDB 


560 


D.ACR 


EQU 


$FFDB 


AUXILIARY CONTROL REGISTER 


E71E 






FFDD 


561 


D.IFR 


EQU 


$FFDD 


INTERRUPT FLAG REGISTER 


E71E 








562 


* 








E71E 






CODC 


563 


ENSEL 


EQU 


$CODC 




E71E 






CODE 


564 


ENS 10 


EQU 


$CODE 




E71E 








565 


* 








E71E 








566 


* 








E71E 






E71E 


567 


JOYSTICK 


EQU 






E71E 


A5 


CI 




568 




LDA 


J. MODE 


VALIDATE J. MODE 


E720 


C9 


08 




569 




CMP 


#$08 




E722 


90 


05 


E729 


570 




BCC 


JSOlO 




E724 


A9 


00 




571 




LDA 


#>BADJMODE 




E726 


20 


00 


00 


572 


JS . ERR 


JSR 


SYSERR 




E729 








573 


* 








E729 


20 


7C 


E7 


574 


JSOlO 


JSR 


AD. SETUP 


SET UP RESOURCES 


E72C 


BO 


F8 


E726 


575 




BCS 


JS . ERR 




E72E 


A5 


CI 




576 




LDA 


J. MODE 


READ PORT B OR PORT A? 


E730 


2 9 


04 




577 




AND 


#BIT0N2 




E732 


DO 


OA 


E73E 


578 




BNE 


JS020 




E734 


AD 


62 


CO 


579 




LDA 


PB.SWO 


PORT B 


E737 


AE 


60 


CO 


580 




LDX 


PB.SWl 




E73A 


AO 


01 




581 




LDY 


#$01 




E73C 


DO 


08 


E746 


582 




BNE 


JS030 




E73E 


AD 


61 


CO 


583 


JS020 


LDA 


PA. SWO 


PORT A 


E741 


AE 


63 


CO 


584 




LDX 


PA. SWl 




E744 


AO 


03 




585 




LDY 


#$03 




E746 


84 


DO 




586 


JS030 


STY 


AD . INPUT 


SAVE INPUT SELECT 
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E748 ; 


:29 


80 




587 




AND 


#BIT0N7 




E74A; 


:F0 


02 


E74E 


588 




BEQ 


JS04 




E74C: 


:A9 


FF 




589 




LDA 


#$FF 




E74E: 


:A0 


00 




590 


JS040 


LDY 


#$00 




E750 ; 


: 91 


02 




591 




STA 


( J . VALUE ) , Y 


/RETURN SWITOH 


E752 ; 


: 8A 






592 




TXA 






E753 ; 


;29 


80 




593 




AND 


#BIT0N7 




E755 ; 


;F0 


02 


E759 


594 




BEQ 


JS050 




E757 ; 


:A9 


FF 




595 




LDA 


#$FF 




E759; 


;C8 






595 


JS050 


INY 






E75A; 


; 91 


02 




597 




STA 


( J . VALUE ) , Y 


/RETURN SWITOH 


E75C: 








598 


* 








E75C : 


:46 


01 




599 




LSR 


J. MODE 




E75E: 


: 90 


09 


E769 


600 




BOO 


JS0 60 




E760: 


:A5 


DO 




601 




LDA 


AD . INPUT 




E752 ; 


;20 


07 


E7 


602 




JSR 


AD . READ 


;READ A/D 


E765 ; 


;A0 


02 




503 




LDY 


#$02 




E767 ; 


; 91 


02 




504 




STA 


( J . VALUE ) , Y 


/RETURN X AXIS 


E769; 


;E6 


DO 




505 


JS060 


I NO 


AD . INPUT 




E76B; 


:46 


01 




505 




LSR 


J. MODE 




E7 6D; 


: 90 


09 


E778 


607 




BOO 


JS070 




E76F; 


:A5 


DO 




608 




LDA 


AD. INPUT 




E771 : 


:20 


C7 


E7 


609 




JSR 


AD . READ 


/READ A/D 


E774 : 


:A0 


03 




610 




LDY 


#$03 




E776: 


: 91 


02 




611 




STA 


(J. VALUE) , Y 


/RETURN Y AXIS 


E778; 








512 










E778; 


:20 


B5 


E7 


513 


JS070 


JSR 


AD . CLNUP 


/OLEAN UP 


E77B; 


: 50 






514 




RTS 




/ AND EXIT 
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E77C 








616 


*************** 




************** 


* * * * 


*********************** 


* * * 


E77C 








617 


* 












E77C 








618 


* SUBROUTINE AD 


. SETUP 








E77C 








619 


♦ THIS SUBROUTINE SETS UP THE 


ENVIRONMENT AND RESOURCES 




E77C 








620 


* FOR READING 


THE JOYSTICKS. 


IF 


AN ERROR OCCURS, CARRY 




E77C 








621 


* IS SET AND AN 


ERROR NUMBER 


IS RETURNED IN A. 




E77C 








622 


* OTHERWISE, CARRY IS CLEARED 








E77C 








623 


* 












E77C 








624 


*************** 


* 


************** 


* * * * 


*********************** 


* * * 


E77C 






E77C 


625 


AD . SETUP EQU 












E77C 


A9 


OF 




626 


LDA 




#JOYSIRSIZ 








E77E 


A2 


A6 




627 


LDX 




#>JOYSIRTBL 








E780 


AO 


E7 




628 


LDY 




#< JOYSIRTBL 








E782 


20 


00 


00 


629 


JSR 




ALLOCSIR 




/ALLOCATE RESOURCES 




E785 


90 


03 


E78A 


630 


BCC 




ADSOlO 








E787 


A9 


00 




631 


LDA 




#>XNORESRC 








E789 


60 






632 


RTS 












E78A 


AD 


DF 


FF 


633 


ADSOlO LDA 




E.REG 








E78D 


29 


7F 




634 


AND 




#$7F 




;SET 2 MHZ, 




E78F 


09 


43 




635 


OKA 




#$43 




; ENABLE ROM, S I/O SPACE 


E791 


8D 


DF 


FF 


636 


STA 




E . REG 








E7 94 


08 






637 


PHP 












E795 


78 






638 


SET 












E796 


AD 


DB 


FF 


639 


LDA 




D . ACR 








E7 99 


2 9 


DF 




640 


AND 




#BIT0FF5 




;SET UP TIMER 




E79B 


BD 


DB 


FF 


641 


STA 




D.ACR 








E79E 


28 






642 


PLP 












E7 9F 


2C 


DC 


CO 


643 


BIT 




ENSEL 




/DISABLE ENSEL 




E7A2 


20 


DE 


CO 


644 


BIT 




ENSIO 




;SET ENSIO FOR INPUT 




E7A5 


60 






645 


RTS 












E7A6 








646 














E7A6 






E7A6 


647 


JOYSIRTBL EQU 












E7A6 


OC 


00 


00 00 


648 


DFB 




$0C, 0, 0, 0, 




; ENSIO 




E7AB 


CD 


00 


00 00 


64 9 


DFB 




$0D, 0, 0, 0, 




; ENSEL 




E7B0 


OE 


00 


00 00 


650 


DFB 




$0E, 0, 0, 0,0 




;6522 D.T2 




E7B5 






OOOF 


651 


JOYSIRSIZ EQU 




♦-JOYSIRTBL 








E7B5 








652 






************** 


* * * * 


*********************** 


* * * 


E7B5 








653 














E7B5 








654 


* SUBROUTINE AD 


.CLNUP 








E7B5 








655 


♦ THIS SUBROUTINE RESTORES THE ENVIRONMENT AND RELEASES 




E7B5 








656 


* THE RESOURCES 


AFTER READING 


THE 


JOYSTICKS . 




E7B5 








657 


* 












E7B5 








658 


*************** 




************** 


* * * * 


*********************** 


* * * 


E7B5 






E7B5 


659 


AD . CLNUP EQU 












E7B5 


AD 


DF 


FF 


660 


LDA 




E.REG 








E7B8 


29 


3C 




651 


AND 




#$3C 




/RESTORE RAM AT $C000 & 


$F000 


E7BA 


8D 


DF 


FF 


662 


STA 




E.REG 








E7BD 


A9 


OF 




663 


LDA 




#JOYSIRSIZ 








E7BF 


A2 


A6 




664 


LDX 




#>JOYSIRTBL 








E7C1 


AO 


E7 




665 


LDY 




#<JOYSIRTBL 








E7C3 


20 


00 


00 


666 


JSR 




DEALCSIR 




/DEALLOCATE RESOURCES 




E7C6 


60 






667 


RTS 
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E7C7 








669 


******* 


********* 


*********** 


* * * * * 


**************************** 


E7C7 








670 


* 










E7C7 








671 


* SUBROUTINE AD 


.READ 






E7C7 








672 


* THIS 


SUBROUTINE READS A 


SPECIFIED A/D INPUT AND RETURNS 


E7C7 








673 


♦ AN 8 


BIT RESULT. IT ASSUMES 


THAT THE A/D RESOURCES HAVE 


E7C7 








674 


* BEEN 


ALLOCATED, THE I/O 


SPACE 


AND $F000 ROM HAVE BEEN 


E7C7 








675 


* SELECTED, AND 


THE SYSTEM 


IS RUNNING IN 2 MHZ MODE. 


E7C7 








575 


* 










E7C7 








577 


* PARAMETERS : 








E7C7 








578 


* A: 


A/D INPUT PORT (0- 


7) 




E7C7 








679 


* 










E7C7 








680 


* RETURN VALUE: 








E7C7 








681 


* A: 


RESULT 


(0 - 255) 






E7C7 








682 


* X, 


Y: UNDEFINED 






E7C7 








683 


* 










E7C7 








684 


******* 


********* 


*********** 


* * * * * 


**************************** 


E7C7 








585 


* 










E7C7 






E707 


585 


AD . READ 


EQU 


* 






E7C7 


4A 






587 




LSR 


A 




; SELECT THE APPROPRIATE 


E7C8 


2C 


58 


oo 


588 




BIT 


AD . SELO 




; A/D INPUT 


E7CB 


90 


03 


E7D0 


689 




BOO 


ADROlO 






E7CD 


2C 


59 


CO 


690 




BIT 


AD . SELO+1 






E7D0 


4A 






691 


ADROlO 


LSR 


A 






E7D1 


2C 


5E 


CO 


692 




BIT 


AD . SELl 






E7D4 


90 


03 


E7D9 


693 




BOO 


ADR020 






E7D6 


20 


5F 


OO 


594 




BIT 


AD . SELl+1 






E7D9 


4A 






695 


ADR020 


LSR 


A 






E7DA 


2C 


5A 


CO 


696 




BIT 


AD . SEL2 






E7DD 


90 


03 


E7E2 


697 




BOO 


ADR030 






E7DF 


20 


5B 


OO 


698 




BIT 


AD.SEL2+1 






E7E2 


08 






699 


ADR030 


PHP 








E7E3 








700 


* 










E7E3 


58 






701 


ADR040 


OLI 








E7E4 


20 


50 


OO 


702 




BIT 


AD . OHRG 




; CHARGE A/D CAPACITOR 


E7E7 


A9 


F4 




703 




LDA 


#>TOHARGE 






E7E9 


8D 


D8 


FF 


704 




STA 


D.T2 






E7EC 


A9 


01 




705 




LDA 


#<TOHARGE 






E7EE 


8D 


D9 


FF 


706 




STA 


D . T2+1 






E7F1 


A9 


20 




707 




LDA 


#BIT0N5 






E7F3 


20 


DD 


FF 


708 


ADR050 


BIT 


D . IFR 






E7F6 


FO 


FB 


E7F3 


709 




BEQ 


ADR050 






E7F8 








710 


* 










E7F8 


78 






711 




SEI 








E7F9 


38 






712 




SEO 








E7FA 


A9 


68 




713 




LDA 


#>TOFFSET 






E7FC 


8D 


D8 


FF 


714 




STA 


D . T2 




;SET UP TIMER 


E7FF 


A9 


01 




715 




LDA 


#<TOFFSET 






E801 


20 


5D 


CO 


716 




BIT 


AD.STRT 




; START A/D TIMEOUT 


E804 


20 


A8 


F4 


717 




JSR 


ANALOG 




/MEASURE CONVERSION TIME 


E807 


90 


oo 


E815 


718 




BOO 


ADR070 






E809 








719 


* 










E809 


58 






720 


ADR0 50 


OLI 






/PROCESS AN INTERRUPT 


E80A 


78 






721 




SEI 








E80B 


20 


66 


OO 


722 




BIT 


AD . FLAG 




/STILL TIMING? 


E80E 


10 


D3 


E7E3 


723 




BPL 


ADR040 




/ NO — START OVER 


E810 


20 


AB 


F4 


724 




JSR 


ANLOGl 




/ YES — CONTINUE 
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02 UMGR.SRC 



SOS 1.1 UTILITY MANAGER 



AUGUST-2006 



Ef 


)13 ; 


;B0 


F4 


Ef 


i09 


725 




BCS 


ADR060 


Ef 


J15 ; 










726 


* 






Ei 


?15 : 


: 28 








727 


ADR070 


PLP 




Ef 


116: 


: 4 9 


FF 






728 




EOR 


#SFF 


Ef 


US: 


: 30 


13 


Ef 


!2D 


729 




BMI 


ADR080 


Ef 


ilA; 


: 85 


Dl 






730 




STA 


AD . TEMP 


Ef 


JIC ; 


; 98 








731 




TYA 




E! 


SID ; 


; 49 


FF 






732 




EOR 


#$FF 


E! 


SIF; 


; 46 


Dl 






733 




LSR 


AD . TEMP 


E! 


S21 ; 


; 6A 








734 




ROR 


A 


Ef 


)22 ; 


; 46 


Dl 






735 




LSR 


AD . TEMP 


Ef 


J24 : 


: 6A 








736 




ROR 


A 


Ef 


i25; 


:46 


Dl 






737 




LSR 


AD . TEMP 


Ef 


J27 : 


:D0 


07 


Ef 


!30 


738 




BNE 


ADR090 


Ef 


i29: 


: 6A 








739 




ROR 


A 


Ef 


J2A; 


; 69 


00 






740 




ADC 


#0 


Ef 


)2C; 


: 60 








741 




RTS 




Ef 


J2D; 


:A9 


00 






742 


ADR080 


LDA 


#0 


Ef 


J2F; 


: 60 








743 




RTS 




Ef 


i30; 


:A9 


FF 






744 


ADR0 90 


LDA 


#$FF 


Ef 


)32; 


: 60 








745 




RTS 





; NORMALIZE RESULT 
/RESULT < 



/RESULT > 255 
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AUGUST-2006 



E 


33 










747 


********** 


* * * * * 


************* 


Ef 


)33 










748 


* 






Ei 


533 










749 


* SYSTEM 


COLD 


START 


E 


33 










750 








ES 


J33 










751 


* THIS ROUTINE 


IS CALLED TO 


Ef 


J33 










752 


♦ SYSTEM. 


IT 


CLEARS THE SC 


Ef 


J33 










753 


* OVERWRITES BANKED MEMORY, 


Ef 


)33 










754 


* PERFORMS A HARD RESET. 


Ef 


)33 










755 


* 






Ef 


i33 










755 


********** 


* * * * * 


************* 


Ef 


S33 










757 


* 






Ef 


!33 










758 


* 






E 


33 






Ef 


33 


759 


COLDSTRT 


EQU 


* 


Ef 


J33 


78 








7 60 




SEI 




Ef 


J34 


A9 


40 






7 61 




LDA 


#$40 


Ef 


J36 


BD 


CA 


FF 




7 62 




STA 


$FFCA 


Ef 


)39 


A9 


67 






763 




LDA 


#$67 


Ef 


)3B 


8D 


DF 


FF 




764 




STA 


E.REG 


Ef 


S3E 


A9 


00 






765 




LDA 


#$00 


Ef 


S40 


8D 


DO 


FF 




766 




STA 


Z . REG 


Ef 


543 










7 67 


* 






E 


43 


AE 


00 


00 




7 68 




LDX 


SYSBANK 


E 


46 


A9 


BF 






7 69 




LDA 


#$BF 


E 


48 


AO 


00 






770 




LDY 


#$00 


Ef 


MA 


84 


CI 






771 




STY 


MEMORY 


Ef 


J4C 


85 


C2 






772 


CSOlO 


STA 


MEMORY +1 


Ef 


)4E 


8E 


EF 


FF 




773 




STX 


B.REG 


Ef 


551 


A9 


AO 






774 




LDA 


#$A0 


Ef 


J53 


91 


CI 






775 


CS020 


STA 


(MEMORY) , Y 


E 


55 


88 








776 




DEY 




E 


56 


DO 


FB 


Ef 


53 


777 




BNE 


CS020 


Ef 


358 


C6 


C2 






778 




DEC 


MEMORY+1 


Ef 


S5A 


DO 


F7 


Ef 


53 


779 




BNE 


CS020 


Ef 


i5C 


CA 








780 




DEX 




Ef 


!5D 


10 


ED 


Ef 


4C 


781 




BPL 


CSOlO 


Ef 


)5F 










782 


* 






Ef 


?5F 


AO 


06 






783 




LDY 


#6 


Ef 


i61 


99 


50 


CO 




784 


CS030 


STA 


$C050, Y 


E 


64 


88 








785 




DEY 




E 


65 


10 


FA 


Ef 


61 


786 




BPL 


CS030 


Ef 


J67 










787 


* 






Ef 


S67 


AO 


IF 






788 




LDY 


#BOOTLEN 


Ef 


i69 


B9 


79 


E8 




789 


CS040 


LDA 


BOOTMSG-1, Y 


Ef 


S6C 


99 


2B 


06 




790 




STA 


BOOTADR-1, Y 


Ef 


S6F 


88 








791 




DEY 




Ef 


?70 


DO 


F7 


Ef 


69 


792 




BNE 


CS040 


Ef 


ill 










793 


* 






E 


72 


A9 


77 






794 




LDA 


#$77 


E 


74 


8D 


DF 


FF 




795 




STA 


E.REG 


Ef 


J77 


4C 


77 


E8 




796 




JMP 





/SHUT DOWN INTERRUPTS 
; AND IGNORE NMI 



; DISABLE RESET 
;USE PAGE ZERO 



;SET MEMORY TO BLANKS 



/SELECT 4 COLUMN 

; BLACK S WHITE TEXT 



; PRINT BOOT MESSAGE 



/ENABLE RESET 
;HANG UNTIL RESET 
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AUGUST-2006 



E87A 
E87A 

E899 
E899 
E899 



798 MSB 

C9 CE D3 C5 799 BOOTMSG ASC 

00 IF 800 BOOTLEN EQU 

052C 801 BOOTADR EQU 

802 MSB 



ON 

"INSERT 

*-BOOTMSG 

40-BOOTLEN/2+$62E 

OFF 



SYSTEM DISKETTE S REBOOT" 



E899 
E899 
E899 
E899 
S 

E899 



E899 
040E 
0000 



804 ZZEND 

805 ZZLEN 
806 

807 
808 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



ON 

ZZEND-ZZORG 
ZZLEN-LENUMGR 
2, "SOSORG 



FILE IS INCORRECT FOR UMBR" 
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02 SYMBOL TABLE SORTED BY SYMBOL AUGUST-2006 PAGE 23 



C05C 


AD . CHRG 


E7B5 


AD . CLNUP 


C066 


AD . FLAG 


DO 


AD . INPUT 


E7C7 


AD . READ 


C058 


AD . SELO 


C05E 


AD . SELl 


C05A 


AD . SEL2 


E77C 


AD . SETUP 


C05D 


AD . STRT 


Dl 


AD . TEMP 


E7D0 


ADROlO 


E7D9 


ADRG2G 


E7E2 


ADRG3G 


E7E3 


ADRG4G 


E7F3 


ADR050 


E809 


ADRG60 


E815 


ADRG7G 


E82D 


ADRG8G 


E830 


ADR0 90 


E78A 


ADSOlO 


XGOGC 


ALLOCSIR 


F4A8 


ANALOG 


F4AB 


ANLOGl 


FFEF 


B . REG 


XGOGA 


BADJMODE 


X0009 


BADSCNUM 


NE706 


BCDBIN 


DF 


BIT0FF5 


04 


BIT0N2 


20 


BIT0N5 


40 


BIT0N6 


80 


BIT0N7 


?2E00 


BLABFMI 


3200 


BLABFM 


6B52 


BLABUFMG 


5955 


BLACFM 


5E99 


BLADISK3 


64D9 


BLADMGR 


58F4 


BLAFMGR 


?2CF8 


BLAGLOB 


?2AF8 


BLAINIT 


55C0 


BLAIPL 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


062C 


BOOTADR 


OOIF 


BOOTLEN 


E87A 


BOOTMSG 


XG007 


CEVPRI 


D3 


CKSUM 


E651 


CLKREGS 


18D4 


CLKTEMP 


C070 


CLOCK 


03 


CMIN 


07 


CMON 


NE833 


COLDSTRT 


12 


CRESET 


E84C 


CSOlO 


E853 


CS020 


E861 


CS030 


E869 


CS04 


02 


CSEC 


FFDB 


D . ACR 


FFDD 


D . IFR 


FFD8 


D.T2 


NE656 


DATETIME 


E654 


DAY 


XOOOD 


DEALCSIR 


E675 


DTOlO 


E679 


DT020 


E695 


DT030 


E69F 


DT040 


E6AE 


DT050 


E6C9 


DT060 


FFDF 


E.REG 


CODC 


ENSEL 


CODE 


ENSIO 


E650 


ERRCNT 


E4BB 


GET . FENCE 


E5C1 


GET . TIME 


E5DD 


GTIMO 1 


E5E1 


GTIM02 


E5FD 


GTIM030 


E614 


GTIM040 


E61D 


GTIM050 


E62E 


GTIM060 


E63D 


GTIM070 


E64E 


GTIM080 


E652 


HOUR 


CI 


J . MODE 


C2 


J. VALUE 


GOOF 


JOYSIRSIZ 


E7A5 


JOYSIRTBL 


E71E 


JOYSTICK 


E72 6 


JS . ERR 


E729 


JSOlO 


E73E 


JS020 


E746 


JS030 


E74E 


JS040 


E759 


JS050 


E769 


JS0 60 


E778 


JS070 


OE 


LDAY 


2266 


LENBFM 


?G4G0 


LENBFMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


G185 


LENDMGR 


61 


LENFMGR 


?01B2 


LENINIT 


04CB 


LENIPL 


GAF8 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


GO 


LENPATCH 


G296 


LENSCMGR 


D5 


LENSERR 


040E 


LENUMGR 


CI 


MEMORY 


E651 


MIN 


E655 


MON 


E64F 


OFFSET 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


?18FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


EEG4 


ORGSERR 


E48B 


ORGUMGR 


C061 


PA. SWO 


C063 


PA. SWl 


C062 


PB.SWG 


C060 


PB.SWl 


DO 


PCLK 


NE4C3 


PCLOCK 


CI 


PRIORITY 


E4CD 


RETRY 


E4B5 


SET. FENCE 


E4DA 


SET . TIME 


14 


STATUS 


E4E2 


STIMOlO 


E4E5 


STIMOll 


E51A 


STIM015 


E52D 


STIM016 


E549 


STIM020 


E57F 


STIM030 


E582 


STIM040 


E5B8 


STIM050 


X0006 


SYSBANK 


X0008 


SYSERR 


01F4 


TCHARGE 


E714 


TENS 


CI 


TIME 


0168 


TOFFSET 


CO 


U.REQCODE 


CO 


U . TPARMX 


E4A4 


UMGRERR 


NE48B 


UMGR 


0006 


USWCNT 


E4A9 


USWTBL 


D2 


WKDAY 


E4CE 


WKMON 


XOOOB 


XNORESRC 


E653 


YEAR 


FFDO 


Z .REG 


E899 


ZZEND 


040E 


ZZLEN 



E48B ZZORG 
** SUCCESSFUL ASSEMBLY := NO ERRORS 
** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 867 
** FREE SPACE PAGE COUNT 79 
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SOURCE FILE #01 

INCLUDE FILE #02 

SOURCE FILE #03 

SOURCE FILE #04 

SOURCE FILE #05 

SOURCE FILE #06 

SOURCE FILE #07 

SOURCE FILE #08 



=>DISK3 . SRC 
=>SOSORG 
=>DISK3 .MAIN. SRC 
=>DISK3 . WRT . SRC 
=>DISK3 . SIO. SRC 
=>DISK3.USEL.SRC 
=>DISK3. SUBS. SRC 
=>DISK3. DATA. SRC 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 156 of 456 



01 DISK3.SRC SOS 1.1 DISK /// DRIVER AUGUST-2006 PAGE 2 



0000 


0000 


2 


TEST 


EQU 





FOR FUNNY-MODE TESTING 


0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM 


EQU 


BLAFMGR+LENFMGR 


; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG 


EQU 


BLACFM+LENCFM 


; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG 


EQU 


BLABUFMG+LENBUFMG 


; BLOAD ADDRESS OF MEMMGR 


0000 




58 














t ^, ^, ^, ^, ^, ^, -1, ^, ^, 






0000 


0000 


4 




DO 


TEST 




S 




5 




ORG 


$2000 




0000 




6 




ELSE 






0000 




7 




REL 






E899 


E899 


8 




ORG 


0RGDISK3 




E899 




9 




FIN 






E899 


E899 


10 


ZZORG 


EQU 






E899 




11 




CHR 






E899 




12 




MSB 


OFF 




E899 




13 


* 








E899 




14 










E899 




15 


* COPYRIGHT (C) APPLE COMPUTER 


INC . 


E899 




16 


* 


ALL RIGHTS RESERVED 




E899 




17 










E899 




18 


* 








E899 


0000 


19 


REVOROM 


EQU 





; 1=SUPP0RT REVO ROM 


E899 




20 










E899 


0001 


21 




DO 


1-TEST 




E899 


E899 


22 




ENTRY 


DIBl 


; DIBl 


E899 


E8B9 


23 




ENTRY 


DIB2 


; DIB2 


E899 


E8D9 


24 




ENTRY 


DIB3 


; DIB3 


E899 


E8F9 


25 




ENTRY 


DIB4 


; DIB4 


E899 


ED57 


26 




ENTRY 


SEEKDSK3 


; SEEK CURRENT DRIVE 


E899 




27 










E899 


0000 


28 




EXTRN 


SYSERR 




E899 




29 










E899 


0000 


30 




EXTRN 


XREQCODE 




E899 


0000 


31 




EXTRN 


XBADOP 




E899 


0000 


32 




EXTRN 


XNODRIVE 




E899 


0000 


33 




EXTRN 


XIOERROR 




E899 


0000 


34 




EXTRN 


XNOWRITE 




E899 


0000 


35 




EXTRN 


XBYTECNT 




E899 


0000 


36 




EXTRN 


XBLKNUM 




E899 


0000 


37 




EXTRN 


XDISKSW 




E899 


0000 


38 




EXTRN 


XCTLCODE 




E899 




39 


* 








E899 


0000 


40 




EXTRN 


E1908 


; GLOBAL FLAG FOR MOUSE DRIVER 


E899 




41 


* TO SAY 


WE CANNOT BE INTERRUPTED 




E899 




42 


* 








E899 




43 




ELSE 






S 




44 


XREQCODE 


EQU 


$20 




S 




45 


XBADOP 


EQU 


$26 




S 




46 


XNODRIVE 


EQU 


$28 




S 




47 


XIOERROR 


EQU 


$27 




S 




48 


XNOWRITE 


EQU 


$2B 




S 




49 


XBYTECNT 


EQU 


$2C 




S 




50 


XBLKNUM 


EQU 


$2D 




S 




51 


XDISKSW 


EQU 


S2E 




S 




52 


XCTLCODE 


EQU 


$21 




E899 




53 




FIN 
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PAGE 4 



Ei 


99 




55 


* 


DISK /// 


CONTROLLER EQUATES: 






Ef 


99 




56 


* 














EE 


99 




57 




MOTOR SELECT BITS 








Ef 


99 




5S 
















Ef 


99 




59 


* 


DRIVE 


INT EXTl 


EXT2 






Ef 


99 




60 


* 
















Ef 


99 




61 


* 


.Dl 


1 


X 


X 






Ef 


99 




62 


* 


.D2 


X 





1 






Ef 


99 




63 


* 


.D3 


X 


1 









Ef 


99 




64 


* 


.D4 


X 


1 


1 






Ef 


99 




65 


* 














Ef 


99 


C0D4 


66 


MS 


. INT 


EQU 


$C0D4 






MOTOR SELECT : INTERNAL DRIVE 


Ef 


99 


CODS 


67 


MD 


. INT 


EQU 


$C0D5 






MOTOR DESELECT : INTERNAL DRIVE 


Ef 


99 




68 


+ 














Ef 


99 


C0D3 


69 


MS 


.EXTl 


EQU 


$C0D3 






MOTOR SELECT: EXTERNAL DRIVE 


Ef 


99 


CODl 


70 


MS 


.EXT2 


EQU 


$C0D1 






MOTOR SELECT: EXTERNAL DRIVE 


Ef 


99 


C0D2 


71 


MD 


.EXTl 


EQU 


$C0D2 






MOTOR DESELECT: EXTERNAL DRIVE 


Ef 


99 


CODO 


72 


MD 


.EXT2 


EQU 


SCODO 






MOTOR DESELECT: EXTERNAL DRIVE 


Ef 


99 




73 


* 














Ef 


99 


COEA 


74 


IS 


. INT 


EQU 


$COEA 






I/O SELECT : INTERNAL DRIVE 


Ef 


99 


COEB 


75 


IS 


.EXT 


EQU 


$COEB 






I/O SELECT: EXTERNAL DRIVE 


Ef 


99 




76 
















Ef 


99 


CODS 


77 


NOSCROLL 


EQU 


$C0D8 




; SMOOTHSCROLL OFF 


Ef 


99 




78 
















Ef 


99 


C0E8 


79 


MOTOROFF 


EQU 


$C0E8 






MOTOR (S) START POWEROFF T/0 


Ef 


99 


C0E9 


80 


MOTORON 


EQU 


SC0E9 






MOTOR (S) POWER ON 


Ef 


99 


C08C 


81 


Q6L 


EQU 


$C08C 






Q7L, Q6L=READ 


Ef 


99 


C08D 


82 


Q6H 


EQU 


$C08D 






Q7L, Q6H=SENSE WPROT 


Ef 


99 


COSE 


83 


Q7L 


EQU 


$C08E 






Q7H, Q6L=WRITE 


Ef 


99 


C08F 


84 


Q7H 


EQU 


$C08F 






Q7H, Q6H=WRITE STORE 


Ef 


99 




85 


A 














Ef 


99 




86 




OTHER EQUATES: 










Ef 


99 




87 


* 














Ef 


99 


FFDF 


88 


E. 


REG 


EQU 


$FFDF 






ENVIRONMENT REGISTER 


Ef 


99 


FFEE 


89 


E. 


lER 


EQU 


SFFEE 






INTERRUPT ENABLE REGISTER 


Ef 


99 




90 


* 














Ef 


99 




91 




RETRY COUNTERS 










Ef 


99 




92 
















Ef 


99 


0001 


93 


R. 


RECAL 


EQU 


1 






MAX RECALIBRATES 


Ef 


99 




94 


* 


R.RECAL 


MUST NOT BECOME 


ZERO! 


(MOUSE WILL BE LOCKED OUT) 


Ef 


99 




95 


A 


SEE DISK3.SI0. 


SRC LINE 


14 FOR 


DETAIL 


Ef 


99 


0003 


95 


R. 


FIND 


EQU 


3 






MAX REVS TO FIND A SECTOR 


Ef 


99 


0004 


97 


R. 


lOERR 


EQU 


4 






MAX RETRIES ON READ ERROR 


Ef 


99 


0006 


98 


R. 


IRQ 


EQU 


6 






MAX IRQ'S TOLERATED BEFORE SET 
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E899 




100 


* ZPAGE EQUATES 


FOR CORE ROUTINES: 




E899 




101 


* 








0000 




102 




DSECT 






0081 


0081 


103 




ORG 


$81 




0081 


0001 


104 


IBSLOT 


DS 


1 


SLOT=S60 FOR RTNS 


0082 


0007 


105 




DS 


7 


N/A 


0089 


0001 


106 




DS 


1 


RDADR : CHECKSUM 


008A 


0001 


107 




DS 


1 


N/A 


008B 


0001 


108 


IMASK 


DS 


1 


BIT7 SET IF IRQ ALLOWED 


008C 


0001 


109 


CURTRK 


DS 


1 


SEEK: CURRENT TRACK 


008D 


0002 


110 




DS 


2 


N/A 


008F 


0001 


111 


INTRTRY 


DS 


1 


READ: IRQ RETRY COUNT 


0090 


0005 


112 




DS 


5 


N/A 


0095 


0001 


113 




DS 


1 


RDADR: 'MUST FIND' COUNT 


0096 


0001 


114 




DS 


1 


READ, WRITE: CHECKSUM 


0097 


0004 


115 


CSSTV 


DS 


4 


RDADR : CKSUM, SEC , TRK, VOL 


009B 


0099 


115 


MONTIMEL 


EQU 


CSSTV+2 


MSWAIT : MOTOR-ON TIME 


009B 


00 9A 


117 


MONTIMEH 


EQU 


MONTIMEL+1 




009B 


0002 


118 


BUF 


DS 


2 


PRENIB,POSTNIB:USER BUFFER 


009D 


0001 


119 




DS 


1 


SEEK: PRIOR PHASE 


00 9E 


0001 


120 


TRKN 


DS 


1 


SEEK: TARGET TRACK 


009F 




121 


* 








009F 




122 


* LOCAL TEMPS: 






009F 




123 










OODO 


OODO 


124 




ORG 


$D0 


WE ' RE ALLOWED TO $FF 


OODO 


0002 


125 


BLKTEMP 


DS 


2 


LOCAL TEMP FOR BLKNUMBER 


00D2 


0002 


126 


BUFTEMP 


DS 


2 


LOCAL TEMP FOR BUFFER ADDRESS 


00D4 


0001 


127 


TRACK 


DS 


1 


LOCAL TEMP FOR TRACK 


00D5 


0001 


128 


SECTOR 


DS 


1 


LOCAL TEMP FOR SECTOR 


00D6 


0001 


129 


RETRYADR 


DS 


1 


LOCAL TEMP FOR SECTOR-FIND RETRIES 


00D7 


0001 


130 


RETRYCNT 


DS 


1 


LOCAL TEMP FOR I/O RETRIES 


00D8 


0001 


131 


RECALCNT 


DS 


1 


LOCAL TEMP FOR RECAL COUNT 


00D9 


0001 


132 


BLKCOUNT 


DS 


1 


BLKS REQD TO SATISFY BYTECOUNT 


OODA 


0001 


133 


SEEKWAIT 


DS 


1 


<>0 IF SEEK DELAY NEEDED 


OODB 


0001 


134 


IRQMASK 


DS 


1 


ENTRY ' I ' BIT 


OODC 


0001 


135 


TEMP 


DS 


1 


JUST A TEMP 


E899 




135 




DEND 
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SOS 


1 


1 DISK 


/// DRIVER AUGUST-2006 PAGE 


E899 




138 


* 


DRIVER INTERFACE AREA: 




E899 




139 


* 










0000 




140 






DSECT 






ooco 


OOCO 


141 






ORG 


$C0 




ooco 


0001 


142 


D 


COMMAND 


DS 


1 


COMMAND CODE 


OQCl 


0001 


143 


D 


UNITNUM 


DS 


1 


UNIT NUMBER 


00C2 


0002 


144 


D 


BUFL 


DS 


2 


BUFFER ADDRESS 


00C4 


00C3 


145 


D 


BUFH 


EQU 


D.BUFL+1 




00C4 


00C2 


146 


D 


STATCODE 


EQU 


D.BUFL 


DSTATUS CODE 


00C4 


00C3 


147 


D 


STATBUF 


EQU 


D . BUFH 


"DSTATUS LIST 


00C4 


0002 


148 


D 


BYTES 


DS 


2 


BYTECOUNT 


00C6 


0002 


149 


D 


BLOCK 


DS 


2 


REQUESTED BLOCKNUM 


00C8 


0002 


150 


D 


BYTRD 


DS 


2 


BYTES READ (READ) 


OOCA 


0005 


151 






DS 


5 


SPARES (OK AS TEMPS) 


E899 




152 






DEND 
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E899 






E899 


154 


DIBl 


EQU 






DIB FOR .Dl 


E899 


B9 


E8 




155 




DW 


DIB2 




FLINK 


E8 9B 


ID 


E9 




156 




DW 


MAIN 




ENTRY POINT 


E8 90 


03 






157 




DFB 


3 




NAME LENGTH 


E89E 


2E 


44 


31 20 


158 




ASC 


' .Dl 






E8AD 


80 






159 




DFB 


$80 




DEVNUM: ACTIVE 


E8AE 


00 






150 




DFB 







SLOT 


E8AF 


00 






161 




DFB 







UNIT NUMBER 


E8B0 


El 


01 


00 


162 




DFB 


SEl, 1 





TYPE, SUB, FILLER 


E8B3 


18 


01 




163 




DW 


280 




BLOCKCOUNT 


E8B5 


01 


00 




164 




DW 


1 




MANUFACTURER=APPLE 


E8B7 


00 


11 




165 




DW 


$1100 




VERSI0N=1 . 1 


E8B9 








166 












E8B9 






E8B9 


167 


DIB2 


EQU 


^, 




DIB FOR .02 


E8B9 


09 


E8 




168 




DW 


DIB3 




FLINK 


E8BB 


ID 


E9 




169 




DW 


MAIN 




ENTRY POINT 


E8BD 


03 






170 




DFB 


3 




NAME LENGTH 


E8BE 


2E 


44 


32 20 


171 




ASC 


' .D2 






E8CD 


80 






172 




DFB 


$80 




DEVNUM: ACTIVE 


E8CE 


00 






173 




DFB 







SLOT 


E8CF 


01 






174 




DFB 


1 




UNIT NUMBER 


E8DG 


El 


01 


00 


175 




DFB 


$E1, 1 





TYPE, SUB, FILLER 


E8D3 


18 


01 




176 




DW 


280 




BLOCKCOUNT 


E8D5 


01 


00 




177 




DW 


1 




MANUFACTURER=APPLE 


E8D7 


00 


11 




178 




DW 


$1100 




VERSION^l . 1 


E8D9 








179 


* 










E8D9 






E8D9 


180 


DIB3 


EQU 






DIB FOR .D3 


E8D9 


F9 


E8 




181 




DW 


DIB4 




FLINK 


E8DB 


ID 


E9 




182 




DW 


MAIN 




ENTRY POINT 


E8DD 


03 






183 




DFB 


3 




NAME LENGTH 


E8DE 


2E 


44 


33 20 


184 




ASC 


' .D3 






E8ED 


80 






185 




DFB 


$80 




DEVNUM: ACTIVE 


E8EE 


00 






185 




DFB 







SLOT 


E8EF 


02 






187 




DFB 


2 




UNIT NUMBER 


E8F0 


El 


01 


00 


188 




DFB 


$E1, 1 





TYPE, SUB, FILLER 


E8F3 


18 


01 




189 




DW 


280 




BLOCKCOUNT 


E8F5 


01 


00 




190 




DW 


1 




MANUFACTURER=APPLE 


E8F7 


00 


11 




191 




DW 


$1100 




VERSI0N=1 . 1 


E8F9 








192 












E8F9 






E8F9 


193 


DIB4 


EQU 


^, 




DIB FOR .04 


E8F9 


00 


00 




194 




DW 







NO FLINK 


E8FB 


ID 


E9 




195 




DW 


MAIN 




ENTRY POINT 


E8FD 


03 






195 




DFB 


3 




NAME LENGTH 


E8FE 


2E 


44 


34 20 


197 




ASC 


' .D4 






E90D 


80 






198 




DFB 


$80 




DEVNUM: ACTIVE 


E90E 


00 






199 




DFB 







SLOT 


E90F 


03 






200 




DFB 


3 




UNIT NUMBER 


E910 


El 


01 


00 


201 




DFB 


$E1, 1 





TYPE, SUB, FILLER 


E913 


18 


01 




202 




DW 


280 




BLOCKCOUNT 


E915 


01 


00 




203 




DW 


1 




MANUFACTURER=APPLE 


E917 


00 


11 




204 




DW 


$1100 




VERSI0N=1 . 1 


E919 


01 


00 




205 




DW 


1 




MANUFACTURER=APPLE 


E91B 


00 


11 




206 




DW 


$1100 




VERSI0N=1 . 1 


E91D 








207 












E91D 








208 




CHN 


DISK3 


MAIN. SRC 
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E91D 








2 


* MAIN 


ENTRY POINT: 




E91D 








3 


* 








E91D 








4 


♦ DISABLE NMI/RESET AND ENABLE ROM/IO SPACE 


E91D 








5 










E91D 






E91D 


6 


MAIN 


EQU 






E91D 


AD 


DF 


FF 


7 




LDA 


E.REG ;SAVE CALLER'S 


E920 


29 


DF 




8 




AND 


#$FF-$20 


DROP SCREEN BIT 


E922 


8D 


F2 


ED 


9 




STA 


ESAVE 


ENVIRONMENT 


E925 






0001 


10 




DO 


1-TEST 


NO RESETLOCK FOR TESTING 


E925 


AD 


DF 


FF 


11 




LDA 


E.REG 


GET EREG AGAIN 


E928 


29 


EF 




12 




AND 


#$FF-$10 


DISABLE NMI/RESET 


E92A 








13 




FIN 






E92A 


09 


03 




14 




ORA 


#S03 


ENABLE ROM/IO SPACE 


E92C 


8D 


DF 


FF 


15 




STA 


E.REG 




E92F 








16 










E92F 


AD 


D8 


CO 


17 




LDA 


NOSCROLL 


DISABLE SMOOTHSCROLL 


E932 








18 


* 








E932 


08 






19 




PHP 




IF ALREADY SEI'D, THEN WE 


E933 


58 






20 




PLA 




STAY THAT WAY. . . 


E934 


6A 






21 




ROR 


A 




E935 


6A 






22 




ROR 


A 




E936 


6A 






23 




ROR 


A 




E937 


6A 






24 




ROR 


A 




E938 


85 


DB 




25 




STA 


IRQMASK 


'I' BIT INTO BIT7 


E93A 








25 


* 








E93A 








27 


* MAKE 


SURE WE HAVE A VALID COMMAND: 


E93A 








28 


* 








E93A 


A5 


CO 




29 




LDA 


D . COMMAND 


GET IT 


E93C 


30 


43 


E981 


30 




BMI 


BADCMD 


=>WOW ! 


E93E 


FO 


46 


E986 


31 




BEQ 


lOSETUP 


=>ZERO IS A READ 


E940 


C9 


OA 




32 




CMP 


#10 


OFF THE END? 


E942 


BO 


3D 


E981 


33 




BCS 


BADCMD 


=>YES 


E944 


C9 


09 




34 




CMP 


#9 


REPEAT? 


E946 


DO 


15 


E95E 


35 




BNE 


CMDl 


=>NOPE 


E948 








35 


* 








E948 








37 


* REPEAT. SIMPLY 


GET PRIOR COMMAND 




E948 








38 


* 








E948 


AD 


FO 


ED 


39 




LDA 


PREVUNIT 


IS THIS REPEAT FOR 


E94B 


C5 


CI 




40 




CMP 


D.UNITNUM 


SAME UNIT? 


E94D 


DO 


2D 


E97C 


41 




BNE 


BADOP 


=>N0? ILLEGAL! 


E94F 


AD 


Fl 


ED 


42 




LDA 


PREVCMD 


YES, SET COMMAND 


E952 


FO 


04 


E958 


43 




BEQ 


RPTOK 


=>REPEAT'ED READ IS OK 


E954 


C9 


01 




44 




CMP 


#1 


IF NOT, IS IT REPEAT'ED WRITE? 


E956 


DO 


24 


E97C 


45 




BNE 


BADOP 


=>CAN'T REPEAT OTHER COMMANDS 


E958 






E958 


45 


RPTOK 


EQU 






E958 


85 


CO 




47 




STA 


D . COMMAND 


SAME AS BEFORE 


E95A 


C9 


00 




48 




CMP 


#0 


READ? 


E95C 


FO 


28 


E986 


49 




BEQ 


lOSETUP 


=>YES 


E95E 








50 


* NOW 


REPEAT GOES LIKE OTHERS: 




E95E 








51 


* 








E95E 








52 


* 








E95E 






E95E 


53 


CMDl 


EQU 






E95E 


C9 


01 




54 




CMP 


#1 


WRITE? 


E960 


DO 


03 


E965 


55 




BNE 


CMD2 


=>NOPE 


E962 


4C 


86 


E9 


56 




JMP 


lOSETUP 


=>YES 


E965 






E955 


57 


CMD2 


EQU 
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E965 


C9 


02 




58 


CMP 


#2 


STATUS? 


E967 


DO 


OC 


E975 


59 


BNE 


CMD3 


=>NOT STATUS 


E969 


A5 


C2 




60 


LDA 


D . STATCODE 


IS IT 'SENSE'? 


E96B 


FO 


05 


E972 


61 


BEQ 


GOSTAT 


= >YES 


E96D 


A9 


00 




62 


LDA 


#XCTLCODE 


ILLEGAL CODE 


E96F 


4C 


E9 


EA 


63 


JMP 


EXIT 




E972 






E972 


64 GOSTAT 


EQU 






E972 


4C 


BC 


E9 


65 


JMP 


DRVSETUP 


=>YES 


E975 








65 * 








E975 






E975 


67 CMD3 


EQU 






E975 


C9 


08 




68 


CMP 


#8 


INIT? 


E977 


DO 


03 


E97C 


69 


BNE 


BADOP 


=>NOPE 


E979 


4C 


A4 


EA 


70 


JMP 


INIT 


=>YES, DO INIT 


E97C 








71 * 








E97C 






E97C 


72 BADOP 


EQU 






E97C 


A9 


00 




73 


LDA 


#XBADOP 


ILLEGAL COMMAND 


E97E 


4C 


E9 


EA 


74 


JMP 


EXIT 


BACK TO YOU 


E981 








75 * 








E981 






E981 


7 5 BADCMD 


EQU 






E981 


A9 


00 




77 


LDA 


#XREQCODE 


INVALID COMMAND 


E983 


4C 


E9 


EA 


78 


JMP 


EXIT 


BACK TO YOU 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 164 of 456 



03 DISK3. MAIN. SRC 



SOS 1.1 DISK /// DRIVER AUGUST-2006 PAGE 10 



E986 








80 


* SETUP WHAT WE 


HAVE TO BEFORE 




E986 








81 


* PERFORMING THE I/O OPERATION: 




E986 








82 


* 






E986 






E986 


83 


lOSETUP EQU 


^, 




E986 


A5 


C7 




84 


LDA 


D.BLOCK+1 


VALIDATE BLOCKNUM 


E988 


FO 


OF 


E999 


85 


BEQ 


CHKBYTE 


=> IF <256, IT'S OK 


E98A 


C9 


02 




86 


CMP 


#2 


IS IT <512? 


E98C 


BO 


06 


E994 


87 


BCS 


BADBLOCK 


^>BAD BOY ! 


E98E 


A5 


C6 




88 


LDA 


D. BLOCK 


YES, CHECK LO HALF 


E990 


C9 


18 




89 


CMP 


#280-256 


FOR RANGE 


E992 


90 


05 


E999 


90 


BCC 


CHKBYTE 


=>IT'S OK 


E994 






E994 


91 


BADBLOCK EQU 






E994 


A9 


00 




92 


LDA 


#XBLKNUM 


BAD BLOCK NUMBER 


E996 


4C 


E9 


EA 


93 


JMP 


EXIT 


RETURN BAD NEWS 


E999 








94 








E999 






E999 


95 


CHKBYTE EQU 






E999 


A5 


C4 




96 


LDA 


D. BYTES 


GET LO COUNT 


E99B 


DO 


lA 


E9B7 


97 


BNE 


BADCOUNT 


=>ERR, NOT INTEGRAL BLOCK (S) 


E99D 


A5 


C5 




98 


LDA 


D.BYTES+1 


GET HI COUNT 


E99F 


4A 






99 


LSR 


A 


MAKE BLOCK COUNT 


E9A0 


BO 


15 


E9B7 


100 


BCS 


BADCOUNT 


=>BAD IF HALF-BLOCK COUNT 


E9A2 


85 


D9 




101 


STA 


BLKCOUNT 


SAVE COUNT OF BLOCKS 


E9A4 








102 








E9A4 








103 


* DOES REQUESTED 


BYTECOUNT CAUSE US 


E9A4 








104 


♦ TO RUN OFF END OF DISK? 




E9A4 








105 








E9A4 


A5 


D9 




106 


LDA 


BLKCOUNT 


NO. ADD STARTBLOCK 


E9A6 


18 






107 


CLC 




AND BLKCOUNT AND SEE 


E9A7 


65 


C6 




108 


ADC 


D. BLOCK 


IF WE'RE TOO BIG 


E9A9 


A6 


C7 




109 


LDX 


D.BLOCK+1 


DID IT START OUT > 255? 


E9AB 


DO 


04 


E9B1 


110 


BNE 


BLKG255 


=>YES 


E9AD 


90 


OD 


E9BC 


111 


BCC 


DRVSETUP 


=>DEFINITELY < 256 


E9AF 


BO 


02 


E9B3 


112 


BCS 


CHKLO 


=>IF CARRY, THEN >256 


E9B1 






E9B1 


113 


BLKG255 EQU 






E9B1 


BO 


04 


E9B7 


114 


BCS 


BADCOUNT 


>255+CARRY IS NOW >511 


E9B3 






E9B3 


115 


CHKLO EQU 






E9B3 


C9 


19 




116 


CMP 


#280-256+1 


281. .511 ? 


E9B5 


90 


05 


E9BC 


117 


BCC 


DRVSETUP 


=>N0, WE ARE OK 


E9B7 






E9B7 


118 


BADCOUNT EQU 






E9B7 


A9 


00 




119 


LDA 


#XBYTECNT 


ILLEGAL BYTECOUNT 


E9B9 


4C 


E9 


EA 


120 


JMP 


EXIT 


SORRY . . . 
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E9BC 








122 


* 












E9BC 








123 


* SELECT 


THE APPROPRIATE DRIVE 






E9BC 








124 


* 












E9BC 






E9BC 


125 


DRVSETUP 


EQU 










E9BC 


A5 


CO 




126 




LDA 


D . COMMAND 






SAVE THIS COMMAND 


E9BE 


8D 


El 


ED 


127 




STA 


PREVCMD 






AND DEVICE FOR 


E9C1 


A5 


CI 




128 




LDA 


D.UNITNUM 






SUBSEQUENT 


E9C3 


8D 


FO 


ED 


129 




STA 


PREVUNIT 






' REPEAT ' CALL 


E9C5 


AD 


DF 


FF 


130 




LDA 


E.REG 






DOWNSHIFT TO 


E9C9 


09 


80 




131 




ORA 


#$80 






IMHZ FOR REMAINDER 


E9CB 


8D 


DF 


FF 


132 




STA 


E.REG 






OF DRIVER EXECUTION 


E9CE 


20 


ID 


EC 


133 




JSR 


UNITSEL 






SELECT S START IT 


E9D1 








134 














E9D1 








135 


♦ SEE IF 


THE MOTOR STARTED. 


IF 


NOT 




E9D1 








136 


* THEN 


IT'S EITHER DISKSWITCH 


OR NODRIVE. 


E9D1 








137 














E9D1 


20 


DC 


EC 


138 




JSR 


CHKDRV 






MOTOR RUNNING? 


E9D4 


DO 


23 


E9F9 


139 




BNE 


DOIO 






=>YES, GREAT. 


E9D6 








140 


* 












E9D6 








141 


* IF WE 


GET A MOTOR WHEN WE 


MOVE 




E9D6 








142 


* THE HEAD, THEN IT'S DISKSWITCH. 




E9D6 








143 


* 












E9D6 


A6 


CI 




144 




LDX 


D.UNITNUM 






FORCE HEAD MOTION 


E9D8 


EE 


00 


EE 


145 




INC 


DRVTRACK, X 






EVEN IF ALREADY ON ZERO 


E9DB 


EE 


00 


EE 


146 




INC 


DRVTRACK,X 






GIVE HIM A FIRM KNOCKER 


E9DE 


A9 


00 




147 




LDA 


#0 






SEEK TO TRACK ZERO 


E9E0 


20 


60 


ED 


148 




JSR 


MYSEEK 






FOR BFM DIR READ 


E9E3 


20 


DC 


EC 


149 




JSR 


CHKDRV 






RUNNING NOW? 


E9E6 


DO 


OC 


E9F4 


150 




BNE 


DSWITCH 






=>YES, A SWITCHEROO 


E9E8 


A9 


00 




151 




LDA 


#0 








E9EA 


A4 


CI 




152 




LDY 


D.UNITNUM 






FORGET THAT THIS 


E9EC 


99 


F8 


ED 


153 




STA 


DRIVESEL, Y 






DRIVE WAS 'SELECTED' 


E9EF 


A9 


00 




154 




LDA 


#XNODRIVE 






NO, A MISSING DRIVE! 


E9F1 


4C 


E9 


EA 


155 




JMP 


EXIT 








E9F4 








156 


* 












E9F4 






E9F4 


157 


DSWITCH 


EQU 










E9F4 


A9 


00 




158 




LDA 


#XDISKSW 






USER PULLED A FAST ONE 


E9F6 


4C 


E9 


EA 


159 




JMP 


EXIT 






BUT HE CAN'T FOOL US. 
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E9F9 








161 


* PREPARE 


TO DO 


THE OPERATION: 




E9F9 








162 


* 








E9F9 






E9F9 


163 


DOIO 


EQU 






E9F9 


A5 


02 




164 




LDA 


D . BUFL 


COPY USER BUFFER 


E9FB 


85 


D2 




165 




STA 


BUFTEMP 


AND BLOCK NUMBER 


E9FD 


A5 


03 




166 




LDA 


D.BUFH 


TO OUR WORKSPACE 


E9FF 


85 


D3 




167 




STA 


BUFTEMP+1 




EAOl 


AD 


03 


14 


168 




LDA 


$1400+D.BUFH 




EA04 


8D 


D3 


14 


169 




STA 


$1400+BUFTEMP+1 




EA07 


A5 


05 




170 




LDA 


D. BLOCK 




EA0 9 


85 


DO 




171 




STA 


BLKTEMP 




EAOB 


A5 


07 




172 




LDA 


D.BLOCK+1 




EAOD 


85 


Dl 




173 




STA 


BLKTEMP+1 




EAOF 








174 










EAOF 








175 


* IF CALLER GAVE 


US A COUNT OF ZERO BYTES, 


EAOF 








176 


* THEN WE 


'RE ALL DONE! 




EAOF 








177 


* 








EAOF 


A5 


OO 




178 




LDA 


D . COMMAND 


IS IT STATUS? 


EAll 


C9 


02 




179 




OMP 


#2 


IF SO, THEN BYTEOOUNT 


EA13 


DO 


03 


EA18 


180 




BNE 


D0I02 


IS MEANINGLESS 


EA15 


4C 


8B 


EA 


181 




JMP 


STATUS 




EA18 






EA18 


182 


D0I02 


EQU 






EA18 


A4 


D9 




183 




LDY 


BLKCOUNT 


BLKS=0? 


EAIA 


FO 


31 


EA4D 


184 




BEQ 


READOK 


=>YES, YOU GET GOOD RETURN 


EAIC 


C9 


00 




185 




CMP 


#0 


READ COMMAND? 


EAIE 


FO 


03 


EA23 


186 




BEQ 


READREQ 


=>YES 


EA20 


40 


55 


EA 


187 




JMP 


WRITEREQ 
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EA23 








189 










EA23 








190 


* — READ 








EA23 








191 










EA23 






EA2 3 


192 


READREQ 


EQU 






EA23 


A9 


00 




193 




LDA 


#0 ; CLEAR COUNT OF 


EA25 


AO 


00 




194 




LDY 


#0 




EA27 


91 


C8 




195 




STA 


(D .BYTRD) , Y 


BYTES READ 


EA2 9 


C8 






196 




INY 






EA2A 


91 


C8 




197 




STA 


(D.BYTRD) , Y 




EA2C 






EA2C 


198 


READREQ2 


EQU 






EA2C 


20 


98 


ED 


199 




JSR 


BLK2SECT 


COMPUTE TRK/SECTOR THIS 


EA2F 








200 










EA2F 


20 


OE 


EE 


201 




JSR 


SECTORIO 


READ IT PLEASE 


EA32 


BO 


IE 


EA52 


202 




BCS 


READERR 


=>WE LOSE. 


EA34 


E6 


D5 




203 




INC 


SECTOR 


BUMP TO NEXT 


EA36 


E6 


D5 




204 




INC 


SECTOR 


LOGICAL SECTOR 


EA38 


E6 


9C 




205 




INC 


BUF+1 


BUMP SECTOR BUFFER 


EA3A 


20 


OE 


EB 


206 




JSR 


SECTORIO 


READ IT TOO 


EA3D 


BO 


13 


EA52 


207 




BCS 


READERR 


=>WE LOSE. 


EA3F 


AO 


01 




208 




LDY 


#1 




EA41 


Bl 


C8 




209 




LDA 


(D.BYTRD) , Y 


BUMP COUNT OF 


EA43 


18 






210 




CLC 






EA44 


69 


02 




211 




ADC 


#2 




EA4 6 


91 


C8 




212 




STA 


(D.BYTRD) , Y 


BYTES READ 


EA48 








213 










EA48 








214 


* MORE BLOCKS TO 


GO? 




EA48 








215 










EA48 


20 


DB 


ED 


216 




JSR 


MOREBLKS 


SETUP FOR NEXT BLOCK 


EA4B 


DO 


DF 


EA2C 


21-/ 




BNE 


READREQ2 


=>MORE TO READ . . . 


EA4D 






EA4D 


218 


READOK 


EQU 






EA4D 


A9 


00 




219 




LDA 


#0 ;GOOD RETURN 


EA4F 


4C 


E9 


EA 


220 




JMP 


EXIT 


TELL HAPPY USER 


EA52 








221 


* 








EA52 






EA52 


222 


READERR 


EQU 






EA52 


4C 


E9 


EA 


223 




JMP 


EXIT 


RETURN ERROR CODE 


EA55 








224 




CHN 


DISK3.WRT.SRC 
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EA55 








2 








EA55 








3 


* WRITE 






EA55 








4 








EA55 








5 








EA55 






EA55 


6 


WRITEREQ EQU 






EA55 


20 


98 


ED 


7 


JSR 


BLK2SECT 


/COMPUTE TRK/SECTOR THIS BLOCK 


EA58 


AD 


DP 


FF 


8 


LDA 


E . REG 


; SET 2 MHZ 


EA5B 


29 


7F 




9 


AND 


#$7F 




EA5D 


BD 


DF 


FF 


10 


STA 


E.REG 




EA60 


20 


C4 


F2 


11 


JSR 


PRENIB 


;PRENIBBLIZE FOR WRITE 


EA63 


20 


OE 


EB 


12 


JSR 


SECTORIO 


/WRITE IT OUT. . . 


EA66 


BO 


20 


EA88 


13 


BCS 


WRITERR 


; =>SOMETHING ' S WRONG 


EA68 








14 


* 






EA68 


E6 


D5 




15 


INC 


SECTOR 


;BUMP TO NEXT 


EA6A 


E6 


D5 




16 


INC 


SECTOR 


; LOGICAL SECTOR 


EA6C 


E6 


9C 




17 


INC 


BUF+1 


;BUMP SECTOR BUFFER ADDRESS 


EA6E 


AD 


DF 


FF 


18 


LDA 


E.REG 


; SET 2 MHZ 


EA71 


29 


7F 




19 


AND 


#$7F 




EA73 


8D 


DF 


FF 


20 


STA 


E.REG 




EA7 5 


20 


C4 


F2 


21 


JSR 


PRENIB 


;PRENIBBLIZE FOR WRITE 


EA7 9 


20 


OE 


EB 


22 


JSR 


SECTORIO 


/WRITE IT OUT 


EA7C 


BO 


OA 


EA88 


23 


BCS 


WRITERR 


; =>SOMETHING ' S WRONG 


EA7E 








24 


* 






EA7E 








25 


* MORE BYTES TO 


DO? 




EA7E 








26 


* 






EA7E 


20 


DB 


ED 


27 


JSR 


MOREBLKS 


; SETUP FOR NEXT 


EA81 


DO 


D2 


EA55 


28 


BNE 


WRITEREQ 


;=>MORE TO DO 


EA83 


A9 


00 




29 


LDA 


#0 


;GOOD RETURN 


EA85 


4C 


E9 


EA 


30 


JMP 


EXIT 




EA88 








31 


* 






EA88 






EA88 


32 


WRITERR EQU 






EA88 


4C 


E9 


EA 


33 


JMP 


EXIT 


/RETURN ERROR CODE 
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AUGUST-2006 











35 


















3 6 




O i Ai U b 






EA B 








































38 










EA8B 






EASE 


3 9 




EQU 








A2 


50 




4 






i ^ fin 


■ TinMMV QT CiT 

f uu lyiL'i 1 o J-i w i 


EA8D 




8D 


CO 






LDA 






EA90 


BD 


8E 


CO 


42 




LDA 


Q7L X 




EA93 


OA 






43 




ASL 


A 


/PRESERVE IT IN CARRY 


EA94 


BD 


8C 


CO 


44 




LDA 


Q5L, X 


;BACK TO READ MODE 


EA97 


A9 


00 




45 




LDA 


#0 


/NOW MOVE BIT TO 


EA99 


2A 






46 




ROL 


A 


; PROPER POSITION 


EA9A 


2A 






47 




ROL 


A 


; (?02) 


EA9B 


AO 


00 




48 




LDY 


#0 




EA9D 


91 


C3 




49 




STA 


(D.STATBUF) , Y 


/RETURN IT 


EA9F 


A9 


00 




50 




LDA 


#0 


;GOOD RETURN 


EAAl 


4C 


E9 


EA 


51 




JMP 


EXIT 


; DONE 
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EAA4 








53 










EAA4 








54 


* INIT 






EAA4 








55 










EAA4 








56 










EAA4 






EAA4 


57 


INIT 


EQU 






EAA4 


AD 


F4 


ED 


58 




LDA 


INITFLAG 


INIT 'ED YET? 


EAA7 


30 


3B 


EAE4 


59 




BMI 


GOODINIT 


=>YES, DONE 


EAA9 








60 


* 








EAA9 


A9 


60 




61 




LDA 


#$60 


SETUP SLOT FOR 


EAAB 


85 


81 




62 




STA 


IBSLOT 


CORE ROUTINES 


EAAD 


A9 


FF 




63 




LDA 


#$FF 


PREVENT SECOND 


EAAF 


8D 


F4 


ED 


64 




STA 


INITFLAG 


INIT 


EAB2 


A9 


00 




65 




LDA 


#0 


CLEAR STUFF OUT 


EAB4 


8D 


FO 


ED 


66 




STA 


PREVUNIT 


SOSBOOT JUST USED .Dl 


EAB7 


AO 


04 




67 




LDY 


#4 




EAB9 






EAB9 


68 


CLRDRVS 


EQU 






EAB9 


A9 


00 




69 




LDA 


#0 




EABB 


99 


F7 


ED 


70 




STA 


DRIVESEL-1, Y 


NOBODY SELECTED 


EABE 


99 


FB 


ED 


71 




STA 


UPTIME-1, Y 


ALL OFF 


EACl 


99 


FF 


ED 


72 




STA 


DRVTRACK-1, Y 




EAC4 


88 






73 




DEY 






EAC5 


DO 


F2 


EAB9 


74 




BNE 


CLRDRVS 




EAC7 






0001 


75 




DO 


1-TEST 


ONLY IF NOT TESTING 


EAC7 








76 










EAC7 








77 


* SET UP 


.Dl SINCE LOADER'S USING IT: 


EAC7 








78 


* 








EAC7 


AD 


DF 


FF 


79 




LDA 


E.REG 


SET IMHZ FOR THE 


EACA 


09 


80 




80 




ORA 


#S80 


STATEMACHINE I/O 


EACC 


8D 


DF 


FF 


81 




STA 


E.REG 




EACF 


20 


DC 


EC 


82 




JSR 


CHKDRV 


IS .Dl MOTOR SPINNING? 


EAD2 


FO 


05 


EAD9 


83 




BEQ 


INIT2 


=>N0, MOTOR'S OFF 


EAD4 


A9 


08 




84 




LDA 


#T200MS 


UPTIME GOOD FOR READS 


EAD6 


8D 


EC 


ED 


85 




STA 


UPTIME+0 




EAD9 






EAD9 


85 


INIT2 


EQU 






EAD9 


A9 


01 




87 




LDA 


#1 




EADB 


8D 


F8 


ED 


88 




STA 


DRIVESEL+0 


.Dl IS THE CURRENT DRIVE 


EADE 


AD 


8C 


03 


89 




LDA 


$0300+CURTRK 


RETRIEVE CURRENT TRACK 


EAEl 


8D 


00 


EE 


90 




STA 


DRVTRACK+0 


REMEMBER IT 


EAE4 








91 




FIN 






EAE4 








92 


* 








EAE4 








93 


* SET UP 


JMP TABLE FOR CORRECT ROM 




EAE4 








94 


* 








EAE4 






0000 


95 




DO 


REVOROM 


ONLY IF SUPPORTING IT! 


S 








95 




LDA 


$F1B9 


LOOK FOR START OF RDADR 


S 








97 




CMP 


#$A0 


IS IT RDADR (REVl) ? 


S 








98 




BEQ 


INITREVl 


=>YES 


S 








99 




CMP 


#S60 


IS IT END OF READ (REVO)? 


S 








100 




BNE 


INITERR 


=>NEITHER! 


S 








101 




LDY 


#0 


REV=0 


S 








102 




BEQ 


INITVECT 


(ALWAYS TAKEN) 


S 








103 


INITREVl 


EQU 






S 








104 




LDY 


#VSIZE 




S 








105 


INITVECT 


EQU 






S 








106 




STY 


ROMREV 


SET ROM REVISION INDICATOR 


S 








107 




LDX 


#VSIZE 




S 








108 


MOVEVECT 


EQU 
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SOS 


1.1 DISK 


/// DRIVER 


AUGUST-2006 1 


S 




109 




LDA 


REVO , Y 


;GET A BYTE 


S 




110 




STA 


JMPTAB, Y 


;MOVE IT 


S 




111 




INY 






S 




112 




DEX 






S 




113 




BNE 


MOVEVECT 




EAE4 : 




114 




FIN 






EAE4 : 


EAE 4 


115 


GOODINIT 


EQU 






EAE4:A9 00 




116 




LDA 


#0 


;RETCODE=GOOD, IF 


EAE 5:18 




117 




CLC 




;SAY 'GOOD INIT' 


EAE7:90 00 


EAE 9 


118 




BCC 


EXIT 


; (ALWAYS TAKEN) 


EAE9 : 


0000 


119 




DO 


REVOROM 




S 




120 


INITERR 


EQU 






S 




121 




SEC 


; SAY 


'BAD INIT' 


s 




122 




FALL 


THRU 


TO EXIT 


EAE 9: 




123 




FIN 
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EAE9 








125 










EAE9 








126 


* 


— EXIT PATH - 






EAE9 








127 










EAE9 








128 










EAE9 






EAE9 


129 


EXIT EQU 






EAE9 


48 






130 




PHA 




SAVE RETURN CODE 


EAEA 








131 










EAEA 








132 


* 


UPDATE UPTIME 


BY 50 MS (3 SECTOR 


-TIMES) 


EAEA 








133 


* 


TO ACCOUNT FOR READ/WRITE TIME: 




EAEA 








134 


* 








EAEA 


A5 


CO 




135 




LDA 


D . COMMAND 


GET COMMAND 


EAEC 


C9 


02 




136 




CMP 


#2 


SENSE OR INIT? 


EAEE 


BO 


05 


EAF5 


137 




BCS 


EXIT2 


=>YES, NO TIME USED UP 


EAFO 


A9 


02 




138 




LDA 


#2 


TIME=50 MS (2 UNITS) 


EAF2 


20 


OA 


ED 


139 




JSR 


ADDTIME 


BUMP UPTIME (S) 


EAF5 








140 










EAF5 








141 


* 


RESTORE CALLER 


ENVIRONMENT: 




EAF5 








142 


* 








EAF5 






EAF5 


143 


EXIT2 EQU 






EAF5 


AD 


DF 


FF 


144 




LDA 


E.REG 


GET CURRENT STATE 


EAF8 


2 9 


20 




145 




AND 


#$20 


OF THE SCREEN 


EAFA 


CD 


F2 


ED 


146 




ORA 


ESAVE 


MERGE WITH CALLER STATE 


EAFD 


8D 


DF 


FF 


147 




STA 


E.REG 




EBOO 


20 


E8 


ED 


148 




JSR 


FIXIRQ 


RE-ENABLE IRQ IF OK 


EB03 


AD 


E8 


CO 


149 




LDA 


MOTOROFF 


START MOTOR-OFF TIMEOUT 


EB05 


68 






150 




PLA 




RESTORE RETURN CODE 


EB07 






0000 


151 




DO 


TEST 


IF TEST, NO SYSERR 


S 








152 




RTS 






EB07 








153 




ELSE 






EB07 


DO 


02 


EBOB 


154 




BNE 


GOERR 


=>ERROR RETURN VIA SYSERR 


EB09 


18 






155 




CLC 






EBOA 


60 






156 




RTS 




GOOD RETURN W/CARRY CLEAR 


EBOB 






EBOB 


157 


GOERR EQU 






EBOB 


20 


00 


00 


158 




JSR 


SYSERR 


RETURN VIA SYSERR 


EBOE 








159 




FIN 






EBOE 








160 




CHN 


DISK3.SI0.SRC 
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EBOE 








2 










EBOE 








3 


* NAME : SECTORIO 






EBOE 








4 


* FUNCTION: READ 


OR WRITE A SECTOR 




EBOE 








5 


* INPUT : IBSTRK, IBSECT, MONTIME, 


EBOE 








6 


* RETURNS : CARRY CLEAR IF OK (AC 


=00) 


EBOE 








7 


* : CARRY SET IF ERROR 


(AC=ERRCODE) 


EBOE 








8 


* : SEEKWAIT ALL SETUP 






EBOE 








9 


* DESTROYS: ALL 


REGISTERS 






EBOE 








10 










EBOE 








11 


* 








EBOE 






EBOE 


12 


SECTORIO EQU 








EBOE 


A9 


01 




13 


LDA 


#R.RECAL 




SETUP THE 


EBIO 








14 


* R.RECAL MUST BE NON-ZERO! ! (SEE 


BELOW) 


EBIO 


85 


D8 




15 


STA 


RECALCNT 




RECAL TRIES 


EB12 


EA 






16 


NOP 






PAD ONE BYTE 


EB13 


BD 


00 


00 


17 


STA 


E1908 




A-REG MUST BE NON-ZERO ! ! ! 


EB16 








18 


* E1908 = NON-ZERO LOCKOUT MOUSE 






EB16 








19 


* 








EB16 


A4 


CI 




20 


LDY 


D.UNITNUM 




ARE WE ON-TRACK? 


EB18 


A5 


D4 




21 


LDA 


TRACK 






EBIA 


D9 


00 


EE 


22 


CMP 


DRVTRACK, Y 






EBID 


FO 


IB 


EB3A 


23 


BEQ 


SOUGHT 




=>IF SO, FORGET SEEK & DELAY 


EBIF 








24 


* 








EBIF 








25 


* WAIT BEFORE STEPPING: 






EBIF 








26 


* 








EBIF 


A5 


DA 




27 


LDA 


SEEKWAIT 




SEEK DELAY NEEDED? 


EB21 


FO 


12 


EB35 


28 


BEQ 


GOSEEK 




=>NAW. . . 


EB23 


A9 


00 




29 


LDA 


#0 






EB25 


85 


DA 




30 


STA 


SEEKWAIT 




CLEAR THE FLAG 


EB27 


A9 


04 




31 


LDA 


#4 




ADD SEEKDELAY TO 


EB2 9 


20 


OA 


ED 


32 


JSR 


ADDTIME 




THE TOTAL UPTIME (S) 


EB2C 


A8 






33 


TAY 






4*25 MS DELAY 


EB2D 






EB2D 


34 


SEEKDEL EQU 








EB2D 


A9 


00 




35 


LDA 


#0 






EB2F 


20 


56 


F4 


36 


JSR 


MSWAIT 






EB32 


88 






37 


DEY 








EB33 


DO 


F8 


EB2D 


38 


BNE 


SEEKDEL 






EB35 








39 










EB35 








40 


* ISSUE THE SEEK 








EB35 








41 










EB35 






EB35 


42 


GOSEEK EQU 








EB35 


A5 


D4 




43 


LDA 


TRACK 




GET DESTINATION TRACK 


EB37 


20 


60 


ED 


44 


JSR 


MYSEEK 




=>..AND YOU SHALL FIND... 


EB3A 








45 


* 








EB3A 






EB3A 


46 


SOUGHT EQU 








EB3A 


A5 


DB 




47 


LDA 


IRQMASK 




SET IRQ MASK FOR 


EB3C 


85 


8B 




48 


STA 


IMASK 




CORE ROUTINES 


EB3E 


A9 


06 




49 


LDA 


#R. IRQ 




SETUP IRQ RETRIES 


EB40 


85 


8F 




50 


STA 


INTRTRY 






EB42 


A9 


04 




51 


LDA 


#R. lOERR 




AND ERROR RETRIES 


EB44 


85 


D7 




52 


STA 


RETRYCNT 






EB4 6 








53 


* 








EB46 








54 


* DELAY FOR ANY 


REMAINING MOTOR-UP 


TIME: 


EB46 








55 










EB4 6 






EB4 6 


56 


MDELAY EQU 








EB4 6 


A5 


9A 




57 


LDA 


MONTIMEH 




ANY TIME REMAINING? 
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EB48 


10 


OD 


EB57 


58 


BPL 


FINDIT 


=>N0, WE'RE UP TO SPEED. 


EB4A 


A9 


01 




59 


LDA 


#1 


YES, SO BUMP A SLICE OF 


EB4C 


20 


OA 


ED 


60 


JSR 


ADDTIME 


UPTIME WHILE WE WAIT 


EB4F 


A9 


00 




61 


LDA 


#0 




EB51 


20 


56 


F4 


62 


JSR 


MSWAIT 




EB54 


4C 


46 


EB 


63 


JMP 


MDELAY 


=>G0 TILL ENOUGH 


EB57 








64 


* 






EB57 








65 


* FIND THE DESIRED SECTOR: 




EB57 








66 


* 






EB57 








67 


* NOTE: FINDSECT 


RETURNS WITH 




EB57 








68 


* IRQ INHIBITED! 




EB57 








69 


* 






EB57 






EB57 


70 


FINDIT EQU 






EB57 


08 






71 


PHP 




INHIBIT IRQ WHILE 


EB58 


78 






72 


SEI 




MESSING WITH VBL FLAGS 


EB5 9 


AD 


EE 


FF 


73 


LDA 


E . lER 


DISABLE VBL IRQ 


EB5C 


29 


18 




74 


AND 


#$18 


DURING SECTOR I/O 


EB5E 


8D 


EE 


FF 


75 


STA 


E.IER 




EB61 


09 


80 




75 


ORA 


#$80 


FOR ' SET ' LATER 


EB63 


8D 


F3 


ED 


77 


STA 


VBLSAVE 




EB66 


28 






78 


PLP 




RESTORE IRQ STATUS 


EB67 


20 


D5 


EB 


79 


JSR 


FINDSECT 


FIND ME PLEASE 


EB6A 


BO 


3A 


EBA6 


80 


BCS 


TRYRECAL 


=>N0? RECAL OR GIVE UP! 


EB6C 


A2 


60 




81 


LDX 


#$60 


SET UP SLOT FOR CORE RTNS 


EB5E 


A5 


CO 




82 


LDA 


D . COMMAND 


WHAT'S YOUR PLEASURE? 


EB70 


DO 


IE 


EB90 


83 


BNE 


SIOWRITE 


=>WRITE 


EB72 








84 


* 






EB72 








85 




















EB72 








86 


* READ A SECTOR: 






EB72 








87 


* 






EB72 


20 


48 


Fl 


88 


JSR 


READ 


READ THAT SECTOR 


EB75 


20 


E8 


ED 


89 


JSR 


FIXIRQ 


ENABLE IRQ IF OK 


EB78 


AD 


F3 


ED 


90 


LDA 


VBLSAVE 


ALLOW VBL DURING 


EB7B 


8D 


EE 


FF 


91 


STA 


E . lER 


POSTNIB 


EB7E 


BO 


20 


EBAO 


92 


BCS 


BAD 10 


=>I/0 ERR OR IRQ 


EB80 


AD 


DF 


FF 


93 


LDA 


E.REG 


SET 2MHZ FOR POSTNIB 


EB83 


29 


7F 




94 


AND 


#$7F 




EB85 


8D 


DF 


FF 


95 


STA 


E.REG 




EB88 


20 


OF 


F3 


96 


JSR 


POSTNIB 


POSTNIB/ CHECKSUM 


EB8B 


BO 


15 


EBA2 


97 


BCS 


lORETRY 


^>I/0 ERR:BAD CHKSUM 


EB8D 


4C 


CC 


EB 


98 


JMP 


SIOGOOD 


=>GOOD READ 


EB90 








99 


* 






EB90 








100 




















EB90 








101 


* WRITE A SECTOR 






EB90 








102 


* 






EB90 






EB90 


103 


SIOWRITE EQU 






EB90 


20 


16 


F2 


104 


JSR 


WRITE 


WRITE THE DATA 


EB93 


20 


E8 


ED 


105 


JSR 


FIXIRQ 


RE-ENABLE IRQ IF OK 


EB96 


AD 


F3 


ED 


106 


LDA 


VBLSAVE 


RESTORE 


EB99 


8D 


EE 


FF 


107 


STA 


E . lER 


VBL IRQ 


EB9C 


90 


2E 


EBCC 


108 


BCC 


SIOGOOD 


=>GOOD WRITE 


EB9E 


50 


27 


EBC7 


109 


BVC 


SIOWPROT 


=>WRITE PROTECTED 


EBAO 








110 








EBAO 








111 




















EBAO 








112 


* IT DIDN'T GO WELL FOR US: 




EBAO 








113 


* 
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EBAO 






EBAO 


114 


BAD 10 


EQU 






EBAO 






0001 


115 




DO 


1-REVOROM 


FOR REVl 


EBAO 


70 


B5 


EB57 


116 




BVS 


FINDIT 


=>IRQ. JUST RETRY IT. 


EBA2 








117 




ELSE 


; FOR REVO 


s 








118 










s 








119 


* 


THE 


REVl ROM TAKES CARE OF THE 


s 








120 






IRQ RETRY COUNT, BUT REVO DOESN'T 


s 








121 


* 








s 








122 




BVC 


lORETRY 


=>I/0 ERROR. RETRY IT 


s 








123 




LDA 


ROMREV 


WHICH ROM? 


s 








124 




BNE 


FINDIT 


=>REV1 . HE DOES IT. 


s 








125 




LDA 


INTRTRY 


REVO. OUT OF RETRIES? 


s 








126 




BPL 


BADI02 


=>N0 . 


s 








127 




STA 


IMASK 


SET HI BIT FOR IRQ MASK 


s 








128 


BADI02 


EQU 






s 








129 




DEC 


INTRTRY 


ONE LESS RETRY 


s 








130 




JMP 


FINDIT 


=>RETRY AFTER IRQ 


EBA2 








131 




FIN 






EBA2 








132 


* 








EBA2 








133 


* RETRY AFTER AN 


I/O ERROR: 




EBA2 








134 










EBA2 






EBA2 


135 


lORETRY 


EQU 






EBA2 


C6 


D7 




136 




DEC 


RETRYCNT 


ANY RETRIES LEFT? 


EBA4 


DO 


Bl 


EB57 


137 




BNE 


FINDIT 


=>YEAH, RETRY AFTER ERROR 


EBA6 








138 


* 








EBA5 








139 


* RETRIES 


EXHAUSTED . RECALIBRATE : 




EBA6 








140 


* 








EBA6 






EBA6 


141 


TRYRECAL 


EQU 






EBA6 


AD 


F3 


ED 


142 




LDA 


VBLSAVE 


ALLOW VBL IF RECAL 


EBA9 


8D 


EE 


FF 


143 




STA 


E . lER 


OR UNRECOVERABLE ERROR 


EBAC 


C6 


D8 




144 




DEC 


RECALCNT 


HAVE WE RECALIBRATED YET? 


EBAE 


30 


12 


EBC2 


145 




BMI 


SIOERR 


^>YUP . WE ' RE DEAD . 


EBBO 


20 


26 


ED 


146 




JSR 


RECAL 


NO, TRY OUR LUCK 


EBBS 


A4 


CI 




147 




LDY 


D.UNITNUM 


ARE WE ON-TRACK? 


EBBS 


A5 


D4 




148 




LDA 


TRACK 




EBB7 


D9 


00 


EE 


149 




CMP 


DRVTRACK, Y 




EBBA 


DO 


03 


EBBF 


150 




BNE 


NOTSAME 




EBBC 


4C 


3A 


EB 


151 




JMP 


SOUGHT 


=>IF SO, FORGET RESEEK 


EBBF 






EBBF 


152 


NOTSAME 


EQU 






EBBF 


4C 


35 


EB 


153 




JMP 


GOSEEK 


TRY AGAIN ON TARGET TRACK 


EBC2 








154 










EBC2 








155 










EBC2 






EBC2 


156 


SIOERR 


EQU 






EBC2 


A9 


00 




157 




LDA 


#XIOERROR 


RETURN CODE 


EBC4 


38 






158 




SEC 




INDICATE HARD ERROR 


EBC5 


BO 


08 


EBCF 


159 




BCS 


SIORET 




EBC7 






EBC7 


1 60 


SIOWPROT 


EQU 






EBC7 


A9 


00 




161 




LDA 


#XNOWRITE 


RETURN CODE 


EBC9 


38 






162 




SEC 




INDICATE HARD ERROR 


EBCA 


BO 


03 


EBCF 


163 




BCS 


SIORET 




EBCC 






EBCC 


164 


SIOGOOD 


EQU 






EBCC 


A9 


00 




165 




LDA 


#0 




EBCE 


18 






166 




CLC 




INDICATE GOOD COMPLETION 


EBCF 


A2 


00 




167 


SIORET 


LDX 


#0 


SAY OK TO MOUSE 


EBDl 


BE 


00 


00 


168 




SIX 


E1908 


WITH THIS GLOBAL $1908 


EBD4 


60 






169 




RTS 







Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 176 of 456 



05 DISK3 . SIO. SRC 



SOS 1.1 DISK /// DRIVER AUGUST-2006 PAGE 22 



EBD5 








171 










EBD5 








172 


* NAME 


FINDSECT 




EBD5 








173 


* FUNCTION 


LOCATE A DESIRED SECTOR 


EBD5 








174 


* INPUT 


IBTRK, IBSECT SETUP 




EBD5 








175 


* RETURNS 


CARRY 


CLEAR IF OK, 




EBD5 








176 




CARRY 


SET IF ERROR. 




EBD5 








177 


* DESTROYS 


ALL REGISTERS S 'TEMP' 




EBD5 








178 


* NOTE 


RETURNS WITH IRQ DISABLED IF NO ERROR! 


EBD5 








179 










EBD5 








180 


* 








EBD5 






EBD5 


181 


FINDSECT 


EQU 






EBD5 


A9 


30 




182 




LDA 


#R.FIND*16 


SETUP NUMBER OF REVS 


EBD7 


85 


D6 




183 




STA 


RETRYADR 


ALLOWED TO FIND SECTOR 


EBD9 


4 6 


DC 




184 




LSR 


TEMP 


COMPUTE LATENCY FIRST TIME 


EBDB 






EBDB 


185 


FINDSEC2 


EQU 






EBDB 


A2 


60 




186 




LDX 


#$60 


FAKE SLOT FOR CORE ROUTINES 


EBDD 


20 


B9 


Fl 


187 




JSR 


RDADR 


GET NEXT ADDRESS FIELD 


EBEO 


BO 


ID 


EBFF 


188 




BCS 


RDADERR 


=>UGH! AN ERROR! 


EBE2 








189 


* 








EBE2 








190 


* MAKE SURE WE'RE 


ON THE CORRECT TRACK: 


EBE2 








191 










EBE2 


A5 


D4 




192 




LDA 


TRACK 


IS IT 


EBE4 


C5 


99 




1 93 




CMP 


CSSTV+2 


CORRECT TRACK? 


EBE6 


DO 


2C 


EC14 


1 94 




BNE 


FINDERR 


=>N0?!? IT'S USELESS! 


EBE8 


A5 


D5 




195 




LDA 


SECTOR 


IS IT 


EBEA 


C5 


98 




196 




CMP 


CSSTV+1 


DESIRED SECTOR? 


EBEC 


FO 


20 


ECOE 


197 




BEQ 


FINDGOOD 


=>YEAH. GOT IT! 


EBEE 








1 98 










EBEE 








199 


* COMPUTE LATENCY 


. EACH TWO-SECTOR 




EBEE 








200 


* DISTANCE IS 25 


MS OF UPTIME. 




EBEE 








201 










EBEE 


A5 


DC 




202 




LDA 


TEMP 


LATENCY ALREADY COMPUTED? 


EBFO 


30 


OD 


EBFF 


203 




BMI 


RDADERR 


=>YES. 


EBF2 


A5 


D5 




204 




LDA 


SECTOR 


HOW FAR AWAY IS OUR 


EBF4 


38 






205 




SEC 




DESIRED SECTOR? 


EBF5 


66 


DC 




206 




ROR 


TEMP 


PREVENT RECOMPUTATION 


EBF7 


E5 


98 




207 




SBC 


CSSTV+1 




EBF9 


2 9 


OF 




208 




AND 


#$0F 




EBFB 


4A 






209 




LSR 


A 


EACH 2-SECTORS IS 25 MS 


EBFC 


20 


OA 


ED 


210 




JSR 


ADDTIME 




EBFF 








211 










EBFF 








212 


* KEEP LOOKING TILL WE FIND IT: 




EBFF 








213 


* 








EBFF 






EBFF 


214 


RDADERR 


EQU 






EBFF 


20 


E8 


ED 


215 




JSR 


FIXIRQ 


ENABLE IRQ IF APPROPRIATE 


EC02 


C6 


D6 




216 




DEC 


RETRYADR 


ANY RETRIES LEFT? 


EC04 


FO 


OE 


EC14 


217 




BEQ 


FINDERR 


=>N0, WE CAN'T FIND IT. 


EC06 








218 










EC06 








219 


* COMPENSATE FOR 


A BUG IN RDADR: IF WE TRY 


EC06 








220 


* TO CALL 


RDADR 


AGAIN BEFORE THE DATA MARK 


EC05 








221 


* GOES BY 


THEN 


RDADR WILL ACCIDENTALLY CALL 


EC06 








222 


* THAT AN 


ERROR. 


WE CAN AVOID THIS 'FAKE' 


EC06 








223 


* ERROR BY DELAYING PAST THE DATA 


MARK. 


EC06 


AO 


C8 




224 




LDY 


#200 


1 MS IS PLENTY 


ECOB 






EC08 


225 


ADRDELAY 


EQU 






EC08 


88 






226 




DEY 
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EC09 


DO 


FD 


EC08 


227 




BNE 


ADRDELAY 




ECOB 


4C 


DB 


EB 


228 




JMP 


FINDSEC2 


=>NOW TRY LOOKING AGAIN 


ECOE 








229 










ECOE 








230 










ECOE 






ECOE 


231 


FIND GOOD 


EQU 






ECOE 


A9 


00 




232 




LDA 


to 


CLEAR VOLNUM OUT OF 


EClO 


85 


9A 




233 




STA 


MONTIMEH 


MOTOR! IME ! 


EC12 


18 






234 




CLC 




INDICATE NO ERROR 


EC13 


60 






235 




RTS 






EC14 








236 


* 








EC14 






EC14 


237 


FINDERR 


EQU 






EC14 


20 


E8 


ED 


238 




JSR 


FIXIRQ 


ENABLE IRQ IF APPROPRIATE 


EC17 


A9 


00 




239 




LDA 


#0 


CLEAR VOLNUM OUT OF 


EC19 


85 


9A 




240 




STA 


MONTIMEH 


MOTORTIME ! 


ECIB 


38 






241 




SEC 




INDICATE THE ERROR 


EClC 


60 






242 




RTS 






ECID 








243 




CHN 


DISK3.USEL.SRC 
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ECID 








2 








ECID 








3 


* 


NAME : UNITSEL 




ECID 








4 




FUNCTION: SELECT S START A DRIVE 




ECID 








5 




SET UP MOTOR S SEEK DELAYS 


ECID 








6 




INPUT : NONE 




ECID 








7 




OUTPUT : MONTIME, SEEKTIME 




ECID 








8 




DESTROYS: ALL REGISTERS 




ECID 








9 








ECID 








10 


* 






ECID 






ECID 


11 


UNITSEL EQU * 




ECID 


A4 


CI 




12 




LDY D.UNITNUM 


GET DRIVENUM 


ECIF 


A9 


00 




13 




LDA #0 


ASSUME NO SEEKWAIT 


EC21 


85 


DA 




14 




STA SEEKWAIT 


WILL BE NEEDED 


EC23 


85 


99 




15 




STA MONTIMEL 


CLEAR MONTIME 


EC25 


85 


9A 




15 




STA MONTIMEH 




EC27 








17 


* 






EC27 








18 


* 


SEE IF MOTOR(S) STILL SPINNING: 




EC27 








19 


* 






EC27 


20 


DC 


EC 


20 




JSR CHKDRV 


MOTOR (S) POWERED UP? 


EC2A 


DO 


11 


EC3D 


21 




BNE SPINNING 


=>YES. WHO IS IT? 


EC2C 








22 








EC2C 








23 




NO MOTOR(S) SPINNING. DESELECT 




EC2C 








24 




ALL MOTORS AND START AFRESH: 




EC2C 








25 








EC2C 


AE 


D5 


CO 


26 




LDX MD . INT 


DESELECT ALL 


EC2F 


A9 


00 




27 




LDA #0 


SHOW INTERNAL AS 


EC31 


8D 


F8 


ED 


28 




STA DRIVESEL+O 


NOT SELECTED 


EC34 


8D 


FC 


ED 


29 




STA UPTIME+O 


INDICATE DRIVE IS FULLY STOPPED 


EC37 


20 


C8 


EC 


30 




JSR EXTDESEL 


DESELECT ALL EXTERNALS TOO 


EC3A 


4C 


6B 


EC 


31 




JMP SETTIME 


GO SETUP MOTOR DELAY 


EC3D 








32 
























EC3D 








33 




MOTOR (S) SPINNING: OURS? 




EC3D 








34 


* 






EC3D 






EC3D 


35 


SPINNING EQU * 




EC3D 


B9 


F8 


ED 


36 




LDA DRIVESEL,Y 


HAD WE BEEN SELECTED? 


EC40 


DO 


19 


EC5B 


37 




BNE GOFORIT 


=>YES, GO FOR IT RIGHT AWAY. 


EC42 








38 








EC42 








39 




WE AREN'T SPINNING. SHUTDOWN ANOTHER 


EC42 








40 




DRIVE, IF NECESSARY, TO GET GOING: 


EC42 








41 


* 






EC42 


CO 


00 




42 




CPY #0 


ARE WE THE INTERNAL DRIVE? 


EC44 


FO 


25 


EC6B 


43 




BEQ SETTIME 


=>YES, LEAVE EXT MOTOR ALONE 


EC45 








44 


* 






EC46 








45 


* 


WE'RE AN EXTERNAL DRIVE. STOP ALL EXTERNAL MOTORS 


EC46 








46 


* 


UNCONDITIONALLY, BUT LEAVE THE INTERNAL MOTOR ALONE. 


EC46 








47 


* 


IF WE *DID* HAVE TO STOP ANOTHER 


EXTERNAL, THEN 


EC46 








48 


* 


MAKE SURE WE SET THE CORRECT PRE-SEEK DELAY! 


EC46 








49 








EC46 


A9 


00 




50 




LDA #0 


SEE IF ANOTHER EXTERNAL 


EC48 


CD 


FB 


ED 


51 




ORA DRIVESEL+3 


HAD BEEN 


EC4B 


CD 


FA 


ED 


52 




ORA DRIVESEL+2 


SELECTED 


EC4E 


OD 


F9 


ED 


53 




ORA DRIVESEL+1 


BEFORE . . . 


EC51 


FO 


18 


EC6B 


54 




BEQ SETTIME 


=>N0, SEEK DELAY IS UNNECESSARY 


EC53 


E6 


DA 




55 




INC SEEKWAIT 


YES, DELAY BEFORE STEPPING 


EC55 


20 


C8 


EC 


56 




JSR EXTDESEL 


DESELECT ALL EXTERNALS 


EC58 


4C 


6B 


EC 


57 




JMP SETTIME 


=>G0 SETUP MOTOR DELAY 
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EC5B 








59 












EC5B 








60 


* OUR DRIVE IS 


SPINNING. GO 


FOR IT 




EC5B 








61 


* DEPENDING OF 


HOW LONG THE 


MOTOR'S BEEN ON, 


EC5B 








62 


* THIS COMMAND 


MAY REQUIRE 


A 


MOTOR DELAY. 


EC5B 








63 


* 










EC5B 






EC5B 


64 


GOFORIT EQU 










EC5B 


A6 


CO 




65 


LDX 


D . COMMAND 






GET CURRENT COMMAND 


EC5D 


BD 


F5 


ED 


66 


LDA 


MTIMES,X 






GET REQUIRED UPTIME FOR IT 


EC60 


38 






67 


SEC 










EC61 


F9 


FC 


ED 


68 


SBC 


UPTIME, Y 






DRIVE RUNNING LONG ENOUGH? 


EC64 


BO 


OF 


EC75 


69 


BCS 


SELECT 






=>N0, AC NOW HAS DELTA-T 


EC66 


A9 


00 




70 


LDA 


#0 






OTHERWISE, WAIT=0 


EC68 


4C 


75 


EC 


71 


JMP 


SELECT 






SET MONT IMF & SELECT DRIVE 


EC6B 








72 












EC6B 








73 












EC6B 








74 


* ALL MOTORS WERE OFF. CHOOSE 


THE 




EC6B 








75 


* APPROPRIATE 


MOTOR-ON TIME: 






EC6B 








75 


* 










EC6B 






EC6B 


77 


SETTIME EQU 










EC6B 


A9 


00 




78 


LDA 


#0 






INDICATE THAT 


EC6D 


99 


FC 


ED 


79 


STA 


UPTIME, Y 






THE DRIVE WAS OFF 


EC7 


A6 


CO 




80 


LDX 


D . COMMAND 






GET CURRENT COMMAND 


EC72 


BD 


F5 


ED 


81 


LDA 


MTIMES,X 






GET CORRECT DELAY TIME 


EC75 








82 
































EC75 








83 


* 










EC75 








84 


* SELECT THE DRIVE S START 


IT 






EC75 








85 


* 










EC75 






EC75 


85 


SELECT EQU 










EC75 


85 


9A 




87 


STA 


MONTIMEH 






NEGATE IT BECAUSE 


EC77 


A9 


00 




88 


LDA 


#0 






IT GETS INCREMENTED 


EC79 


38 






89 


SEC 








INSTEAD OF 


EC7A 


E5 


9A 




90 


SBC 


MONTIMEH 






DECREMENTED 


EC7C 


85 


9A 




91 


STA 


MONTIMEH 






STUFF MOTOR DELAY 


EC7E 


CO 


01 




92 


CPY 


#1 






ARE WE THE INTERNAL DRIVE? 


EC80 


BO 


09 


EC8B 


93 


BCS 


SELEXT 






=>N0, AN EXTERNAL 


EC82 


AD 


EA 


CO 


94 


LDA 


IS . INT 






I/O SELECT INTERNAL 


EC85 


AD 


D4 


CO 


95 


LDA 


MS . INT 






MOTOR SELECT INTERNAL 


EC88 


4C 


AC 


EC 


95 


JMP 


UNITRET 






=>ALL DONE ! 


EC8B 








97 












EC8B 






EC8B 


98 


SELEXT EQU 










EC8B 


AD 


EB 


CO 


99 


LDA 


IS .EXT 






I/O SELECT EXTERNAL 


EC8E 


CO 


02 




100 


CPY 


#2 






ARE WE 2, 3, OR 4 ? 


EC90 


BO 


09 


EC9B 


101 


BCS 


N0TD2 






=>DEFINITELY 3 OR 4 


EC92 


AD 


D2 


CO 


102 


LDA 


MD.EXTl 






MOTOR SELECT 


EC95 


AD 


Dl 


CO 


103 


LDA 


MS .EXT2 






ONLY .D2 


EC98 


4C 


AC 


EC 


104 


JMP 


UNITRET 






=>ALL DONE! 


EC9B 








105 












EC9B 






EC9B 


106 


N0TD2 EQU 










EC9B 


DO 


09 


ECA6 


107 


BNE 


ISD4 






=>DEFINITELY NOT 3 


EC9D 


AD 


D3 


CO 


108 


LDA 


MS .EXTl 






MOTOR SELECT 


ECAO 


AD 


DO 


CO 


109 


LDA 


MD.EXT2 






ONLY .D3 


ECA3 


4C 


AC 


EC 


110 


JMP 


UNITRET 






=>ALL DONE! 


ECA6 








111 












ECA6 






ECA6 


112 


ISD4 EQU 










ECA6 


AD 


D3 


CO 


113 


LDA 


MS .EXTl 






MOTOR SELECT 


ECA9 


AD 


Dl 


CO 


114 


LDA 


MS .EXT2 






ONLY .D4 
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EC AC 








115 


* 










EC AC 








116 


* 










EC AC 






ECAC 


117 


UNITRET EQU 








EC AC 


AD 


E9 


CO 


118 




LDA 


MOTORON 




PROVIDE MOTOR POWER 


ECAF 


A9 


01 




119 




LDA 


#1 




SAY WE ' VE SELECTED 


ECBl 


99 


F8 


ED 


120 




STA 


DRIVESEL 


Y 


THIS DRIVE 


ECB4 








121 












ECB4 








122 


* 


IF WE HAVE MOTORTIME TO 


BURN, 




ECB4 








123 


* 


THEN DELAY 50 


MS. THIS 


ENSURES 




ECB4 








124 


* 


A GOOD SOLID 


CHKDRV AFTER 




ECB4 








125 


* 


TURNING ON THE MOTOR. 






ECB4 








126 


* 










ECB4 


A5 


9A 




127 




LDA 


MONTIMEH 




ANY MOTORTIME? 


ECB6 


10 


OF 


ECC7 


128 




BPL 


UNITRTS 




=>N0, WE GO FOR IT. 


ECB8 


AO 


05 




129 




LDY 


#5 




5*10 MS 


ECBA 






ECBA 


130 


UNITDEL EQU 








ECBA 


A9 


64 




131 




LDA 


#100 




100*100US IS lOMS 


ECBC 


20 


56 


F4 


132 




JSR 


MSWAIT 






ECBF 


88 






133 




DEY 








ECCO 


DO 


F8 


ECBA 


134 




BNE 


UNITDEL 






ECC2 


A9 


02 




135 




LDA 


#2 




INCLUDE THE 50MS 


ECC4 


20 


OA 


ED 


136 




JSR 


ADDTIME 




IN MOTOR UPTIME (S) 


ECC7 






ECC7 


137 


UNITRTS EQU 








ECC7 


60 






138 




RTS 









ECC8 








140 










ECC8 








141 


* NAME 


EXTDESEL 




ECC8 








142 


* FUNCTION 


DESELECT ALL EXTERNAL 


DRIVE MOTORS 


ECC8 








143 


* INPUT 


NONE 






ECC8 








144 


* DESTROYS 


AC, X 






ECC8 








145 
























ECC8 








146 


* 








ECC8 






ECC8 


147 


EXTDESEL 


EQU 






ECC8 


AD 


D2 


CO 


148 




LDA 


MD.EXTl 


; DESELECT ALL EXTERNAL 


ECCB 


AD 


DO 


CO 


149 




LDA 


MD.EXT2 


; DRIVE MOTORS 


ECCE 


A2 


03 




150 




LDX 


#3 


;SHOW THAT THEY ARE 


ECDO 


A9 


00 




151 




LDA 


#0 


; ARE ALL DEAD DUCKS 


ECD2 


9D 


F8 


ED 


152 


EDSl 


STA 


DRIVESEL, X 




ECD5 


9D 


FC 


ED 


153 




STA 


UPTIME, X 


/DRIVE MOTORS ARE OFF 


ECD8 


CA 






154 




DEX 






ECD9 


DO 


F7 


ECD2 


155 




BNE 


EDSl 




ECDB 


60 






156 




RTS 






ECDC 








157 




CHN 


DISK3. SUBS. SRC 
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ECDC 








2 
















ECDC 








3 


* 


NAME 


CHKDRV 








ECDC 








4 


* 


FUNCTION 


CHECK IF MOTOR (S) RUNNING 




ECDC 








5 




INPUT 


NONE 








ECDC 








6 




RETURNS 


'BNE' IF RUNNING 






ECDC 








7 






'BEQ' IF NOT 








ECDC 








8 




DESTROYS 


AC, 


X 








ECDC 








9 
















ECDC 








10 


* 


NOTES: DUE TO 


A FLOATING 


PIN, THERE 




ECDC 








11 


* 


COULD BE A GLITCH WHICH 


CAUSES THE 




ECDC 








12 


* 


SHIFTER 


TO ' 


FLASH' ONTO 


THE BUS 






ECDC 








13 




INSTEAD 


OF ALWAYS BEING 


TRISTATED . 




ECDC 








14 




THIS COULD CAUSE CHKDRV 


TO THINK 




ECDC 








15 




THAT THE MOTOR IS SPINNING WHEN 


IT 




ECDC 








16 




IS NOT. 


THUS 


WE WILL SAMPLE THE 


SHIFTER 


ECDC 








17 




FOR 40 US AT 


6-US INTERVALS. IF 


AFTER 




ECDC 








18 


* 


THREE (3) CONSECUTIVE PASSES, ANY OF 




ECDC 








19 


* 


THE PASSES SEES A 'LOCKED' SHIFTER, 




ECDC 








20 


* 


THEN WE 


SAY 


THE DRIVE IS 


STOPPED. 




ECDC 








21 


* 














ECDC 








22 


* 














ECDC 






ECDC 


23 


CHKDRV 


EQU 










ECDC 


A2 


03 




24 






LDX 


#3 


/CHECK 


3HIFTER SEVERAL TIMES 


ECDE 






ECDE 


25 


CHKDl 


EQU 










ECDE 


AD 


EC 


CO 


26 






LDA 


Q6L+$60 




GET DATA 


ECEl 


CD 


EC 


CO 


27 






CMP 


Q6L+S60 




HAS IT 


CHANGED? 


ECE4 


DO 


IF 


ED05 


28 






BNE 


CHANGED 




=>YES 




ECE6 


CD 


EC 


CO 


29 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ECE9 


DO 


lA 


ED05 


30 






BNE 


CHANGED 




=>YES 




ECEB 


CD 


EC 


CO 


31 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ECEE 


DO 


15 


ED05 


32 






BNE 


CHANGED 




=>YES 




ECFO 


CD 


EC 


CO 


33 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ECF3 


DO 


10 


ED05 


34 






BNE 


CHANGED 




=>YES 




ECF5 


CD 


EC 


CO 


35 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ECF8 


DO 


OB 


ED05 


36 






BNE 


CHANGED 




=>YES 




ECFA 


CD 


EC 


CO 


37 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ECFD 


DO 


06 


ED05 


38 






BNE 


CHANGED 




=>YES 




ECFF 


CD 


EC 


CO 


39 






CMP 


Q6L+$60 




HAS IT 


CHANGED? 


ED02 


DO 


01 


ED05 


40 






BNE 


CHANGED 




=>YES 




ED04 


60 






41 






RTS 






IF EVER LOCKED, IT'S STOPPED 


ED05 








42 


* 














ED05 






ED05 


43 


CHANGED 


EQU 










ED05 


CA 






44 






DEX 










ED06 


DO 


D5 


ECDE 


45 






BNE 


CHKDl 




TRY SEVERAL TIMES 


ED08 


CA 






46 






DEX 






SET CC 


=BNE 


ED09 


50 






47 






RTS 






RETURN 


ZFLAG APPROPRIATELY 
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4 9 




















50 




ADDTIME 






ED A 








5 1 




ADD 


TO MOTOR UPTIME (S) 












5 2 




AC= 


NO. OF 25 MS 


INCREMENTS 


EDOA 








53 


JJ ill O 1 rvkj 1 o 


Y 
















54 




























EDOA 








55 


















EDOA 


5 6 


ADD i XFitj 


EQU 


J, 






EDOA 


4 8 






57 




PHA 






/PRESERVE AC 


EDDB 


AO 


4 




58 




LDY 


#4 




; TABLE INDEX/COUNT 








EDOD 


5 9 




EQU 








EDOD 


B9 


F7 




60 




LDA 


DRIVESEL-1, 


Y 


; IS IT SELECTED? 




FO 


OF 




61 




BEQ 


ADDS 




; =>NOPE 




6 8 






62 




PLA 










4 8 






63 




PHA 






/RECOVER DELTA-T 




1 8 






64 




CLC 








EDI 5 


7 9 


FB 


ED 


65 




ADC 


UPTIME-1, Y 




;ADD TO MOTOR UPTIME 




C9 


2 9 




6 6 




CMP 


#TlSEC+2 




; IS IT AT MAX TIME? 


EDIA 


90 


02 


EDIE 


67 




BCC 


ADD2A 




;=>N0, STORE NEW TIME 


EDIC 


A9 


28 




68 




LDA 


#T1SEC+1 




;YES, SET TO >1 SEC 


EDIE 






EDIE 


69 


ADD2A 


EQU 








EDIE 


99 


FB 


ED 


70 




STA 


UPTIME-1, Y 






ED21 






ED21 


71 


ADDS 


EQU 








ED21 


88 






72 




DEY 








ED22 


DO 


E9 


EDOD 


73 




BNE 


ADD2 




;=>D0 ALL 4 DRIVES 


ED24 








74 












ED24 


68 






75 




PLA 






/RESTORE AC 


ED25 


60 






76 




RTS 
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ED2 6 








78 












ED2 6 








79 


* NAME 


RECAL 






ED26 








80 


* FUNCTION 


RECALIBRATE DRIVE 


HEAD 




ED26 








81 


* INPUT 


NONE 








ED2 6 








82 


* DESTROYS 


ALL REGISTERS 






ED2 6 








83 


* NOTE 


A 'QUIET' RECALIBRATE IS DONE 


ED2 6 








84 


* 


USING TWO ITERATIONS. IF WE ARE 


ED2 6 








85 


* 


LOST, 


THEN SEEK 48 


-TRACKS 


ED2 5 








86 


* 


TOWARD TRACK ZERO. 


IF WE KNOW 


ED2 5 








87 


* 


WHAT 


TRACK WE'RE CURRENTLY 


ED2 6 








88 


* 


ON (4 


- 1/2 TRACK), 


THEN JUST 


ED2 6 








89 


* 


ADD A LITTLE EXTRA 


AND 


SEEK 


ED26 








90 


* 


TO TRACK ZERO. A 4 


8 -TRACK 


ED2 6 








91 


* 


SEEK 


WILL ALWAYS GET US BACK 


ED2 6 








92 


* 


ONTO 


THE MEDIA, EVEN IF WE 


ED2 6 








93 


* 


WERE 


"OFF THE CAM" 


. FROM THAT 


ED2 6 








94 


* 


POINI 


, THE 2ND SEEK GETS US 


ED2 6 








95 


* 


BACK 


TO TRACK ZERO 


QUIETLY. 


ED2 6 








96 












ED2 6 








97 


* 










ED2 6 






ED2 6 


98 


RECAL 


EQU 


^, 






ED2 6 


A9 


02 




99 




LDA 


#2 




TWO ITERATIONS, PLEASE 


ED28 






ED28 


100 


RECALl 


EQU 








ED28 


48 






101 




PHA 






SAVE LOOP COUNT 


ED2 9 


A2 


60 




102 




LDX 


#$60 




SETUP SLOT FOR CORE RTNS 


ED2B 


20 


B9 


Fl 


103 




JSR 


RDADR 




WHERE ARE WE? 


ED2E 


90 


OA 


ED3A 


104 




BCC 


RECAL2 




=>NOW WE KNOW 


ED30 


20 


B9 


Fl 


105 




JSR 


RDADR 




GIVE SECOND SHOT 


ED33 


90 


05 


ED3A 


106 




BCC 


RECAL2 




=>THAT GOT IT 


ED35 


A9 


30 




107 




LDA 


#48 




LOST? TRY 48-TRACK SEEK 


ED37 


4C 


3F 


ED 


108 




JMP 


RECAL3 






ED3A 






ED3A 


109 


RECAL 2 


EQU 








ED3A 


A5 


99 




110 




LDA 


CSSTV+2 




HERE'S WHERE WE ARE 


ED3C 


18 






111 




CLC 






ADD SOME SO WE GET A 


ED3D 


59 


03 




112 




ADC 


#3 




HARDER SEEK TO ZERO 


ED3F 






ED3F 


113 


RECAL 3 


EQU 








ED3F 


A4 


CI 




114 




LDY 


D.UNITNUM 




THIS IS NOW WHERE 


ED41 


99 


00 


EE 


115 




STA 


DRVTRACK, Y 




WE ARE 


ED44 


20 


E8 


ED 


116 




JSR 


FIXIRQ 




ENABLE IRQ IF OK 


ED47 








117 












ED47 


A9 


00 




118 




LDA 


#0 




DESTINATION TRACK IS 00 


ED49 


85 


9A 




119 




STA 


MONTIMEH 




CLEAR MOTOR-UP TIME SO 


ED4B 


85 


99 




120 




STA 


MONTIMEL 




SEEK KNOWS HOW LONG RECAL 


ED4D 


20 


60 


ED 


121 




JSR 


MYSEEK 




=>SLAM IT BACK! 


ED50 


68 






122 




PLA 






HAVE WE DONE IT TWICE? 


ED51 


A8 






123 




TAY 








ED52 


88 






124 




DEY 








ED53 


98 






125 




TYA 








ED54 


DO 


D2 


ED2 8 


126 




BNE 


RECALl 




=>D0 TWO ITERATIONS 


EDS 6 


60 






127 




RTS 
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ED57 








12 9 












ED57 








130 


* 


NAME 


SEEKDSK3 












131 




FUNCTION 


SEEK 


CURRENT DRIVE 




ED57 












INPUT 


AC=DESTINATION TRACK 




EDS 7 








133 




OUTPUT 


NONE 






EDS 7 








134 




DESTROYS 


ALL 


REGISTERS 












135 




NOTE 


MUST 


BE CALLED WHILE 




ED57 








136 


* 




MOTOR IS RUNNING, IN 




ED57 








137 


* 




IMHZ+ROM+IO MODE 












138 




























ED57 








139 


SEEKDSK3 


EQU 






ED57 




FO 




140 






LDY 


PREVUNIT 


^Cilli 1 ]Jr\_L V JLiN Uil 




8 4 


C 1 




141 






STY 


D.UNITNUM 


Dill 1 -Li U Jr 




2 


60 










JSR 


MYSEEK 




ED5F 


6 






143 






RTS 














Wt 




































145 


* 


NAME 


MYSEEK 














* 


FUNCTION 


SEEK 


TO DESIRED TRACK 




ED60 








147 


* 


INPUT 


AC=DESTINATION TRACK 












148 


* 


DESTROYS 


ALL 


REGISTERS 














































ED 60 


150 


MYSEEK 


EQU 








8 5 


9E 




151 






STA 


TRKN 


TEMP HOLD OF AC 


ED 


A4 


CI 




152 






LDY 


D.UNITNUM 


GET DRIVENUM 


ED 64 


B 9 





EE 


153 






LDA 


DRVTRACK, Y 


SETUP CURRENT TRACK 




OA 






154 






ASL 


A 


SET IN HALFTRACKS FOR SEEK 


68 


85 


8C 




155 






STA 


CURTRK 


FOR SEEK ROUTINE 


ED 6A 


A2 


60 




15 6 






LDX 


#$60 


SET UP SLOT FOR CORE RTNS 
















LDA 


MONTIMEH 


GET STARTING MOTOR TIME 


ED6E 


85 


nr 




158 






STA 


TEMP 












15 9 












ED7 








160 




NOTE: IRQ'S WHICH SUSPEND SEEK MAY CAUSE A 










161 


* 


SEEK FAILURE. 


WE WILL HAVE TO RECALIBRATE 


ED7 








162 


* 


SINCE WE WON' 


T BE ON-TRACK. WE CAN NOT GET 










163 


* 


ON A HALFTRACK SINCE SEEK ALLOWS SETTLING 


ED70 










* 


TIME OF 


THE PHASE. BECAUSE VBL IS A SERIOUS 


ED7 








165 


* 


OFFENDER, WE 


INHIBIT HIM. 












166 












ED70 


8 






167 






PHP 




INHIBIT IRQ WHILE 


ED7 1 


7 8 






168 






SEI 




MESSING WITH VBL FLAGS 


ED72 








169 






LDA 


E . lER 






2 9 


1 8 




170 






AND 


#$18 






8D 


F3 










STA 


VBLSAVE 






8D 


EE 


FF 


172 






STA 


E.IER 






2 8 






173 






PLP 




RESTORE IRQ STATUS 


ED E 


A5 


9E 




174 






LDA 


TRKN 


RESTORE DESTINATION TRACK 


EDS 


9 9 





EE 


175 






STA 


DRVTRACK, Y 


DEST IS NOW CURRENT 


ED83 


OA 






176 






ASL 


A 


MAKE IT IN HALFTRACKS 


ED84 


20 


00 


F4 


177 






JSR 


SEEK 


GO MOVE THE HEAD . . . 


ED87 


AD 


F3 


ED 


178 






LDA 


VBLSAVE 


NOW ALLOW THAT 


ED8A 


09 


80 




179 






ORA 


#$80 


NASTY 


ED8C 


8D 


EE 


FF 


180 






STA 


E.IER 


VBL INTERRUPT 


ED8F 








181 












ED8F 








182 




COMPUTE THE TIME USED BY SEEK: 




ED8F 








183 












ED8F 


A5 


9A 




184 






LDA 


MONTIMEH 


INCLUDE SEEKTIME IN 
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ED91:38 185 SEC 

ED92:E5 DC 185 SBC TEMP 

ED94:20 OA ED 187 JSR ADDTIME ; TOTAL MOTOR UPTIME (S) 

ED97:60 188 RTS 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 186 of 456 



07 DISK3 . SUBS . SRC 



SOS 1.1 DISK /// DRIVER AUGUST-2006 PAGE 32 



ED98 








190 














ED98 








191 


* 


NAME 




BLK2SECT 




ED98 








192 


* 


FUNCTION 


COMPUTE TRACK/ SECTOR FOR A BLOCK 


ED98 








193 








AND 


ADJUST BUFFER ADDRESS 


ED98 








194 




INPUT 




D. BLOCK, D.BUF 




ED98 








195 




OUTPUT 




TRACK, SECTOR, D.BUF 




ED98 








196 




DESTROYS 


AC, Y 




ED98 








197 














ED98 








198 


* 












ED98 






ED98 


199 


BLK2SECT 




EQU 






ED98 


A5 


Dl 




200 








LDA 


BLKTEMP+1 


GET HI BLK HALF 


ED 9 A 


6A 






201 








ROR 


A 


MOVE LO BIT TO CARRY 


ED9B 


A5 


DO 




202 








LDA 


BLKTEMP 


GET LO HALF 


ED9D 


6A 






203 








ROR 


A 


COMBINE WITH HI BIT 


ED9E 


4A 






204 








LSR 


A 




ED9F 


4A 






205 








LSR 


A 


FINISH OFF DIVIDE-BY-8 


EDAO 


85 


D4 




205 








STA 


TRACK 


THAT'S THE TRACK 


EDA2 


A5 


DO 




207 








LDA 


BLKTEMP 


GET LO HALF AGAIN 


EDA4 


29 


07 




208 








AND 


#7 




EDA6 


A8 






209 








TAY 






EDA7 


B9 


D3 


ED 


210 








LDA 


SECTABLE, Y 


GET START SECTOR 


EDAA 


85 


D5 




211 








STA 


SECTOR 




EDAC 








212 














EDAC 








213 




ADJUST 


BUFFER 


ADDRESS SO THAT I/O 


EDAC 








214 




WON'T 


WRAPAROUND IN THE BANK: 




EDAC 








215 




(THIS ALGORITHM RIPPED OFF FROM 1.0) 


EDAC 








216 


* 












EDAC 


A5 


D3 




217 








LDA 


BUFTEMP+1 


GET BUFFER HI ADDRESS 


EDAE 


AC 


D3 


14 


218 








LDY 


$1400+BUFTEMP+1 


AND XTND BYTE 


EDBl 


C9 


82 




219 








CMP 


#$82 


IF RAM ADDR >=8200 THEN 


EDB3 


90 


OF 


EDC4 


220 








BCC 


NOADJ 


NEXT BANK PAIR 


EDB5 


CO 


80 




221 








CPY 


#$80 




EDB7 


90 


OB 


EDC4 


222 








BCC 


NOADJ 


=>NOT USING BANKPAIR 


EDB9 


CO 


8F 




223 








CPY 


#$8F 


SPECIAL BANK 0? 


EDBB 


FO 


07 


EDC4 


224 








BEQ 


NOADJ 


=>YES 


EDBD 


29 


7F 




225 








AND 


#$7F 


DROP HI ADDRESS AND 


EDBF 


85 


D3 




226 








STA 


BUFTEMP+1 


BUMP BANK NUMBER 


EDCl 


EE 


D3 


14 


227 








INC 


$1400+BUFTEMP+1 




EDC4 








228 














EDC4 






EDC4 


229 


NOADJ 




EQU 






EDC4 


A5 


D3 




230 








LDA 


BUFTEMP+1 


COPY BUFFER ADDRESS 


EDC6 


85 


9C 




231 








STA 


BUF+1 


FOR PRE S POSTNIB 


EDC8 


A5 


D2 




232 








LDA 


BUFTEMP 




EDCA 


85 


9B 




233 








STA 


BUF 




EDCC 


AD 


D3 


14 


234 








LDA 


$1400+BUFTEMP+1 




EDCF 


8D 


9C 


14 


235 








STA 


$1400+BUF+1 




EDD2 


60 






236 








RTS 






EDD3 








237 














EDD3 


00 


04 


08 OC 


238 


SECTABLE 




DFB 


$00,$04,$08,$0C,$01,$05,$09,$0D 
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EDDB: 
EDDB: 

EDDB: 
EDDB: 
EDDB: 
EDDB: 
EDDB: 
EDDB: 
EDDB: 



240 
241 

242 
243 
244 
245 
246 
247 
248 



* NAME 

* FUNCTION 

* INPUT 

* RETURNS 

* DESTROYS 



MOREBLKS 

SETUP TO DO NEXT BLOCK 

NONE 

'BNE' IF MORE TO DO 
'BEQ' IF NO MORE TO DO 

NOTHING 



EDDB 






EDDB 


24 9 MOREBLKS 


EQU 






EDDB 


E6 


D3 




250 


INC 


BUFTEMP+1 


;BUMP BUFFER ADDRESS 


EDDD 


E6 


D3 




251 


INC 


BUFTEMP+1 




EDDF 


E6 


DO 




252 


INC 


BLKTEMP 


;BUMP BLOCK NUMBER 


EDEl 


DO 


02 


EDE5 


253 


BNE 


MORE 2 




EDE3 


E6 


Dl 




254 


INC 


BLKTEMP+1 




EDE5 






EDE5 


255 M0RE2 


EQU 






EDE5 


C6 


D9 




256 


DEC 


BLKCOUNT 


;MORE BLOCKS TO GO? 


EDE7 


60 






257 


RTS 




/RETURN RESULT OF DEC 



:48 
:A5 
:30 
:58 

: 68 
: 60 



DB 
01 



259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 



NAME : FIXIRQ 

FUNCTION: ENABLE IRQ IF APPROPRIATE 

INPUT : NONE 

DESTROYS: NOTHING 



FIXIRQ 



EQU 
PHA 
LDA 
BMI 
CLI 
EQU 
PLA 
RTS 
CHN 



IRQMASK 
FIXRET 



DISK3. DATA. SRC 



/SHOULD IRQ BE ENABLED? 
;=>N0, LEAVE IT ALONE 
/ENABLE IRQ 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 188 of 456 



08 DISK3 .DATA. SRC SOS 1.1 DISK /// DRIVER AUGUST-2006 PAGE 34 



EDFO 






2 


* GENERAL 


DATA; 






EDFO 






3 


* 








EDFO 




0001 


4 


PREVUNIT 


DS 


1 


PRIOR UNIT ACCESSED (FOR REPEAT) 


EDFl 




0001 


5 


PREVCMD 


DS 


1 


PRIOR CMD (FOR REPEAT) 


EDF2 






6 










EDF2 




0001 


7 


ESAVE 


DS 


1 


SAVED E . REG 


EDF3 




0001 


8 


VBLSAVE 


DS 


1 


SAVED E . lER 


EDF4 


00 




9 


INITFLAG 


DFB 





<0 IS INITTED 


EDF5 




0000 


10 




DO 


REVOROM 




s 






11 


ROMREV 


DS 


1 


0=REVO, <>0=REV1 


EDF5 






12 




FIN 






EDF5 






13 










EDF5 






14 


* MOTOR-UP 


TIMES 


PER COMMAND 




EDF5 




0002 


15 


T50MS 


EQU 


$02 


50MS FOR MONTIMEH 


EDF5 




0008 


16 


T200MS 


EQU 


$08 


200 MS FOR MONTIMEH 


EDF5 




0027 


17 


TISEC 


EQU 


$27 


1-SEC FOR MONTIMEH 


EDF5 






18 


* 








EDF5 


08 


27 02 


19 


MTIMES 


DFB 


T200MS, TISEC, T50MS ; READ, WRITE, SENSE 


EDF8 






20 


* 








EDF8 






21 










EDF8 






22 


* DRIVE TABLES: 






EDF8 






23 










EDF8 




0004 


24 


DRIVESEL 


DS 


4 


NONZERO IF SELECTED 


EDFC 






25 










EDFC 




0004 


26 


UPTIME 


DS 


4 ; MOTOR RUNTIME SINCE STARTED 


EEOO 




0004 


27 


DRVTRACK 


DS 


4 


CURRENT HEAD POSITION 
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EE04 


0000 29 




DO 


REVOROM 


ONLY IF SUPPORTING IT! 


s 


30 


* 


JUMP 


TABLE TO MONITOR ROUTINES. 


s 


31 






THIS TABLE FILLED IN BY ' INIT 


s 


32 










s 


33 


JMPTAB 


EQU 






s 


34 


RDADR 


JMP 






s 


35 


READ 


JMP 






s 


36 


WRITE 


JMP 






s 


37 


SEEK 


JMP 






s 


38 


MS WAIT 


JMP 






s 


39 


PRENIB 


JMP 






s 


40 


POSTNIB 


JMP 






s 


41 










s 


42 


REVO 


EQU 


* ;REVO ADDRESSES 


s 


43 




JMP 


$F1BD 


RDADR 


s 


44 




JMP 


$F148 


READ 


s 


45 




JMP 


$F219 


WRITE 


s 


46 




JMP 


$F400 


SEEK 


s 


47 




JMP 


SF456 


MSWAIT 


s 


48 




JMP 


$F2C6 


PRENIB 


s 


49 




JMP 


$F311 


POSTNIB 


s 


50 


VSIZE 


EQU 


*-REVO 


TABLE SIZE 


s 


51 


* 








s 


52 


REVl 


EQU 




REVl ADDRESSES 


s 


53 




JMP 


$F1B9 


RDADR 


s 


54 




JMP 


SF148 


READ 


s 


55 




JMP 


$F216 


WRITE 


s 


56 




JMP 


$F400 


SEEK 


s 


57 




JMP 


$F456 


MSWAIT 


s 


58 




JMP 


$F2C4 


PRENIB 


s 


59 




JMP 


$F30F 


POSTNIB 


EE04 


60 




ELSE 


;FOR REVl WE USE EQUATES 


EE04 


F1B9 61 


RDADR 


EQU 


$F1B9 


RDADR 


EE04 


F148 62 


READ 


EQU 


$F148 


READ 


EE04 


F216 63 


WRITE 


EQU 


$F216 


WRITE 


EE04 


F400 64 


SEEK 


EQU 


$F400 


SEEK 


EE04 


F456 65 


MSWAIT 


EQU 


$F456 


MSWAIT 


EE04 


F2C4 66 


PRENIB 


EQU 


$F2C4 


PRENIB 


EE04 


F30F 67 


POSTNIB 


EQU 


$F30F 


POSTNIB 


EE04 


68 




FIN 






EE04 


EE04 69 


ZZEND 


EQU 






EE04 


055B 70 


ZZLEN 


EQU 


*-ZZORG 




EE04 


0000 71 




IFNE 


ZZLEN-LENDISK3 




S 


72 




FAIL 


2,"S0S0RG FILE IS INCORRECT FOR DI 


EE04 


73 




FIN 
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EDOD 


ADD2 


EDIE 


ADD2A 


ED21 


EC08 


ADRDELAY 


E994 


BADBLOCK 


E981 


EBAO 


BAD 10 


E97C 


BAD OP 


72E00 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


68F4 


BLAFMGR 


?2CF8 


BLAGLOB 


72AF8 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


5466 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


D9 


BLKCOUNT 


E9B1 


BLKG255 


DO 


D2 


BUFTEMP 


ED05 


CHANGED 


E999 


ECDC 


CHKDRV 


E9B3 


CHKLO 


EAB9 


E965 


CMD2 


E975 


CMD3 


97 


C6 


D. BLOCK 


C3 


D . BUFH 


C2 


C8 


D . BYTRD 


CO 


D . COMMAND 


03 


CI 


D . UNITNUM 


NE899 


DIBl 


NE8B9 


NE8F9 


DIB4 


E9F9 


DOIO 


EA18 


E9BC 


DRVSETUP 


EEOO 


DRVTRACK 


E9F4 


FFDF 


E.REG 


XOOlO 


E1908 


ECD2 


EAF5 


EXIT2 


EAE9 


EXIT 


ECC8 


ECOE 


FINDGOOD 


EB57 


FINDIT 


EBDB 


EDE8 


FIXIRQ 


EDEE 


FIXRET 


EBOB 


EAE4 


GOODINIT 


EB35 


GOSEEK 


E972 


SB 


IMASK 


EDF4 


INITFLAG 


EAA4 


8F 


INTRTRY 


EBA2 


lORETRY 


E9S6 


COEB 


IS . EXT 


COEA 


IS . INT 


ECA6 


2266 


LENBFM 


031C 


LENBUFMG 


OlFD 


0185 


LENDMGR 


61 


LENFMGR 


701B2 


OAFS 


LENLODR 


70751 


LENMEMMG 


015A 


0296 


LENSCMGR 


D5 


LENSERR 


040E 


C0D2 


MD . EXTl 


COCO 


MD . EXT2 


CODS 


9A 


MONTIMEH 


99 


MONTIMEL 


EDE5 


C0E8 


MOTOROFF 


C0E9 


MOTORON 


C0D3 


C0D4 


MS . INT 


F456 


MSWAIT 


EDF5 


EDC4 


NOADJ 


C0D8 


NOSCROLL 


EC9B 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


718FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


F86E 


ORGMEMMG 


DE6 6 


ORGOMSG 


DE66 


EE04 


ORGSERR 


E48B 


ORGUMGR 


F30F 


EDFl 


PREVCMD 


EDFO 


PREVUNIT 


C08D 


7C08F 


Q7H 


COSE 


Q7L 


03 


06 


R. IRQ 


01 


R . REGAL 


EBFF 


EA4D 


READOK 


F148 


READ 


EA52 


EA23 


READREQ 


ED28 


RECALl 


ED3A 


D8 


RECALCNT 


ED26 


RECAL 


D6 


00 


REVOROM 


E958 


RPTOK 


EDD3 


D5 


SECTOR 


F400 


SEEK 


EB2D 


DA 


SEEKWAIT 


EC75 


SELECT 


EC8B 


EBC2 


SIOERR 


EBCC 


SIOGOOD 


EBCF 


EB90 


SIOWRITE 


EB3A 


SOUGHT 


EC3D 


X0006 


SYSERR 


0027 


TISEC 


0008 


DC 


TEMP 


00 


TEST 


D4 


EBA6 


TRYRECAL 


ECBA 


UNITDEL 


ECAC 


ECID 


UNITSEL 


EDFC 


UPTIME 


EDF3 


F216 


WRITE 


EA88 


WRITERR 


X0008 


XOOOC 


XBYTECNT 


XOOOF 


XCTLCODE 


XOOOE 


X0009 


XNODRIVE 


XOOOB 


XNOWRITE 


X0007 



ADD 3 


EDOA 


ADDTIME 


BADCMD 


E9B7 


BADCOUNT 


BLABFMI 


3200 


BLABFM 


BLADISK3 


64D9 


BLADMGR 


BLAINIT 


55C0 


BLAIPL 


BLAOMSG 


5466 


BLAPATCH 


BLAUMGR 


ED 9 8 


BLK2SECT 


BLKTEMP 


9B 


BUF 


CHKBYTE 


ECDE 


CHKDl 


CLRDRVS 


E95E 


CMDl 


CSSTV 


8C 


CURTRK 


D . BUFL 


04 


D . BYTES 


D . STATBUF 


02 


D . STATCODE 


DIB2 


NE8D9 


DIB3 


D0I02 


EDF8 


DRIVESEL 


DSWITCH 


FFEE 


E . lER 


EDSl 


EDF2 


ESAVE 


EXTDESEL 


EC14 


FINDERR 


FINDSEC2 


EBD5 


FINDSECT 


GOERR 


EC5B 


GOFORIT 


GOSTAT 


81 


IBSLOT 


INIT 


EAD9 


INIT2 


lOSETUP 


DB 


IRQMASK 


ISD4 


70400 


LENBFMI 


LENCFM 


056B 


LENDISK3 


LENINIT 


04CB 


LENIPL 


LENOMSG 


00 


LENPATCH 


LENUMGR 


E91D 


MAIN 


MD . INT 


EB4 6 


MDELAY 


M0RE2 


EDDB 


MOREBLKS 


MS .EXTl 


CODl 


MS . EXT2 


MTIMES 


ED 60 


MYSEEK 


N0TD2 


EBBF 


NOTSAME 


ORGBUFMG 


F355 


ORGCFM 


ORGEND 


F2F4 


ORGFMGR 


ORGIPL 


lEOO 


ORGLODR 


ORGPATCH 


F05E 


ORGSCMGR 


POSTNIB 


F2C4 


PRENIB 


Q6H 


cose 


Q6L 


R.FIND 


04 


R. lOERR 


RDADERR 


F1B9 


RDADR 


READERR 


EA2C 


READREQ2 


RECAL 2 


ED3F 


RECAL 3 


RETRYADR 


D7 


RETRYCNT 


SECTABLE 


EBOE 


SECTORIO 


SEEKDEL 


NED 5 7 


SEEKDSK3 


SELEXT 


EC6B 


SETTIME 


SIORET 


EBC7 


SIOWPROT 


SPINNING 


EA8B 


STATUS 


T200MS 


02 


T50MS 


TRACK 


9E 


TRKN 


UNITRET 


ECC7 


UNITRTS 


VBLSAVE 


EA55 


WRITEREQ 


XBADOP 


XOOOD 


XBLKNUM 


XDISKSW 


XOOOA 


XIOERROR 


XREQCODE 


7EE04 


ZZEND 
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056B ZZLEN E899 ZZORG 

** SUCCESSFUL ASSEMBLY := NO ERRORS 
** ASSEMBLER CREATED ON 30-APR-85 22:46 
*♦ TOTAL LINES ASSEMBLED 1398 
** FREE SPACE PAGE COUNT 77 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU BLABUFMG+LENBUFMG ' BLOAD ADDRESS OF MEMMGR 


0000 




58 








****************************************************************************** 


EE04 


EE04 


4 


ORG ORGSERR 


EE04 


EE04 


5 


ZZORG EQU * 


EE04 




6 


MSB OFF 


EE04 




7 


************************************************************ 


EE04 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


EE04 




9 


* ALL RIGHTS RESERVED 


EE04 




10 


************************************************************ 


EE04 




■\_ ^ 




EE04 




12 


* SYSTEM ERROR ROUTINES (VERSION =1.10 ) 


EE04 




13 


* (DATE = 12/02/81) 


EE04 




14 


* 


EE04 




15 


* THIS MODULE CONTAINS THE SYSTEM ERROR AND SYSTEM FAILURE ROUTINES. 


EE04 




16 


* 


EE04 




17 


************************************************************ 


EE04 




18 


* 


EE04 


EE17 


19 


ENTRY SYSERR 


EE04 


EE2A 


20 


ENTRY SYSDEATH 


EE04 




21 


* 


EE04 


0000 


22 


EXTRN SERR 


EE04 


0000 


23 


EXTRN SDEATH.REGS 


EE04 


0000 


24 


EXTRN SCRNMODE 
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EE04 




26 


********** 


* * * * * 


******* 


EE04 




27 


* 






EE04 




28 


* DATA DECLARATIONS 


EE04 




29 








EE04 




30 


^, ^, ^, ^, ^, ^, ^, f ^, 


***** 




EE04 




31 








EE04 


FFDF 


32 


E.REG 


EQU 


$FFDF 


EE04 


FFDO 


33 


Z .REG 


EQU 


$FFDO 


EE04 


FFEF 


34 


B.REG 


EQU 


$FFEF 


EE04 




35 


* 






EE04 


0009 


36 


S . SAVE 


EQU 


$09 


EE04 


0008 


37 


PCH . SAVE 


EQU 


$08 


EE04 


0007 


38 


POL . SAVE 


EQU 


$07 


EE04 


0005 


39 


P . SAVE 


EQU 


$06 


EE04 


0005 


40 


A . SAVE 


EQU 


$05 


EE04 


0004 


41 


X . SAVE 


EQU 


$04 


EE04 


0003 


42 


Y . SAVE 


EQU 


$03 


EE04 


0002 


43 


E . SAVE 


EQU 


$02 


EE04 


0001 


44 


Z . SAVE 


EQU 


$01 


EE04 


0000 


45 


B . SAVE 


EQU 


$00 


EE04 




46 


* 






EE04 


FFFA 


47 


NMI .VECTOR 


EQU 


$FFFA 


EE04 




48 


* 






EE04 


C050 


49 


TXT.CLR 


EQU 


$C050 


EE04 


C052 


50 


MIX.CLR 


EQU 


$C052 


EE04 


C056 


51 


HIRES. CLR 


EQU 


$C056 


EE04 




52 


* 






EE04 


C054 


53 


PG2 .CLR 


EQU 


$C054 


EE04 




54 








EE04 


07E4 


55 


MSGBASE 


EQU 


$7E4 


EE04 


0BE4 


56 


MSGBASE2 


EQU 


$BE4 


EE04 


20 53 59 53 


57 


MSG 


ASC 




EE17 


0013 


58 


MS GLEN 


EQU 


*-MSG 



REGISTER SAVE AREA 



SYSTEM FAILURE = $ ' 
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EE17 






60 


*************** 


********************************************* 


EE17 






61 


* 




EE17 






62 


* SYSTEM ERROR 


ROUTINE 


EE17 






63 






EE17 






64 


* THIS ROUTINE 


IS CALLED WHEN AN ERROR CONDITION HAS BEEN 


EE17 






65 


* ENCOUNTERED. 


THE ERROR NUMBER IS PASSED IN THE A REG 


EE17 






66 


* AND THE CALL 


TO THIS ROUTINE MUST ALWAYS BE A JSR. 


EE17 






67 


* 




EE17 






68 


*************** 


********************************************* 


EE17 




EE17 


69 


SYSERR EQU 


* 


EE17 






70 


* 




EE17 


8D 00 


00 


71 


STA 


SERR 


EEIA 


68 




72 


PLA 




EEIB 


8D 07 


00 


73 


STA 


SDEATH . REGS+PCL . SAVE 


EEIE 


68 




74 


PLA 




EEIF 


8D 08 


00 


75 


STA 


SDEATH . REGS+PCH . SAVE 


EE22 


38 




75 


SEC 




EE23 


AD 00 


00 


77 


LDA 


SERR 


EE2 6 


DO 01 


EE29 


78 


BNE 


SERR.EXIT 


EE28 


18 




79 


CLC 




EE2 9 


50 




80 


SERR.EXIT RTS 


; RETURNS ONE LEVEL BEYOND 
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EE2A 








82 


********* 


****** 


**************** 


***************************** 


EE2A 








83 


* 








EE2A 








84 


* SYSTEM 


DEATH 


ROUTINE 




EE2A 








85 










EE2A 








86 


* CALLED 


TO IMMEDIATELY TERMINATE EXECUTION OF THE MACHINE 


EE2A 








87 


* BECAUSE 


A FATAL ERROR HAS BEEN DETECTED BY THE OPERATING 


EE2A 








88 


* SYSTEM. 


THE 


ERROR CODE IS PASSED IN THE A REG. THE 


EE2A 








89 


* CALL TO 


THIS 


ROUTINE MUST ALWAYS BE A JSR. 


EE2A 








90 


* 








EE2A 








91 


********* 


****** 


**************** 


***************************** 


EE2A 






EE2A 


92 


SYSDEATH 


EQU 






EE2A 








93 


* 








EE2A 


8D 


05 


00 


94 




STA 


SDEATH.REGS+A. 


SAVE ; SAVE REGISTERS 


EE2D 


BE 


04 


00 


95 




STX 


SDEATH.REGS+X. 


SAVE 


EE30 


80 


03 


00 


96 




STY 


SDEATH.REGS+Y. 


SAVE 


EE33 


08 






97 




PHP 






EE34 


68 






98 




PLA 






EE35 


8D 


06 


00 


99 




STA 


SDEATH.REGS+P. 


SAVE 


EE38 


BA 






100 




TSX 






EE39 


8E 


09 


00 


101 




STX 


SDEATH.REGS+S. 


SAVE 


EE3C 


AD 


DP 


FF 


102 




LDA 


E.REG 




EE3F 


8D 


02 


GO 


103 




STA 


SDEATH.REGS+E. 


SAVE 


EE42 


AD 


DO 


FF 


104 




LDA 


Z .REG 




EE45 


8D 


01 


GO 


105 




STA 


SDEATH.REGS+Z. 


SAVE 


EE48 


AD 


EF 


FF 


106 




LDA 


B.REG 




EE4B 


80 


00 


00 


107 




STA 


SDEATH.REGS+B. 


SAVE 


EE4E 


68 






108 




PLA 






EE4F 


8D 


07 


GO 


109 




STA 


SDEATH . REGS+PCL . SAVE 


EE52 


68 






110 




PLA 






EE53 


8D 


08 


00 


111 




STA 


SDEATH . REGS+PCH . SAVE 


EE56 








112 


* 








EE56 


78 






113 




SEI 




; TURN OFF INTERRUPTS 


EE57 


D8 






114 




CLD 






EE58 








115 


* 








EE58 


A2 


00 




116 




LDX 


#0 


; SAVE SYSTEM STACK PAGE IN PAGE $17 


EE5A 


ED 


00 


01 


117 


SD005 


LDA 


$100, X 




EE5D 


9D 


00 


17 


118 




STA 


$1700, X 




EE60 


OA 






119 




DEX 






EE61 


DO 


F7 


EE5A 


120 




BNE 


SD0G5 




EE63 








121 










EE63 


AD 


59 


CO 


122 




LDA 


$C059 


; ENSURE SILENTYPE PORT SHUT DOWN 


EE66 


AD 


DD 


CO 


123 




LDA 


$CODD 




EE69 


AD 


DF 


CO 


124 




LDA 


$CODF 




EE6C 


AD 


5F 


CO 


125 




LDA 


$C05F 




EE6F 


AD 


5A 


CO 


126 




LDA 


$C05A 




EE72 








127 


* 








EE72 


AD 


40 


CO 


128 




LDA 


$C040 


; SOUND BELL 


EE75 








129 


* 








EE75 


A9 


74 




130 




LDA 


#S74 


; ENSURE RESET LOCK OFF & RAM SWITCHED 


EE77 


8D 


DF 


FF 


131 




STA 


E.REG 




EE7A 








132 


* 








EE7A 


AD 


50 


CO 


133 




LDA 


TXT . CLR 


; SWITCH TO 4 COL B&W DISPLAY MODE 


EE7D 


AD 


52 


CO 


134 




LDA 


MIX.CLR 




EE80 


AD 


56 


CO 


135 




LDA 


HIRES. CLR 




EE83 


AD 


54 


CO 


136 




LDA 


PG2 .CLR 


; S SELECT PAGE 1 


EE86 








137 


* 
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EE86 


A9 


02 




138 




LDA 


#$02 






EE88 


2C 


00 


00 


139 




BIT 


SCRNMODE 






EE8B 


70 


OF 


EE9C 


140 




BVS 


SD015 




IF GRAPHICS MODE THEN KEEP 40 COL MODE 


EE8D 


FO 


OD 


EE9C 


141 




BEQ 


SD015 




IF 4 COL MODE THEN KEEP 


EE8F 


AD 


53 


CO 


142 




LDA 


MIX.CLR+1 




ELSE SWITCH TO 80 COL DISPLAY MODE 


EE92 








143 


* 










EE92 


A2 


14 




144 




LDX 


#MSGLEN+1 




ENSURE BKGRND SET TO INVERSE SPACES 


EE94 


A9 


20 




145 




LDA 


#$20 




SPACE CHAR W/ INVERSE 


EE95 


9D 


E3 


OB 


146 


SDOlO 


STA 


MSGBASE2-1,X 






EE99 


CA 






147 




DEX 








EE9A 


10 


FA 


EE96 


148 




BPL 


SDOlO 






EE9C 








149 


* 










EE9C 


A2 


00 




150 


SD015 


LDX 


#0 




MOVE MSG TO TEXT SCREEN 


EE9E 


BD 


04 


EE 


151 


SD020 


LDA 


MSG, X 






EEAl 


9D 


E3 


07 


152 




STA 


MSGBASE-1, X 






EEA4 


E8 






153 




I NX 








EEA5 


EO 


13 




154 




CPX 


#MSGLEN 






EEA7 


DO 


F5 


EE9E 


155 




BNE 


SD020 






EEA9 








155 


* 










EEA9 


AD 


05 


00 


157 




LDA 


SDEATH.REGS+A. 


SAVE 


; DISPLAY ERROR CODE (2 HEX DIGITS) 


EEAC 


18 






158 




CLC 








EE AD 


4A 






159 




LSR 


A 






EEAE 


4A 






160 




LSR 


A 






EEAF 


4A 






161 




LSR 


A 






EEBO 


4A 






162 




LSR 


A 






EEBl 


20 


CB 


EE 


163 




JSR 


PRINT 




FIRST DIGIT 


EEB4 


E8 






164 




I NX 








EEB5 


AD 


05 


00 


165 




LDA 


SDEATH.REGS+A. 


SAVE 




EEB8 


29 


OF 




166 




AND 


#$0F 






EEBA 


20 


CB 


EE 


167 




JSR 


PRINT 




SECOND DIGIT 


EEBD 








168 


* 










EEBD 


A9 


CA 




169 




LDA 


#>SD100 






EEBF 


8D 


FA 


FF 


170 




STA 


NMI .VECTOR 






EEC2 


A9 


EE 




171 




LDA 


#<SD100 






EEC4 


8D 


FB 


FF 


172 




STA 


NMI .VECTOR+1 






EEC7 








173 


* 










EEC7 








174 












EEC7 


4C 


C7 


EE 


175 




JM? 






HZiNG UNTIL RE300C (CIRL/RESET) 


EECA 








176 








**** 




EECA 


40 






177 


SDIOO 


RTI 






NMI VECTOR POINT HERE TO MASK THEM OUT 


EECB 








178 












EECB 








179 


* 










EECB 








180 


* PRINT 


SUBROUTINE 






EECB 








181 


* 










EECB 






EECB 


182 


PRINT 


EQU 








EECB 


C9 


OA 




183 




CMP 


#$A 






EECD 


BO 


04 


EED3 


184 




BCS 


PRNTIOO 






EECF 


69 


30 




185 




ADC 


#$30 




"0"-"9" 


EEDl 


90 


02 


EED5 


186 




BCC 


PRNTllO 




ALWAYS TAKEN 


EED3 


69 


36 




187 


PRNTIOO 


ADC 


#$36 




"A"-"F" 


EED5 


9D 


E3 


07 


188 


PRNTllO 


STA 


MSGBASE-1, X 






EED8 


60 






189 




RTS 








EED9 








190 












EED9 








191 




LST 


ON 






EED9 






EED9 


192 


ZZEND 


EQU 
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EED9: 00D5 193 ZZLEN EQU ZZEND-ZZORG 

EED9: 0000 194 IFNE ZZLEN-LENSERR 

S 195 FAIL 2,"S0S0RG FILE IS INCORRECT FOR SYSERR" 

EED9: 196 FIN 
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05 


A . SAVE 


FFEF 


B.REG 


00 


B . SAVE 


3200 


BLABFM 


?2E00 


BLABFMI 


6B52 


BLABUFMG 


5955 


BLACFM 


5E99 


BLADISK3 


64D9 


BLADMGR 


68F4 


BLAFMGR 


72CF8 


BLAGLOB 


72AF8 


BLAINIT 


55C0 


BLAIPL 


2000 


BLALODR 


76E6E 


BLAMEMMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


FFDF 


E . REG 


02 


E . SAVE 


C0b6 


HIRES . CLR 


2266 


LENBFM 


70400 


LENBFMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


055B 


LENDISK3 


0185 


LENDMGR 


51 


LENFMGR 


701B2 


LENINIT 


04CB 


LENIPL 


OAFS 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSCMGR 


D5 


LENSERR 


040E 


LENUMGR 


C052 


MIX, CLR 


EE04 


MSG 


07E4 


MSGBASE 


0BE4 


MSGBASE2 


13 


MSGLEN 


FFFA 


NMI .VECTOR 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


FED 9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


7 1 8FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE66 


ORGPATCH 


FOSE 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


05 


P . SAVE 


08 


PCH.SAVE 


07 


PCL.SAVE 


C054 


PG2.CLR 


EECB 


PRINT 


EED3 


PRNTIOO 


EED5 


PRNTllO 


09 


S . SAVE 


X0005 


SCRNMODE 


EE5A 


SD005 


EE95 


SDOlO 


EE9C 


SD015 


EE9E 


SD020 


EECA 


SDIOO 


X0004 


SDEATH.REGS 


X0003 


SERR 


EE29 


SERR. EXIT 


NEE2A 


SYSDEATH 


NEE 17 


SYSERR 


C050 


TXT. CLR 


04 


X . SAVE 


03 


Y . SAVE 


FFDO 


Z .REG 


01 


Z . SAVE 


EED9 


ZZEND 


D5 


ZZLEN 


EE04 


ZZORG 











** SUCCESSFUL ASSEMBLY := NO ERRORS 

** ASSEMBLER CREATED ON 30-APR-85 22:46 

** TOTAL LINES ASSEMBLED 255 

** FREE SPACE PAGE COUNT 84 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 
0000 

0000 
0000 

EED9 
EED9 
EED9 
EED9 
**** 

EED9 

EED9 

EED9 



55 BLACFM 

56 BLABUFMG 

57 BLAMEMMG 
58 

******************************************* 

4 ORG ORGDMGR 

5 ZZORG 
6 
7 

**************************************************************************** 

8 * COPYRIGHT (C) APPLE COMPUTER INC. 1980 

9 * ALL RIGHTS RESERVED 

10 



5955 
6B52 
6E6E 



EED9 
EED9 



EQU 
EQU 

EQU 



ORG 
EQU 
MSB 



BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 
BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 
BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 



OFF 



FED 9 
FED 9 
FED 9 
FED 9 
EED9 
FED 9 
FED 9 
EED9 
FED 9 
FED 9 



11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



DEVICE MANAGER (VERSION 
(DATE 



1.10 ) 
8/04/81) 



THIS MODULE IS RESPONSIBLE FOR CALLING THE CORRECT DEVICE 
DRIVER WHEN A D . READ . . . D . INIT SYSTEM CALL IS MADE. 

(NOTE: D. OPEN, D. CLOSE AND D.INIT ARE ONLY CALLABLE FROM 
INSIDE THE OPERATING SYSTEM). D . INFO AND GET.DNUM CALLS 
ARE HANDLED INSIDE THIS MODULE. REPEAT. 10 BYPASSES THIS MODULE. 



EED9 




21 


* 






FED 9 


EF7D 


22 




ENTRY 


DMGR 


EED9 




23 








EED9 


EED9 


24 




ENTRY 


MAX . DNUM 


FED 9 


0019 


25 




ENTRY 


SDT .SIZE 


FED 9 


EEDA 


26 




ENTRY 


SDT.DIBL 


FED 9 


EEF3 


27 




ENTRY 


SDT.DIBH 


FED 9 


EFOC 


28 




ENTRY 


SDT.ADRL 


FED 9 


EF25 


29 




ENTRY 


SDT.ADRH 


EED9 


EF3E 


30 




ENTRY 


SDT . BANK 


FED 9 


EF57 


31 




ENTRY 


SDT. UNIT 


FED 9 


OOOD 


32 




ENTRY 


BLKD.SIZE 


FED 9 


EF70 


33 




ENTRY 


BLKDLST 


EED9 




34 


* 






EED9 


0000 


35 




EXTRN 


SYSERR 


FED 9 


0000 


36 




EXTRN 


SERR 


EED9 


0000 


37 




EXTRN 


NODNAME 


FED 9 


0000 


38 




EXTRN 


BADDNUM 


FED 9 


0000 


39 




EXTRN 


SYSDEATH 


FED 9 


0000 


40 




EXTRN 


BADSYSCALL 


FED 9 




41 


* 






EED9 


0000 


42 




EXTRN 


SXPAGE 


EED9 




43 


* 






EED9 


FFDF 


44 


E.REG 


EQU 


$FFDF 


FED 9 


FFEF 


45 


B.REG 


EQU 


$FFEF 



ENVIRONMENT REGISTER 
BANK REGISTER 
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EED9: 47 
**********************^ 

EED9: 48 

EED9: 49 

EED9: 50 

EED9: 51 

EED9: 52 

EED9: 53 

EED9: 54 

EED9: 55 * 

EED9: 56 
******************************* 



EED9: 57 

EED9: 0019 58 
EED9: 59 

EED9: 0001 60 

EEDA: 0019 61 

EEF3: 0019 62 
EFOC: 63 

EFOC: 0019 64 

EF25: 0019 65 
EF3E: 66 

EF3E: 0019 67 
EF57: 68 

EF57: 0019 69 
EF70: 70 
EF70: 71 
*********************** 



***************************************************************************** 
* 

* SYSTEM DEVICE TABLE (SDT) 

* CONTAINS THE ADDRESS OF EACH DRIVER'S DIB (SDT. DIB), THE 

* ADDRESS OF EACH DRIVER'S ENTRY POINT (SDT. ADR), AND THE 

* UNIT # OF EACH DRIVER (SDT. UNIT) . THE TABLE IS INDEXED 

* BY DEVICE NUMBER. ENTRY IS RESERVED FOR FUTURE USE. 



************************************************************ 



SDT. SIZE 

MAX . DNUM 
SDT.DIBL 
SDT.DIBH 
* 

SDT.ADRL 

SDT.ADRH 

SDT. BANK 
SDT. UNIT 



EQU 

DS 
DS 
DS 

DS 

DS 

DS 
DS 



25 



SDT. SIZE 
SDT. SIZE 



SDT. SIZE 
SDT. SIZE 



SDT .SIZE 
SDT . SIZE 



;MAX DEV NUMBER IN SYSTEM+1 
;ADR OF DEVICE INFORMATION BLOCK 



;ADR OF ENTRY POINT 



;BANK # OF DEVICE 
;UNIT # OF DRIVER 



EF70 : 
EF70 : 
EF70 : 
EF70 : 
EF71: 



OOOD 
OOOC 



72 

73 
74 
75 
75 



*******************************************************************) 
* BLOCK DEVICE LIST TABLE 



********* 



BLKD.SIZE EQU 
BLKDLST DFB 
DS 



13 
$00 

BLKD.SIZE-1 
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EF7D: 78 

**************************************************************************************************** 



********** 



EF7D 




79 


* 






EF7D 




80 


* 


DATA DECLARATIONS 




EF7D 




81 


* 






EF7D 




82 








****************** 


* * * * 


* * 


********************************* 


************************** 


EF7D 




83 


* 






EF7D 


OOCO 


84 


D 


.TPARMX EQU $C0 




EF7D 


OOCO 


85 


REQCODE EQU D . TPARMX 




EF7D 




86 


* 






EF7D 




87 


* 


D. READ /WRITE /CTRL/ STATUS/OPEN/CLOSE/ INIT/REPEAT PARMS 


EF7D 




88 








EF7D 


OOCl 


89 


DNUM EQU D.TPARMX+1 




EF7D 




90 








EF7D 




91 




D.INFO PARMS 




EF7D 




92 


* 






EF7D 


OOCl 


93 


I 


.DNUM EQU D.TPARMX+1 




EF7D 


00C2 


94 


I 


. DNAME EQU D . TPARMX+2 




EF7D 


00C4 


95 


I 


.DLIST EQU D.TPARMX+4 




EF7D 


00C6 


96 


I 


.LENGTH EQU D.TPARMX+6 




EF7D 




97 








EF7D 




98 




GET.DEV.NUM PARMS 




EF7D 




99 








EF7D 


OOCl 


100 


G 


.DNAME EQU D.TPARMX+1 




EF7D 


00C3 


101 


G 


. DNUM EQU D . TP ARMX+ 3 




EF7D 




102 


* 






EF7D 




103 




SDT ENTRY (=DIB) FIELDS 




EF7D 




104 








EF7D 


0011 


105 


DIB. SLOT EQU $11 


; DIE'S DEVICE SLOT FIELD 


EF7D 


0013 


106 


DIB.DTYPE EQU $13 


; DIE'S DEVICE TYPE FIELD 


EF7D 




107 


* 






EF7D 


OODO 


108 


SDTP EQU D.TPARMX+$10 


; PTR TO CURRENT SDT ENTRY 
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EF7D : 






110 










******* 


* * * * 


******* 


************* 


******** 


************* 


****** 


****************************************** 


EF7D : 






111 * 










EF7D : 






112 * DEVICE 


MANAGER 


(MAIN ENTRY 


POINT) 




EF7D : 






113 * 










EF7D : 






114 










******* 


* * * * 


******* 


************* 


******** 


************* 


****** 


****************************************** 


EF7D : 




EF7D 


115 DMGR 


EQU 


^, 






EF7D : 






115 * 










EF7D : A5 


CO 




117 


LDA 


REQCODE 






EF7F : C9 


04 




118 


CMP 


#4 






EF81 : 90 


12 


EF95 


119 


BOO 


DRIVER 




D. READ/WRITE/CTRL/STATUS CALL 


EF83 :D0 


03 


EF88 


120 


BNE 


DM000 






EF85 : 40 


17 


FO 


121 


JMP 


GET . DNUM 




GET.DEV.NUM CALL 


EF88:09 


05 




122 DM000 


CMP 


#5 






EF8A:F0 


51 


EFDD 


123 


BEQ 


D . INFO 




D.INFO CALL 


EF8C:C9 


OA 




124 


CMP 


#$A 






EF8E: 90 


05 


EF95 


125 


BCC 


DRIVER 




D. OPEN/CLOSE/ INIT 


EF90 :A9 


00 




125 


LDA 


#BADSYSCALL 




ELSE FATAL ERROR 


EF92:20 


00 


00 


127 


JSR 


SYSDEATH 




EXIT 
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EF95: 129 

**************************************************************************************************** 



EF95 








130 


* D.READ/WRITE/CTRL/STATUS/OPEN/CLOSE/INIT CALLS 


EF95 








131 


* "JSR" TO DEVICE DRIVER 




EF95 








132 










*** 


*,,*<,*»*« 




***************** 


**************** 


********************************************* 


EF95 






EF95 


133 


DRIVER EQU 






EF95 








134 


* 






EF95 


A6 


CI 




135 


LDX 


DNUM 


; GET DNUM SYSCALL PARM 


EF97 


FO 


05 


EF9E 


136 


BEQ 


DM005 


; WITHIN BOUNDS? 


EF99 


EC 


D9 


EE 


137 


CPX 


MAX . DNUM 


' 


EF9C 


90 


05 


EFA3 


138 


BCC 


DM010 




EF9E 








139 








EF9E 








140 


♦ DNUM TOO LARGE 






EF9E 








141 








EF9E 


A9 


00 




142 


DM005 LDA 


#>BADDNUM 


; INVALID DEVICE NUMBER 


EFAO 


20 


00 


00 


143 


JSR 


SYSERR 


; ERROR EXIT 


EFA3 








144 


* 






EFA3 








145 


* MAP DEV# TO UNIT# 




EFA3 








146 


* 






EFA3 


BD 


57 


EF 


147 


DM010 LDA 


SDT.UNIT,X 




EFA6 


85 


CI 




148 


STA 


DNUM 




EFA8 








149 








EFA8 








150 


* "JSR" TO DEVICE DRIVER VIA JMP 


TABLE 


EFA8 








151 








EFA8 


AD 


EF 


FF 


152 


LDA 


B.REG 


; STACK B.REG 


EFAB 


48 






153 


PHA 






EFAC 


A9 


EF 




154 


LDA 


#<DM.RTN-1 


; STACK RETURN ADDRESS 


EFAE 


48 






155 


PHA 






EFAF 


A9 


C8 




156 


LDA 


#>DM.RTN-1 




EFBl 


48 






157 


PHA 






EFB2 








158 


* 






EFB2 


BD 


3E 


EF 


159 


LDA 


SDT.BANK,X 


; SELECT RAM BANK 


EFB5 


8D 


EF 


FF 


160 


STA 


B.REG 




EFB8 


BD 


25 


EF 


161 


LDA 


SDT.ADRH,X 


; STACK DRIVER ENTRY POINT ADDRESS 


EFBB 


48 






162 


PHA 






EFBC 


BD 


OC 


EF 


163 


LDA 


SDT.ADRL,X 




EFBF 


48 






164 


PHA 






EFCO 








165 








EFCO 


AD 


DF 


FF 


166 


LDA 


E.REG 


; SWITCH IN I/O BANK 


EFC3 


09 


40 




167 


ORA 


#$40 




EFC5 


8D 


DF 


FF 


168 


STA 


E.REG 




EFC8 


60 






169 


RTS 




; AND, "JSR" TO DEVICE DRIVER 


EFC9 








170 


* 






EFC9 


AD 


DF 


FF 


171 


DM.RTN LDA 


E.REG 


; SWITCH OUT I/O BANK 


EFCC 


29 


BF 




172 


AND 


#$BF 




EFCE 


8D 


DF 


FF 


173 


STA 


E.REG 




EFDl 


68 






174 


PLA 




; RESTORE B.REG 


EFD2 


8D 


EF 


FF 


175 


STA 


B.REG 




EFD5 


38 






176 


SEC 






EFD5 


AD 


00 


00 


177 


LDA 


SERR 


; RETRIEVE ERROR CODE 


EFD9 


DO 


01 


EFDC 


178 


BNE 


DM017 


; ENSURE CARRY CLEARED IF NO ERROR 


EFDB 


18 






179 


CLC 






EFDC 


60 






180 


DM017 RTS 




; AND, EXIT TO CALLER 
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EFDD 








182 








******* 


* * * * 


******* 


* * * * 


******** 


********* 


************************************************************* 


EFDD 








183 


* D. INFO (IN.DNUM, OUT.DNAME, OUT.DEVLIST, IN. LENGTH) SYSTEM CALL 


EFDD 








184 










* * * * 


******* 




^, ^, ^, ^, ^, ^, ^, 


^, ^, ^, ^, ^, ^, ^, ^, ^, 




EFDD 






EFDD 


185 


D . INFO 


EQU 


* 


EFDD 








186 


* 






EFDD 


A6 


CI 




187 




LDX 


I.DNUM ; GET DNUM PARM 


EFDF 


FO 


05 


EFE6 


188 




BEQ 


DM020 ; WITHIN BOUNDS? 


EFEl 


EC 


D9 


EE 


189 




CPX 


MAX . DNUM ; " 


EFE4 


90 


05 


EFEB 


190 




BCC 


DM030 


EFE6 


A9 


00 




191 


DM020 


LDA 


#>BADDNUM ; NO, DNUM TOO LARGE 


EFE8 


20 


00 


00 


192 




JSR 


SYSERR ; ERROR EXIT 


EFEB 








193 








EFEB 








194 


* MOVE 


PARMS FM 


SDT ENTRY (DEV INFO BLOCK) TO CALLER'S 


EFEB 








195 


* FARM 


LIST 




EFEB 








196 


* 






EFEB 


20 


48 


FO 


197 


DM030 


JSR 


SETUP. SDT ; SET UP ZPAGE PTR TO SDT ENTRY 


EFEE 








198 


* 






EFEE 








199 


* OUPUT 


DNAME PARM 


EFEE 








200 








EFEE 


Bl 


DO 




2 01 




LDA 


(SDTP),Y ; LOAD PARM'S BYTE COUNT 


EFFO 


A8 






202 




TAY 




EFFl 


Bl 


DO 




203 


DM040 


LDA 


(SDTP) , Y 


EFF3 


91 


C2 




204 




STA 


(I .DNAME) , Y 


EFF5 


88 






205 




DEY 




EFF6 


10 


F9 


EFFl 


206 




BPL 


DM040 


EFF8 








207 


* 






EFF8 








208 


♦ OUTPUT DEVINFO 


PARM (SLOT, UNIT, DEVID,PRODCODE) 


EFF8 








209 








EFF8 


A9 


11 




210 




LDA 


#DIB.SLOT 


EFFA 


18 






211 




CLC 


; ADVANCE SDTP TO 2ND PARM IN SDT 


EFEB 


55 


DO 




212 




ADC 


SDTP 


EFFD 


85 


DO 




213 




STA 


SDTP 


EFFF 


90 


02 


F003 


214 




BCC 


DM045 


FOOl 


E6 


Dl 




215 




INC 


SDTP+1 


F003 


A4 


C6 




216 


DM045 


LDY 


I. LENGTH ; LOAD BYTE COUNT 


F005 


FO 


OE 


F015 


217 




BEQ 


DM. EXIT ; IF THEN DONE 


F007 


88 






218 




DEY 




F008 


CO 


OB 




219 




CPY 


#SB 


FOOA 


90 


02 


FOOE 


220 




BCC 


DM050 


FOOC 


AO 


OA 




221 




LDY 


#$A 


FOOE 


Bl 


DO 




222 


DM050 


LDA 


(SDTP) , Y 


FOlO 


91 


C4 




223 




STA 


(I .DLIST) , Y 


F012 


88 






224 




DEY 




F013 


10 


F9 


FOOE 


225 




BPL 


DM050 


F015 








226 








F015 


18 






227 


DM. EXIT 


CLC 




F016 


60 






228 




RTS 


; NORMAL EXIT 
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F017 








230 










* * * * 


* * * 


* * * * 


******* 


* * * * 


*********** 


****** 


***************** 


******************************************** 


F017 








231 


* GET. DEV. 


NUM ( IN 


.DNAME; OUT.DNUM) 


SYSTEM OALL 


F017 








232 












*** 


**** 






J, ^, ^, ^, ^, ^, ^, 


****** 


***************** 




F017 








233 










F017 






F017 


234 


GET.DNUM 


EQU 






F017 








235 


* 








F017 


:A2 


01 




236 




LDX 


#1 


; SETUP PTR TO 1ST SDT ENTRY 


F019 








237 


* 








F019 


: 20 


48 


FO 


238 


DM070 


JSR 


SETUP . SDT 


; SET UP ZPAGE PTR TO SDT ENTRY 


FOIC 








239 


* 








FOIC 


:B1 


DO 




240 




LDA 


(SDTP) , Y 


; COMPARE DNAME LENGTHS 


FOIE 


:D1 


01 




241 




OMP 


( G . DNAME ) , Y 




F020 


:D0 


IB 


F03D 


242 




BNE 


NXTSDT 




F022 








243 










F022 


: A8 






244 




TAY 




; LENGTHS MATCH, NOW COMPARE CHARS 


F023 


:B1 


01 




245 


DM080 


LDA 


(G. DNAME) , Y 




F025 


:C9 


60 




246 




OMP 


#$60 




F027 


: 90 


02 


F02B 


247 




BOO 


DM0 90 




F029 


: 2 9 


DP 




248 




AND 


#$DF 


; UPSHIFT 


F02B 


: Dl 


DO 




249 


DM090 


OMP 


( SDTP ) , Y 




F02D 


: DO 


OE 


F03D 


250 




BNE 


NXTSDT 




F02F 


: 88 






251 




DEY 






F030 


:D0 


Fl 


F023 


252 




BNE 


DM080 




F032 








253 


* 








F032 


: 8A 






254 




TXA 




; CHARS MATCH 


F033 


: AO 


00 




255 




LDY 


#0 




F035 


: 91 


03 




256 




STA 


(G . DNUM) , Y 


; OUTPUT DEV NUM FARM 


F037 


: AO 


13 




257 




LDY 


#DIB.DTYPE 


; SET "N" FLAG IN STATUS REG. 


F039 


:B1 


DO 




258 




LDA 


(SDTP) , Y 


; N=l (BLOCK DEVICE) N=0 (CHAR DEVICE) 


F03B 


:18 






259 




OLO 






F03C 


: 50 






260 




RTS 




; NORMAL EXIT 


F03D 








261 


* 








F03D 


:E8 






262 


NXTSDT 


I NX 




; LAST SDT ENTRY? 


F03E 


:EC 


D9 


EE 


263 




OPX 


MAX . DNUM 




F041 


: 90 


D6 


F019 


264 




BOO 


DM07 




F043 








265 


* 








F043 


:A9 


00 




266 




LDA 


#>NODNAME 


; ERROR, DNAME NOT FOUND IN SDT 


F045 


:20 


00 


00 


267 




JSR 


SYSERR 


; RETURN TO CALLER 
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F048: 
* * * * * 



269 



******* 



F048 : 








270 


* SETUP 


. SDT (IN. X 


=DNUM, OUT.SDTP 


F048 : 








271 










.* 


.*. 


*.*.*.*. 




******* 




**************** 


F048: 






F048 


272 


SETUP. SDT EQU 




F048 : 


BD 


DA 


EE 


273 




LDA 


SDT . DIBL, X 


F04B : 


as 


DO 




274 




STA 


SDTP 


F04D : 


BD 


F3 


EE 


27S 




LDA 


SDT.DIBH,X 


F050 : 


as 


Dl 




276 




STA 


SDTP+1 


F052 : 


BD 


3E 


EF 


277 




LDA 


SDT . BANK, X 


F055 : 


8D 


EF 


FF 


278 




STA 


B . REG 


F058 : 


AO 


00 




279 




LDY 


#0 


F05A: 


8C 


Dl 


00 


280 




STY 


SXPAGE+SDTP+1 


F05D: 


60 






281 




RTS 




FOSE: 








282 








FOSE: 








283 




LST 


ON 


FOSE: 






FOSE 


284 


ZZEND 


EQU 




FOSE: 






oias 


285 


ZZLEN 


EQU 


ZZEND-ZZORG 


FOSE: 






0000 


286 




IFNE 


ZZLEN-LENDMGR 


S 








287 




FAIL 


2, "SOSORG 


FOSE: 








288 




FIN 





Y=0) 



X=" UNCHANGED" 



SET UP ZPAGE PTR TO SDT ENTRY 
(POINTS TO DNAME FIELD) 



FILE IS INCORRECT FOR DEVMGR" 
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FFEF 


B.REG 


XOOOF 


BADDNUM 


3200 


BLABFM 


6B52 


BLABUFMG 


64D9 


BLADMGR 


68F4 


BLAFMGR 


55C0 


BLAIPL 


2000 


BLALODR 


5466 


BLAPATCH 


665E 


BLASCMGR 


NOOOD 


BLKD .SIZE 


NEF7 


BLKDLST 


13 


DIB . DTYPE 


11 


DIB . SLOT 


EF88 


DM000 


EF9E 


DM0 05 


EFE6 


DM020 


EFEB 


DM030 


FOOE 


DM050 


F019 


DM070 


NEF7D 


DMGR 


CI 


DNUM 


CI 


G . DNAME 


C3 


G . DNUM 


C2 


I . DNAME 


CI 


I . DNUM 


2266 


LENBFM 


031C 


LENBUFMG 


0185 


LENDMGR 


61 


LENFMGR 


OAFS 


LENLODR 


70751 


LENMEMMG 


0296 


LENSCMGR 


D5 


LENSERR 


XOOOE 


NODNAME 


F03D 


NXTSDT 


F552 


ORGBUFMG 


F355 


ORGCFM 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


CO 


REQCODE 


NEF25 


SDT . ADRH 


NEEF3 


SDT.DIBH 


NEEDA 


SDT.DIBL 


DO 


SDTP 


XOOOD 


SERR 


XOOlO 


SYSDEATH 


XOOOC 


SYSERR 


EED9 


ZZORG 







** SUCCESSFUL ASSEMBLY := NO ERRORS 

** ASSEMBLER CREATED ON 30-APR-85 22:46 

** TOTAL LINES ASSEMBLED 347 

** FREE SPACE PAGE COUNT 84 



XOOll 


BADSYSCALL 


72E00 


BLABFMI 


6955 


BLACFM 


5E99 


BLADISK3 


72CF8 


BLAGLOB 


72AF8 


BLAINIT 


?6E6E 


BLAMEMMG 


5466 


BLAOMSG 


6404 


BLASERR 


5A8B 


BLAUMGR 


EFDD 


D . INFO 


CO 


D . TPARMX 


F015 


DM. EXIT 


EFC9 


DM.RTN 


EFA3 


DM010 


EFDC 


DM017 


EFFl 


DM040 


F003 


DM045 


F023 


DM080 


F02B 


DM0 90 


EF95 


DRIVER 


FFDF 


E . REG 


F017 


GET . DNUM 


C4 


I .DLIST 


C6 


I . LENGTH 


70400 


LENBFMI 


OlFD 


LENCFM 


056B 


LENDISK3 


?01B2 


LENINIT 


04CB 


LENIPL 


015A 


LENOMSG 


00 


LENPATCH 


040E 


LENUMGR 


NEED9 


MAX . DNUM 


B800 


ORGBFMI 


BCOO 


ORGBFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


EE04 


ORG SERR 


E48B 


ORGUMGR 


NEFOC 


SDT . ADRL 


NEF3E 


SDT. BANK 


N0019 


SDT .SIZE 


NEF57 


SDT. UNIT 


F048 


SETUP . SDT 


X0012 


SXPAGE 


F05E 


ZZEND 


0185 


ZZLEN 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


595S 


ss 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


S6 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 














FOSE 


FOSE 


4 


ORG 


ORGSCMGR 


FOSE 


FOSE 


5 


ZZORG EQU 




FOSE 




6 


MSB 


OFF 


FOSE 




7 


**************** 


******************************************** 


FOSE 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


FOSE 




9 


* 


ALL RIGHTS RESERVED 


FOSE 




10 


**************** 


************** + ***************************** 


FOSE 




11 






FOSE 




12 


* SYSTEM CALL MANAGER (VERSION =1.10 ) 


FOSE 




13 


* 


(DATE = 8/04/81) 


FOSE 




14 


* 




FOSE 




IS 


* THE SYSTEM CALL MANAGER: 


FOSE 




15 


* (1) RETRIEVE THE SYSCALL #, 


FOSE 




17 


* (2) DETERMINE 


THE LOCATION OF THE SYSTEM CALL PARMS AND 


FOSE 




18 


* MOVE THEM 


10 THE SOS ZPAGE, 


FOSE 




19 


* (3) TRANSFER CONTROL TO THE APPROPRIATE INTERFACE MANAGER, 


FOSE 




20 


* (FILE, DEVICE, UTILITY, MEMORY) 


FOSE 




21 


* 




FOSE 




22 


**************** 


******************************************** 


FOSE 




23 


* 




FOSE 


F0F6 


24 


ENTRY 


SCMGR 


FOSE 




2S 


* 




FOSE 


0000 


26 


EXTRN 


FMGR 


FOSE 


0000 


27 


EXTRN 


DMGR 


FOSE 


0000 


28 


EXTRN 


UMGR 


FOSE 


0000 


29 


EXTRN 


MMGR 


FOSE 


0000 


30 


EXTRN 


DBUGBRK 


FOSE 




31 


* 




FOSE 


0000 


32 


EXTRN 


SYSERR 


FOSE 


0000 


33 


EXTRN 


SERR 


FOSE 


0000 


34 


EXTRN 


BADSCNUM 


FOSE 


0000 


3S 


EXTRN 


BADCZPAGE 


FOSE 


0000 


36 


EXTRN 


BADXBYTE 


FOSE 


0000 


37 


EXTRN 


BADSCPCNT 


FOSE 


0000 


38 


EXTRN 


BADSCBNDS 


FOSE 




39 


* 




FOSE 


0000 


40 


EXTRN 


S ZPAGE 


FOSE 


0000 


41 


EXTRN 


SXPAGE 


FOSE 


0000 


42 


EXTRN 


CZPAGE 


FOSE 


0000 


43 


EXTRN 


CXPAGE 


FOSE 


0000 


44 


EXTRN 


CSPAGE 
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AUGUST-2006 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



SYSTEM CALL PARAMETER DEFINITION TABLES 

EACH ENTRY IS FOUR BYTES LONG. THE FIRST BYTE CONTAINS THE 

NUMBER OF FARMS IN THE CALL. THE REMAINING SIX NIBBLES, EACH 

DEFINE A PARAMETER IN THE CALL. THE FIRST BIT OF THE 

NIBBLE DEFINES WHETHER THE FARM IS INPUT (0) OR OUTPUT (1) . 

THE NEXT BIT DEFINES WHETHER THE PARM IS BY VALUE (0) 

OR BY REFERENCE (1) . THE FINAL TWO BITS SPECIFY THE 

PARM LENGTH IN BYTES (E.G. 0=LENGTH OF 1, 3=LENGTH OF 4 BYTES) 



F05E 










60 


* 


FILE 


SYSTEM 


CALL DEFINITIONS 








F05E 










61 


* 
















F05E 








0013 


62 


FSC 


CNT 


EQU 


$13 










F05E 






FOSE 


63 


FSC 


TBL 


EQU 












F05E 


03 


5D 


00 


00 


64 






DFB 


$3, $5D 


$00, $00 


SCNUM=$CO 




CREATE 


F062 


01 


50 


00 


00 


65 






DFB 


$1, $50 


$00, $00 


" =$C1 




DESTROY 


F066 


02 


55 


00 


00 


66 






DFB 


$2, $55 


$00, $00 


" =$C2 




RENAME 


F06A 


03 


5D 


00 


00 


67 






DFB 


$3, $5D 


$00, $00 


" =$C3 




SET. FILE . INFO 


F06E 


03 


5D 


00 


00 


68 






DFB 


$3, $5D 


$00, $00 


" =$C4 




GET. FILE . INFO 


F072 


04 


55 


99 


00 


69 






DFB 


$4, $55 


$99, $00 


" =$C5 




VOLUME 


F076 


01 


50 


00 


00 


70 






DFB 


$1, $50 


$00, $00 


" =$C6 




SET. PREFIX 


F07A 


02 


50 


00 


00 


71 






DFB 


$2, $50 


$00, $00 


" =$C7 




GET. PREFIX 


F07E 


04 


58 


DO 


00 


72 






DFB 


$4, $58 


$D0, $00 


" =$C8 




OPEN 


F082 


03 


00 


00 


00 


73 






DFB 


$3, $00 


$00, $00 


" =$C9 




NEW. LINE 


F086 


04 


05 


19 


00 


74 






DFB 


$4, $05 


$19, $00 


" =$CA 




READ 


F08A 


03 


05 


10 


00 


75 






DFB 


$3, $05 


$10, $00 


" =$CB 




WRITE 


F08E 


01 


00 


00 


00 


76 






DFB 


$1, $00 


$00, $00 


" =$CC 




CLOSE 


F092 


01 


00 


00 


00 


77 






DFB 


$1, $00 


$00, $00 


" =$CD 




FLUSH 


F096 


03 


00 


30 


00 


78 






DFB 


$3, $00 


$30, $00 


" =$CE 




SET. MARK 


F09A 


02 


OB 


00 


00 


79 






DFB 


$2, $0B 


$00, $00 


" =$CF 




GET. MARK 


F09E 


03 


00 


30 


00 


80 






DFB 


$3, $00 


$30, $00 


" =$D0 




SET. EOF 


F0A2 


02 


OB 


00 


00 


81 






DFB 


$2,$0B 


$00, $00 


" =$D1 




GET. EOF 


F0A6 


01 


00 


00 


00 


82 






DFB 


$1, $00 


$00, $00 


" =$D2 




SET. LEVEL 


FOAA 


01 


80 


00 


00 


83 






DFB 


SI, $80 


$00, $00 


" =$D3 




GET . LEVEL 



Apple /// SOS Operating System Source Code Listing | 
Assembly Listing Produced by Paul R. Santa-Maria 



Version 1.3 | Apple Computer | 1982 
I August 2006 | Page 21 6 of 456 



02 SCMGR.SRC 


SOS 


1 . 1 


SYSTEM 


CALL MANAGER AUGUST- 


2006 


PAGE 5 


FOAE 








85 


* 














FOAE 








86 


* 


DEVICE 


SYSTEM GALL DEFINITIONS 








FOAE 








87 
















FOAE 






0005 


88 


DSC 


CNT 


EQU 


5 








FOAE 






FOAE 


89 


DSC 


TBL 


EQU 










FOAE 


05 


05 


11 90 


90 






DFB 


$5, $05, Sll, S90 


SCNUM=$80 


- D . READ 


F0B2 


04 


05 


11 00 


91 






DFB 


$4, $05, $11, $00 




=$81 


- D. WRITE 


FOBS 


03 


00 


50 00 


92 






DFB 


$3, SOO, SbO, $00 




=$82 


- D. STATUS 


FOBA 


03 


00 


50 00 


93 






DFB 


$3, $00, $bO, $00 




=$83 


- D. CONTROL 


FOBE 


02 


58 


00 00 


94 






DFB 


S2, $58, $00, $00 




=$84 


- GET.DEV.NUM 


F0C2 


04 


05 


DO 00 


95 






DFB 


$4, $05, $D0, $00 




=$85 


- D . INFO 


F0C6 








96 


* 














F0C6 








97 


* 


UTILITY SYSTEM CALL DEFINITIONS 






F0C6 








98 
















F0C6 






0005 


99 


use 


CNT 


EQU 


5 








F0C6 






F0C6 


100 


use 


TBL 


EQU 










F0C5 


01 


00 


00 00 


101 






DFB 


$1, $00, $00, $00 


SCNUM=$60 


- SET. FENCE 


FOCA 


01 


80 


00 00 


102 






DFB 


$1, $80, $00, $00 




=$61 


- GET. FENCE 


FOCE 


01 


50 


00 00 


103 






DFB 


$1, $50, $00, $00 




=$62 


- SET. TIME 


F0D2 


01 


50 


00 00 


104 






DFB 


$1, $50, $00, $00 




=$63 


- GET. TIME 


F0D6 


02 


OB 


00 00 


105 






DFB 


$2, $0B, $00, $00 




=$64 


- JOYSTICK 


FODA 


00 


00 


00 00 


106 






DFB 


$0, $00, $00, $00 




=$65 


- GOLD . START 


FODE 








107 
















FODE 








108 




MEMORY 


SYSTEM GALL DEFINITIONS 








FODE 








109 
















FODE 






0005 


110 


MSG 


CNT 


EQU 


5 








FODE 






FODE 


111 


MSG 


TBL 


EQU 










FODE 


04 


11 


08 00 


112 






DFB 


$4, $11, $08, $00 


SCNUM=$40 


- REQUEST . SEG 


F0E2 


06 


00 


99 98 


113 






DFB 


$6, $00, $99, $98 




=$41 


- FIND . SEG 


F0E6 


03 


00 


90 00 


114 






DFB 


$3, $00, $90, $00 




=$42 


- CHANGE. SEG 


FOEA 


05 


09 


99 80 


115 






DFB 


$5, $09, $99, $80 




=$43 


- GET. SEG. INFO 


FOEE 


02 


18 


00 00 


116 






DFB 


$2, $18, $00, $00 




=$44 


- GET.SEG.NUM 


F0F2 


01 


00 


00 00 


117 






DFB 


$1, $00, $00, $00 




=$45 


- RELEASE. SEG 


F0F6 








118 


* 














F0F5 








119 


* 


DEBUG 


SYSTEM 


CALL DEFINITION 








F0F6 








120 


* 














F0F6 






OOFE 


121 


DBUG 


EQU 


$FE 









Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 21 7 of 456 



02 SCMGR.SRC 



SOS 1.1 SYSTEM CALL MANAGER AUGUST-2006 PAGE 6 



F0F6 




123 


********* 


****** 


************** 


******************************* 


F0F6 




124 


* 








F0F6 




125 


* DATA DECLARATIONS 




F0F6 




126 










F0F6 




127 








******************************* 


F0F6 


FFDO 


128 


Z.REG 


EQU 


$FFD0 




F0F6 


OlFF 


129 


SP . SAVE 


EQU 


$01FF 




F0F6 


OlFD 


130 


Z . SAVE 


EQU 


$01FD 




F0F5 


OlFC 


131 


B . SAVE 


EQU 


$01FC 




F0F6 




132 


* 








F0F6 


2000 


133 


ADR . LOW 


EQU 


$2000 


; LOW ADDRESS (BOUNDS CHECKING) 


F0F6 


B800 


134 


ADR. HIGH 


EQU 


$B800 


; HIGH ADDRESS 


F0F6 


AO GO 


135 


ADR. MID 


EQU 


$A000 


; MIDDLE ADDRESS 


F0F6 




136 










F0F6 




137 


* SCMGR'S 


VARIABLES 




F0F6 




138 










F0F6 


OOEO 


139 


SCM.VARS 


EQU 


$E0 




F0F6 


OOEO 


140 


SCNUM 


EQU 


SCM.VARS+0 


; SYSTEM CALL NUMBER 


F0F6 


OOEO 


141 


SCRNUM 


EQU 


SCM.VARS+0 


; SYSTEM CALL REQUEST NUMBER 


F0F6 


OOEl 


142 


SCPTR 


EQU 


SCM.VARS+1 


;&2 SYSTEM CALL POINTER 


F0F6 


00E3 


143 


MOVE.VARS 


EQU 


SCPTR+2 


; ! ! (LOOKOUT) ! ! 


F0F6 




144 


* 








F0F6 




145 










F0F6 


GOAO 


146 


F . TPARMX 


EQU 


$A0 


; FILE SYS CALL FARM START LOG 


F0F6 


COCO 


147 


D . TPARMX 


EQU 


$C0 


; DEVICE SYS CALL PARM START LOC 


F0F5 


ooco 


148 


U . TPARMX 


EQU 


SCO 


; UTILITY SYS CALL PARM START LOC 


F0F6 


0060 


149 


M. TPARMX 


EQU 


$60 


; MEMORY SYS CALL PARM START LOC 


F0F6 




150 










F0F6 




151 


* MOVE.PARM'S VARIABLES 




F0F6 




152 










F0F6 


00E3 


153 


TPARMX 


EQU 


MOVE.VARS+O 


; TARGET ADR OF SYS CALL PARMS 


F0F6 


00E4 


154 


DFN.PTR 


EQU 


MOVE.VARS+1 


; S2 


F0F6 


00E6 


155 


DFN.PTRX 


EQU 


MOVE.VARS +3 




F0F5 


00E7 


155 


SCPTRX 


EQU 


MOVE.VARS +4 




F0F5 


00E8 


157 


RGHT.NIB 


EQU 


MOVE.VARS +5 




F0F6 


00E9 


158 


SCT.DFN 


EQU 


MOVE.VARS +6 




F0F6 


OOEA 


159 


SCT.DCNT 


EQU 


MOVE.VARS +7 




F0F6 


OOEB 


160 


PARM.CNT 


EQU 


MOVE.VARS +8 
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F0F6 








162 


* 


*************** 


******************************************** 


F0F6 








163 


* 






F0F6 








164 


* 


SYSTEM CALL MANAGER 


F0F6 








1 65 








F0F6 








166 






******************************************** 


F0F6 








167 








F0F6 






F0F6 


168 


SCMGR EQU 




F0F6 


A9 


00 




169 




LDA 


#<SZPAGE ; SET Z REG TO SOS ZPAGE 


F0F8 


8D 


DO 


FF 


170 




STA 


Z.REG 


FOFB 








171 


* 






FOFB 








172 


* 


SET SYSTEM X BYTES TO ABSOLUTE ADDRESS MODE. 


FOFB 








173 








FOFB 


A9 


00 




174 




LDA 


#0 


FOFD 


8D 


E2 


00 


175 




STA 


SXPAGE+SCPTR+1 


FlOO 


BD 


00 


00 


176 




STA 


SERR ; AND INIT SYSTEM ERR CODE 


F103 








177 








F103 








178 


* 


CALLER'S Z REG 


MUST BE $1A ! ! 


F103 








179 


* 


(B REG NOT CHECKED) 


F103 








180 


* 






F103 


AD 


FD 


01 


181 




LDA 


Z . SAVE 


F106 


C9 


00 




182 




CMP 


#<CZPAGE 


F108 


FO 


05 


FIOF 


183 




BEQ 


SCM005 


FlOA 


A9 


00 




184 




LDA 


#>BADCZPAGE 


FIOC 


20 


00 


00 


185 




JSR 


SYSERR ; EXIT TO DISPATCHER 


FIOF 








186 








FIOF 








187 


* 


RETRIEVE CALLER'S PC ON HIS STACK 


FIOF 








188 


* 






FIOF 


AE 


FF 


01 


189 


SCM005 LDX 


SP . SAVE 


F112 


BD 


06 


00 


1 90 




LDA 


CSPAGE+6,X 


F115 


85 


E2 




191 




STA 


SCPTR+1 


F117 


BD 


05 


00 


192 




LDA 


CSPAGE+5,X 


FllA 


85 


El 




193 




STA 


SCPTR 


Flic 


DO 


02 


F120 


194 




BNE 


SCMOlO ; AND POINT IT TO SYS CALL 


FllE 


C6 


E2 




195 




DEC 


SCPTR+1 


F120 


C6 


El 




196 


SCMOlO DEC 


SCPTR 


F122 








197 


* 






F122 








198 




ADVANCE CALLER 


'S PC ON HIS STACK. 


F122 








199 








F122 


18 






200 




CLC 




F123 


BD 


05 


00 


201 




LDA 


CSPAGE+5,X 


F126 


69 


02 




202 




ADC 


#2 


F128 


9D 


05 


00 


203 




STA 


CSPAGE+5,X 


F12B 


90 


03 


F130 


204 




BCC 


SCM020 


F12D 


FE 


06 


00 


205 




INC 


CSPAGE+6,X 


F130 








206 


* 






F130 








207 




RETRIEVE SYSTEM CALL NUMBER 


F130 








208 








F130 


AO 


00 




209 


SCM020 LDY 


#0 


F132 


Bl 


El 




210 




LDA 


(SCPTR) , Y 


F134 


C9 


FE 




211 




CMP 


#DBUG 


F136 


DO 


03 


F13B 


212 




BNE 


SCM025 


F138 


20 


00 


00 


213 




JSR 


DBUGBRK ; DEBUG SYSTEM CALL 


F13B 


85 


EO 




214 


SCM025 STA 


SCNUM 


F13D 








215 








F13D 








216 




RETRIEVE SYSTEM CALL PARAMETER ADDRESS 


F13D 








217 


* 
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F13D; 


;C8 






218 




INY 






F13E ; 


; A2 


El 




219 




LDX 


#>SCPTR 




F140 ; 


: 20 


64 


F2 


220 




JSR 


POINTER 




F143 : 


: 90 


01 


F14 6 


221 




BCC 


SCM030 




F145 ; 


: 60 






222 




RTS 




; ERROR EXIT 


F146 ; 








223 










F146 ; 








224 


* CASE 


INTERFACE 


CODE OF SYSTEM CALL NUMBER 


F146 ; 








225 


* (INTERFACE CODE STRIPPED, 


LEAVING REQUEST CODE) 


F145; 








226 


* 








F145; 


; A9 


20 




227 


SCM030 


LDA 


#$20 




F148 ; 


; 24 


EO 




228 




BIT 


SCNUM 




F14A; 


; 10 


2C 


F178 


229 




BPL 


SCM050 




F14C ; 


:A5 


EO 




230 




LDA 


SCNUM 




F14E ; 


;29 


3F 




231 




AND 


#$3F 




F150 ; 


; 85 


EO 




232 




STA 


SCRNUM 




F152 ; 


; 50 


12 


F166 


233 




BVC 


SCM040 




F154 ; 








234 


* 








F154 ; 


; A9 


AO 




235 




LDA 


#F . TPARMX 


; "IIXXXXXX" - JMP 


F155; 


; 85 


E3 




235 




STA 


TPARMX 




F158 ; 


; A2 


5E 




237 




LDX 


#>FSC.TBL 




F15A; 


: AO 


FO 




238 




LDY 


#<FSC . TBL 




F15C: 


: A9 


13 




239 




LDA 


#FSC . CNT 




F15E : 


: 20 


AD 


Fl 


240 




JSR 


MOVE . FARMS 




Fl 51 ; 


: BO 


47 


FIAA 


241 




BCS 


SCM.ERRl 


; ERR EXIT 


F163 : 


: 4C 


00 


00 


242 




JMP 


FMGR 




F165; 








243 










F156 ; 


; A9 


CO 




244 


SCM040 


LDA 


#D . TPARMX 


; "lOXXXXXX" - JMP 


Fl 68 : 


: 85 


E3 




245 




STA 


TPARMX 




F16A: 


: A2 


AE 




246 




LDX 


#>DSC . TBL 




F16C: 


:A0 


FO 




247 




LDY 


#<DSC . TBL 




F16E ; 


;A9 


05 




248 




LDA 


#DSC . CNT 




F170 ; 


I 20 


AD 


Fl 


249 




JSR 


MOVE . FARMS 




F173 ; 


;B0 


35 


FIAA 


250 




BCS 


SCM.ERRl 


; ERR EXIT 


F175 ; 


; 4C 


00 


00 


251 




JMP 


DMGR 




F178 ; 








252 


* 








F178 ; 


; 50 


2E 


F1A8 


253 


SCM050 


BVC 


SCM.ERR 




F17A; 


: 08 






254 




PHP 






F17B : 


: A5 


EO 




255 




LDA 


SCNUM 




F17D; 


: 2 9 


IF 




256 




AND 


#$1F 




F17F : 


: 85 


EO 




257 




STA 


SCRNUM 




F181 : 


;28 






258 




PLP 






F182 ; 


;F0 


12 


F196 


259 




BEQ 


SCM060 




F184 ; 








260 


* 








F184 ; 


;A9 


CO 




261 




LDA 


#U . TPARMX 


; "OllXXXXX" - JMP 


F186 ; 


; 85 


E3 




262 




STA 


TPARMX 




F188 ; 


: A2 


C6 




2 63 




LDX 


#>USC . TBL 




F18A: 


: AO 


FO 




2 64 




LDY 


#<USC . TBL 




F18C; 


:A9 


05 




265 




LDA 


#USC.CNT 




F18E; 


:20 


AD 


Fl 


266 




JSR 


MOVE . FARMS 




F191: 


:B0 


17 


FIAA 


267 




BCS 


SCM.ERRl 


; ERR EXIT 


F193; 


:4C 


00 


00 


268 




JMP 


UMGR 




F196; 








269 


* 








F196: 


:A9 


60 




270 


SCM0 60 


LDA 


#M. TPARMX 


; "OlOXXXXX" - JMP 


F198: 


:85 


E3 




271 




STA 


TPARMX 




F19A; 


:A2 


DE 




272 




LDX 


#>MSC.TBL 




F19C; 


:A0 


FO 




273 




LDY 


#<MSC.TBL 





TO FILE MANAGER. 



TO DEVICE MANAGER. 
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F19E:A9 05 
F1A0:20 AD Fl 
F1A3:B0 05 F 
F1A5:4C 00 00 
F1A8 : 

F1A8:A9 00 
F1AA:20 00 00 



274 
275 

276 
277 

278 ♦ 

279 SCM.ERR 
2 80 SCM.ERRl 



LDA 
JSR 
BCS 
JMP 

LDA 
JSR 



#MSC . CNT 
MOVE . FARMS 
SCM.ERRl 
MMGR 

#>BADSCNUM 
SYSERR 



ERR EXIT 



ERROR, INVALID SYSTEM CALL NUMBER. 
EXIT TO DISPATCHER ON ERROR 
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FIAD 








282 


* 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


FIAD 








283 


* 




FIAD 








284 


* 


MOVE . PARMS 


FIAD 








285 


-1, 




FIAD 








286 




MOVES THE CALLER'S PARAMETERS TO THE OPERATING SYSTEM'S 


F 1 AD 








287 




ZERO PAGE ACCORDING TO THE SPECIFICATIONS CONTAINED 


FIAD 








288 




IN THE SPECIFIED SYS CALL DFN TABLE. 


FIAD 








289 


* 




FIAD 








290 


* 


INPUT: (A) = MAX # ENTRIES IN FARM DFN TABLE 


FIAD 








291 


* 


(X) = FARM DFN TBL ADR (LO) 


FIAD 








292 


* 


(Y) = " (HI) 


FIAD 








293 




SCPTR = ADR OF CALLER'S SYS CALL PARMS 


FIAD 








2 94 




ERROR: CARRY SET (SYSERR) 


FIAD 








2 95 






FIAD 








2 96 




AA*A*A*A*A*AAA*AAA*AAA*A*A*AAA*AAA*A*A*A*A*A*A*AAA*A*A*A*A* 


FIAD 








2 97 






FIAD 






FIAD 


298 


MOVE. FARMS EQU * 


FIAD 


86 


E4 




299 




SIX DFN.PTR ; SAVE ADR OF DEFINITION TABLE 


FIAF 


84 


E5 




300 




STY DFN.PTR+1 


FlBl 








301 


* 




FlBl 








302 


* 


IF REQ NUM > MAX REQ NUM (A REG) 


FlBl 








303 






FlBl 


C5 


EG 




304 




CMP SCRNUM 


F1B3 


BO 


04 


F1B9 


305 




BCS MOVEOlO 


F1B5 








306 






F1B5 








307 


A 


THEN ERR (BAD SYS CALL NUM) 


F1B5 








308 


A 




F1B5 


A9 


00 




309 




LDA #>BADSCNUM 


F1B7 


90 


18 


FlDl 


310 




BCC SYSERRl /BRANCH ALWAYS TAKEN 


F1B9 








311 






F1B9 








312 


A 


CALCULATE DEFINITION TABLE INDEX 


F1B9 








313 


A 


AND INIT SYS CALL PARM INDEX 


F1B9 








314 


A 




F1B9 


A5 


EO 




315 


MOVEOlO LDA SCRNUM 


FIBB 


OA 






316 




ASL A 


FIBC 


OA 






317 




ASL A 


FIBD 


85 


E6 




318 




STA DFN.PTRX 


FIBF 


A9 


00 




319 




LDA #0 


FlCl 


8D 


E5 


00 


320 




STA SXPAGE+DFN.PTR+1 ; AND X BYTE 


F1C4 


85 


E7 




321 




STA SCPTRX 


F1C6 








322 


A 




F1C6 








323 


A 


IF SCPTR(SCPTRX) <>DFN.PTR(DFN.PTRX) THEN ERR 


F1C5 








324 


A 




F1C6 


A8 






325 




TAY 


F1C7 


Bl 


El 




326 




LDA ( SCPTR), Y 


F1C9 


A4 


E6 




327 




LDY DFN.PTRX 


FICB 


Dl 


E4 




328 




CMP (DFN.PTR),Y 


FICD 


FO 


05 


F1D4 


329 




BEQ INITLOOPCT 


FICF 








330 






FICF 


A9 


00 




331 




LDA #>BADSCPCNT ; ERR, CALLER'S PARM COUNT INVALID 


FlDl 


20 


00 


00 


332 


SYSERRl JSR SYSERR ; EXIT 


F1D4 








333 


A 




F1D4 








334 


A 


INIT LOOP CTR (PARM.CNT) TO # OF PARMS IN SYS CALL 


F1D4 








335 


A 




F1D4 


85 


EB 




336 


INITLOOPCT STA PARM.CNT 


F1D6 








337 


A 
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F1D5 






338 


* 


ADVANCE PTRS 


F1D6 






339 


* 




F1D6 






340 






F1D6 


E6 


E7 


341 




INC SCPTRX 


F1D8 


E6 


E6 


342 




INC DFN.PTRX 


FIDA 






343 






FIDA 






344 




MOVE REQ CODE TO SYS ZPAGE PARM LIST 


FIDA 






345 


* 


AND ADVANCE SYS ZPAGE PTR (X=TPARMX) 


FIDA 






346 


* 




FIDA 


A5 


EO 


347 




LDA SCRNUM 


FIDC 


A6 


E3 


348 




LDX TPARMX 


FIDE 


95 


00 


349 




STA 0,X 


FlEO 


E8 




350 




I NX 


FlEl 






351 






FlEl 






352 




INIT NIBBLE FLAG TO "RIGHT" NIBBLE 


FlEl 






353 




ZERO STATE="LEFT" NIBBLE 


FlEl 






354 


* 




FlEl 


A9 


FF 


355 




LDA #$FF 


F1E3 


85 


E8 


355 




STA RGHT.NIB 


F1E5 






357 


* 


**************************************************** 


F1E5 






358 


* 




F1E5 






359 




BEGIN PARAMETER PROCESSING LOOP 


F1E5 






360 






F1E5 


A5 


E8 


361 


PARMLOOP LDA RGHT.NIB 


F1E7 


4 9 


FF 


362 




FOR #$FF ; COMPLEMENT NIBBLE 


F1E9 


85 


E8 


363 




STA RGHT.NIB 


FIEB 






364 


* 




FIEB 






365 




IF "LEFT" NIBBLE 


FIEB 






366 






FIEB 


DO 


10 FIFD 


367 




BNE ELSE.RNIB 


FIED 






368 






FIED 






369 




THEN FETCH SYS CALL PARM DFN 


FIED 






370 


* 


AND # OF BYTES IN PARM WITHIN IT 


FIED 






371 


* 




FIED 


A4 


E6 


372 




LDY DFN.PTRX 


FIEF 


Bl 


E4 


373 




LDA (DFN. PTR), Y 


FlFl 


85 


E9 


374 




STA SCT.DFN 


F1F3 


29 


30 


375 




AND #$30 


F1F5 


4A 




376 




LSR A 


F1F6 


4A 




377 




LSR A 


F1F7 


4A 




378 




LSR A 


F1F8 


4A 




379 




LSR A 


F1F9 


85 


EA 


380 




STA SCT.DCNT 


FIFE 


10 


10 F20D 


381 




BPL VALUE /BRANCH ALWAYS 


FIFD 






382 


* 




FIFD 






383 


* 


ELSE FETCH SYS CALL PARM DFN 


FIFD 






384 




AND # OF BYTES IN PARM WITHIN IT 


FIFD 






385 




FROM "RIGHT" NIBBLE OF DFN BYTE 


FIFD 






386 






FIFD 


A5 


E9 


387 


ELSE.RNIB LDA SCT.DFN 


FIFF 


A8 




388 




TAY 


F200 


29 


03 


389 




AND #$03 


F202 


85 


EA 


390 




STA SCT.DCNT 


F204 


98 




391 




TYA 


F205 


OA 




392 




ASL A 


F206 


OA 




393 




ASL A 
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02 SCMGR.SRC 



SOS 1.1 SYSTEM CALL MANAGER 



AUGUST-2006 



F207 ; 


; OA 






394 


ASL 


A 


F208 ; 


; OA 






395 


ASL 


A 


F209 ; 


: 85 


E9 




396 


STA 


SCT . DFN 


F20B: 


: E6 


E6 




397 


INC 


DFN . PTRX 


F20D; 








398 






F20D ; 








399 






F20D; 








400 


* PARAMETER PAS 


SED BY VALUE 


F20D ; 








401 


* 




F20D ; 








402 


**************** 


******************* 


F20D ; 


; 24 


E9 




403 


VALUE BIT 


SCT. DFN 


F20F ; 


: 70 


31 


F242 


404 


BVS 


REFERENCE 


F211 ; 


; 30 


11 


F224 


405 


BMI 


VAL . OUT 


F213 ; 








406 






F213 ; 








407 


* INPUT BY VALUE 


F213 ; 








408 


* 




F213 ; 


; A4 


E7 




409 


LDY 


SCPTRX 


F215 ; 


;B1 


El 




410 


VAL . IN LDA 


(SCPTR) , Y 


F217 ; 


; 95 


00 




411 


STA 


0,X 


F219; 


;C8 






412 


INY 




F21A; 


:E8 






413 


I NX 




F21B: 


: C6 


EA 




414 


DEC 


SCT.DCNT 


F2 ID : 


: 10 


F6 


F215 


415 


BPL 


VAL . IN 


F21F : 


: 84 


E7 




416 


STY 


SCPTRX 


F221 ; 


: 4C 


59 


F2 


417 


JMP 


ENDLOOPl 


F224 : 








418 






F224 ; 








419 


* OUTPUT BY VALUE 


F224 ; 








420 


* 




F224 : 


: 18 






421 


VAL. OUT CLC 




F225 : 


: A5 


El 




422 


LDA 


SCPTR 


F227 ; 


: 65 


E7 




423 


ADC 


SCPTRX 


F229 ; 


: 95 


00 




424 


STA 


0,X 


F22B ; 


;E8 






425 


I NX 




F22C ; 


;A5 


E2 




425 


LDA 


SCPTR+1 


F22E ; 


; 59 


00 




427 


ADC 


#0 


F230 ; 


: 95 


00 




428 


STA 


0,X 


F232 ; 








42 9 


* 




F232 ; 


: 18 






430 


CLC 




F233 ; 


: A5 


E7 




431 


LDA 


SCPTRX 


F235 : 


: 65 


EA 




432 


ADC 


SCT.DCNT 


F237 : 


■ g5 


E7 




433 


STA 


SCPTRX 


F239 : 








434 


* 




F239 ; 


: AD 


E2 


00 


435 


LDA 


SXPAGE+SCPTR+1 


F23C ; 


; 9D 


00 


00 


435 


STA 


SXPAGE,X 


F23F ; 


; 4C 


56 


F2 


437 


JMP 


ENDL00P2 


F242 ; 








438 


**************** 


******************* 


F242 : 








439 


* 




F242 : 








440 


* PARAMETER PASSED BY REFERENCE 


F242 : 








441 






F242 ; 








442 




******************* 


F242 ; 


:10 


08 


F24C 


443 


REFERENCE BPL 


REFl 


F244; 








444 


* 




F244 ; 








445 


* "LIST" PTR FOUND, CHK IF "LENGTH 


F244 ; 








446 






F244 : 


:A4 


E7 




447 


LDY 


SCPTRX 


F246; 


:C8 






448 


INY 




F247; 


:C8 






449 


INY 





; ADVANCE SYS CALL DFN PTR 



; MOVE BYTES TO ZPAGE 



BUILD PTR TO PARM ON ZPAGE 



; ADVANCE INDEX TO NEXT PARM 



INCLUDE X BYTE 
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02 SCMGR.SRC 


SOS 


1.1 SYSTEM 


CALL 


MANAGER 


AUGUST-2006 PAGE 13 


F248 


Bl 


El 


450 




LDA 


(SCPTR) , Y 




F24A 


FO 


07 F253 


451 




BEQ 


ENDLOOPO 


; "LENGTH" PARM=0, SKIP "LIST" 


F24C 






452 


* 








F24C 


A4 


E7 


453 


REFl 


LDY 


SCPTRX 


; MOVE PTR TO ZPAGE 


F24E 


20 


64 F2 


454 




JSR 


POINTER 




F251 


BO 


10 F263 


455 




BCS 


PARM . ERR 


; ERROR EXIT 


F253 






456 










F253 






457 


* ADVANCE 


SYSTEM 


ZPAGE POINTER 


(X) , CALLER'S PARM PTR. 


F253 






458 


* DECREMENT FARM 


CTR AND CHECK 


IF LAST PARM PROCESSED. 


F253 






459 


* 








F253 


E8 




460 


ENDLOOPO 


I NX 






F254 


E6 


E7 


461 




INC 


SCPTRX 




F256 


E8 




4 62 


ENDL00P2 


I NX 






F257 


E6 


E7 


4 63 




INC 


SCPTRX 




F259 


C6 


EB 


4 64 


ENDLOOPl 


DEC 


PARM.CNT 




F25B 


FO 


05 F262 


4 65 




BEQ 


PARM. EXIT 




F25D 


30 


03 F262 


465 




BMI 


PARM. EXIT 


/SPECIAL FOR 'COLD START' 


F25F 


4C 


E5 Fl 


467 




JMP 


PARMLOOP 




F262 






468 


* 








F262 






469 


* END OF 


PARAMETER PROCESSING 


LOOP 


F262 






470 










F262 






471 


********** 


****** 


*************** 


***************************** 


F262 






472 










F262 


18 




473 


FARM. EXIT 


CLC 




; NO ERRORS 


F263 


60 




474 


FARM . ERR 


RTS 




; RETURN TO SYS CALL MANAGER 
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SOS 


1.1 SYSTEM CALL MANAGER AUGUST-2006 PAGE 1 


F264 








476 


********************************************************* 


F264 








477 


* 


F264 








478 


* POINTER 


F264 








479 




F264 








480 


* INPUT: SRC ADR (SCPTR),Y & (SCPTR),Y+1 


F264 








481 


* DEST ADR (X) 


F264 








482 


* 


F264 








483 


* OUTPUT: SCPTR UNCHANGED 


F264 








484 


* X REG " 


F264 








485 


* A, Y REGS FLATTENED 


F264 








486 


* 


F264 








487 


* ERROR: CARRY SET (SYSERR) 


F264 








488 




F254 








489 


* POINTER. RETRIEVES THE CALLER'S POINTER PARAMETER IN 


F254 








490 


* (SCPTR), Y, PERFORMS ADDRESS COMPENSATION, IF NECESSARY 


F264 








491 


* AND PLACES THE RESULTING POINTER AT X, X+1 AND SXPAGE+1 


F264 








492 


* 


F264 








493 


********************************************************* 


F264 








494 


* 


F264 






F264 


495 


POINTER EQU * 


F264 


Bl 


El 




496 


LDA (SCPTR) , Y 


F266 


48 






4 97 


PHA 


F267 


C8 






4 98 


INY 


F268 


Bl 


El 




4 99 


LDA (SCPTR) , Y 


F2 6A 


FO 


09 


F275 


500 


BEQ INDIRECT 


F26C 








501 


* 


F25C 


95 


01 




502 


STA 1,X ; DIRECT POINTER 


F2 6E 


68 






503 


PLA 


F2 6F 


95 


00 




504 


STA 0,X 


F271 


AO 


00 




505 


LDY #0 


F273 


FO 


10 


F285 


506 


BEQ PTROlO 


F275 








507 


* 


F275 


58 






508 


INDIRECT PLA ; INDIRECT POINTER 


F276 


A8 






509 


TAY 


F277 


B9 


00 


00 


510 


LDA CZPAGE,Y 


F27A 


95 


00 




511 


STA 0,X 


F27C 


B9 


01 


00 


512 


LDA CZPAGE+1,Y 


F27F 


95 


01 




513 


STA 1,X 


F281 


B9 


01 


00 


514 


LDA CXPAGE+1,Y 


F284 


A8 






515 


TAY 


F285 








516 


* 


F285 


B5 


01 




517 


PTROlO LDA 1,X 


F287 








518 


* 


F287 








519 


* CHECK BOUNDS OF CALLER'S POINTER PARAMETER 


F287 








520 


* 


F287 


CO 


8F 




521 


CPY #$8F 


F289 


90 


OE 


F299 


522 


BCC PTR.X808E 


F28B 


FO 


02 


E28F 


523 


BEQ PTR.X8F 


F28D 


BO 


60 


F2EF 


524 


BCS PTR.ERRl ; ERROR, INVALID X BYTE 


F28F 


C9 


20 




525 


PTR.X8F CMP #<ADR.LOW 


F291 


90 


57 


F2EA 


526 


BCC PTR.ERR 


F293 


C9 


B8 




527 


CMP #<ADR.HIGH 


F295 


BO 


53 


F2EA 


528 


BCS PTR.ERR 


F297 


90 


49 


F2E2 


529 


BCC PTR.EXIT 


F299 








530 




F299 








531 


* X BYTE = 80 . . 8E 
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SOS 


1 . 1 


SYSTEM 


CALL 


MANAGER 


F299; 








532 


* 








F299; 


:C0 


80 




533 


PTR. 


,X808E 


CPY 


#$80 


F2 9B: 


: 90 


OD 


F2AA 


534 






BCC 


PTR.XO 


F2 9D : 


:C9 


00 




535 






CMP 


#0 


F29F; 


:F0 


49 


F2EA 


536 






BEQ 


PTR. ERR 


F2A1 ; 


:C9 


FF 




537 






CMP 


#SFF 


F2A3 ; 


;D0 


2E 


F2D3 


538 






BNE 


PATCH 


F2A5 ; 


:C8 






539 






INY 




F2A6; 


:A9 


7F 




540 






LDA 


#$7F 


F2A8 ; 


:D0 


38 


F2E2 


541 






BNE 


PTR. EXIT 


F2AA; 








542 


* 








F2AA; 








543 


* X 


BYTE = 







F2AA; 








544 










F2AA; 


:C0 


00 




545 


PTR. 


,X0 


CPY 


#0 


F2AC; 


:D0 


41 


F2EF 


54 6 






BNE 


PTR.ERRl 


F2AE; 


;C9 


20 




547 






CMP 


#<ADR.LOW 


F2B0 ; 


: 90 


38 


F2EA 


548 






BCC 


PTR. ERR 


F2B2 ; 


:C9 


B8 




549 






CMP 


#<ADR,HIGH 


F2B4; 


:B0 


34 


F2EA 


550 






BCS 


PTR. ERR 


F2B5; 


:C9 


AO 




551 






CMP 


#<ADR.MID 


F2B8 ; 


:B0 


28 


F2E2 


552 






BCS 


PTR. EXIT 


F2BA; 








553 


-1, 








F2BA; 


: 48 






554 






PHA 




F2BB ; 


: AD 


FC 


01 


555 






LDA 


B . SAVE 


F2BE : 


:29 


OF 




556 






AND 


#$0F 


F2C0 ; 


:D0 


05 


F2C7 


557 






BNE 


PTR030 


F2C2 ; 


: 68 






558 






PLA 




F2C3 ; 


:A0 


8F 




559 






LDY 


#$8F 


F2C5 : 


:D0 


IB 


F2E2 


560 






BNE 


PTR. EXIT 


F2C7 : 








561 










F2C7 ; 


: 09 


80 




562 


PTR030 


ORA 


#$80 


F2C9 ; 


;A8 






553 






TAY 




F2CA; 


: 58 






554 






PLA 




F2CB; 


:38 






555 






SEC 




F2CC ; 


;E9 


20 




556 






SBC 


#$20 


F2CE; 


:D0 


03 


F2D3 


557 






BNE 


PATCH 


F2D0 ; 


:88 






568 






DEY 




F2D1 ; 


:A9 


80 




569 






LDA 


#$80 


F2D3 ; 








570 










F2D3 : 


:C0 


80 




571 


PATCH 


CPY 


#S80 


F2D5 : 


; 90 


OB 


F2E2 


572 






BCC 


PTR. EXIT 


F2D7 ; 


:C9 


01 




573 






CMP 


#1 


F2D9; 


:D0 


07 


F2E2 


574 






BNE 


PTR. EXIT 


F2DB; 


:C0 


80 




575 






CPY 


#$80 


F2DD; 


:F0 


OB 


F2EA 


576 






BEQ 


PTR. ERR 


F2DF: 


: 88 






577 






DEY 




F2E0 : 


:A9 


81 




578 






LDA 


#$81 


F2E2 : 








579 










F2E2 ; 


: 95 


01 




580 


PTR. 


,EXIT 


STA 


1, X 


F2E4 ; 


; 98 






581 






TYA 




F2E5 ; 


: 9D 


01 


00 


582 






STA 


SXPAGE+1,X 


F2E8 ; 


:18 






583 






CLC 




F2E9 ; 


; 60 






584 






RTS 




F2EA; 


















F2EA; 








586 










F2EA; 


:A9 


00 




587 


PTR. 


,ERR 


LDA 


#>BADSCBNDS 



AUGUST-2006 



$8N:FFXX — > $8N+1:7FXX 



$B=0 : 2000 . . 9FFF — > $8F : 2000 . 9FFF 



$B<>0 :2000 . . 9FFF — > $8B : 0000 . . 7FFF 



$8B:00XX — > $8B-1:80XX 

KLUDGE FOR BFM: $8N:01XX — > $8N-1:81XX 



ERROR, $80:01XX NOT ALLOWED 
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SOS 1.1 SYSTEM CALL MANAGER 



AUGUST-2006 



F2EC:20 00 00 
F2EF:A9 00 
F2F1:20 00 00 
F2F4 : 



588 

589 PTR.ERRl 

590 
591 * 



JSR 
LDA 
JSR 



SYSERR 

#>BADXBYTE 

SYSERR 



F2F4 
F2F4 
F2F4 
F2F4 
S 

F2F4 



F2F4 
0296 
0000 



592 

5 93 ZZEND 

594 ZZLEN 

595 

596 

597 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



ZZEND-ZZORG 
ZZLEN-LENSCMGR 
2, "SOSORG 



FILE IS INCORRECT FOR SCMGR" 
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B800 


ADR. HIGH 


2000 


ADR . LOW 


AO 00 


ADR. MID 


OlFC 


B . SAVE 


XOOOA 


BADCZPAGE 


XOOOD 


BADSCBNDS 


X0009 


BADSCNUM 


XOOOC 


BADSCPCNT 


XOOOB 


BADXBYTE 


3200 


BLABFM 


72E00 


BLABFMI 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


BLADISK3 


6409 


BLADMGR 


68F4 


BLAFMGR 


72CF8 


BLAGLOB 


72AF8 


BLAINIT 


55C0 


BLAIPL 


2000 


BLALODR 


76E6E 


BLAMEMMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


X0012 


CSPAGE 


XOOll 


GXP AGE 


XOOlO 


CZPAGE 


CO 


D . TPARMX 


FE 


DBUG 


X0006 


DBUGBRK 


E4 


DFN.PTR 


E6 


DFN.PTRX 


X0003 


DMGR 


05 


DSC.CNT 


FOAE 


DSC.TBL 


FIFD 


ELSE.RNIB 


F253 


ENDLOOPO 


F259 


ENDLOOPl 


F256 


ENDL00P2 


AO 


F . TPARMX 


X0002 


FMGR 


13 


FSC . CNT 


F05E 


FSC . TBL 


F275 


INDIRECT 


F1D4 


INITLOOPCT 


2266 


LENBFM 


?0400 


LENBFMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


0185 


LENDMGR 


61 


LENFMGR 


701B2 


LENINIT 


04CB 


LENIPL 


OAF 8 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSCMGR 


D5 


LENSERR 


040E 


LENUMGR 


60 


M . TPARMX 


X0005 


MMGR 


FIAD 


MOVE . PARMS 


E3 


MOVE . VARS 


F1B9 


MOVEOlO 


05 


MSC.CNT 


FODE 


MSG. TBL 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE6 6 


ORGPATCH 


FOSE 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


EB 


PARM.CNT 


F263 


P ARM. ERR 


F262 


PARM.EXIT 


F1E5 


PARMLOOP 


F2D3 


PATCH 


F264 


POINTER 


F2EA 


PTR . ERR 


F2EF 


PTR.ERRl 


F2E2 


PTR . EXIT 


F2AA 


PTR . XO 


F299 


PTR . X808E 


F28F 


PTR . X8F 


F285 


PTROlO 


F2C7 


PTR030 


F24C 


REFl 


F242 


REFERENCE 


E8 


RGHT.NIB 


F1A8 


SCM.ERR 


FIAA 


SCM.ERRl 


EO 


SCM. VARS 


FIOF 


SCM005 


F120 


SCMOlO 


F130 


SCM020 


F13B 


SCM025 


F146 


SCM030 


F166 


SCM040 


F178 


SCMG50 


F196 


SCM0 60 


NF0F6 


SCMGR 


EO 


SCNUM 


E7 


SCPTRX 


El 


SCPTR 


EO 


SCRNUM 


EA 


SCT.DCNT 


E9 


SCT.DFN 


X0008 


SERR 


OlFF 


SP . SAVE 


XOOOF 


SXPAGE 


X0007 


SYSERR 


FlDl 


SYSERRl 


XOOOE 


SZPAGE 


E3 


TPARMX 


CO 


U . TPARMX 


X0004 


UMGR 


05 


USC.CNT 


F0C6 


use. TBL 


F215 


VAL. IN 


F224 


VAL . OUT 


F20D 


VALUE 


FFDO 


Z.REG 


OlFD 


Z . SAVE 


F2F4 


ZZEND 


0296 


ZZLEN 


FOSE 


ZZORG 










** SUCCESSFUL ASSEMBLY := 


NO ERRORS 











** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 656 
** FREE SPACE PAGE COUNT 82 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 229 of 456 



SOURCE FILE #01 =>FMGR.SRC 
INCLUDE FILE #02 =>SOSORG 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 230 of 456 



01 FMGR.SRC SOS 1.1 FILE MANAGER AUGUST-2006 PAGE 2 



0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 














F2F4 


F2F4 


4 


ORG 


ORGFMGR 


F2F4 


F2F4 


5 


ZZORG EQU 




F2F4 




6 


MSB 


OFF 


F2F4 




7 


**************** 


******************************************** 


F2F4 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


F2F4 




9 


* 


ALL RIGHTS RESERVED 


F2F4 




10 


**************** 


******************************************** 


F2F4 




11 






F2F4 




12 


* FILE MANAGER (VERSION =1.10 ) 


F2F4 




13 


* (DATE = 8/04/81) 


F2F4 




14 


* 




F2F4 




15 


* THIS MODULE IS 


ENTERED FROM THE SYSTEM CALL MANAGER, AND 


F2F4 




16 


* IS RESPONSIBLE 


FOR SWITCHING TO EITHER THE BLOCK FILE 


F2F4 




17 


* MANAGER, OR THE CHARACTER FILE MANAGER. 


F2F4 




18 


* 




F2F4 




19 


**************** 


******************************************** 


F2F4 




20 






F2F4 


F2F5 


21 


ENTRY 


FMGR 


F2F4 


F2F4 


22 


ENTRY 


LEVEL 


F2F4 




23 


* 




F2F4 


0000 


24 


EXTRN 


BFMGR 


F2F4 


0000 


25 


EXTRN 


CFMGR 


F2F4 


0000 


26 


EXTRN 


SYSERR 


F2F4 


0000 


27 


EXTRN 


SERR 


F2F4 


0000 


28 


EXTRN 


BADPATH 


F2F4 


0000 


29 


EXTRN 


FNFERR 


F2F4 


0000 


30 


EXTRN 


LVLERR 


F2F4 




31 


* 




F2F4 


00 AO 


32 


F . TPARMX EQU 


$A0 ; LOC OF FILE SYSTEM CALL 


F2F4 


0008 


33 


OPEN EQU 


SB 


F2F4 


oooc 


34 


CLOSE EQU 


?C 


F2F4 


0012 


35 


SETLEVEL EQU 


$12 


F2F4 


0013 


36 


GETLEVEL EQU 


$13 


F2F4 


OOAO 


37 


F.REQCODE EQU 


F . TPARMX 


F2F4 


OOAl 


38 


F. LEVEL EQU 


F . TPARMX+$1 


F2F4 


OOAl 


39 


PATHNAME EQU 


F . TPARMX+$1 


F2F4 


OOAl 


40 


REFNUM EQU 


F.TPARMX+$1 


F2F4 


002E 


41 


PERIOD EQU 


$2E 


F2F4 


01 


42 


LEVEL DFB 


$1 
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F2F5 








44 


F2F5 








45 


F2F5 








46 


F2F5 








47 


F2F5 








48 


F2F5 






F2F5 


49 


F2F5 








50 


F2F5 


: A5 


AO 




51 


F2F7 


:C9 


08 




52 


F2F9 


: 90 


10 


F30B 


53 


F2FB 


:F0 


11 


F30E 


54 


F2FD 


:C9 


OC 




55 


F2FF 


: 90 


2A 


F32B 


56 


F301 


:F0 


2F 


F332 


57 


F303 


: C9 


12 




58 


F305 


:F0 


35 


F33C 


59 


F307 


: C9 


13 




60 


F309 


:F0 


42 


F34D 


61 


F30B 








62 


F30B 


: 4C 


00 


00 


63 


F30E 








64 


F30E 


: AO 


01 




65 


F310 


: Bl 


Al 




66 


F312 


: C9 


2E 




67 


F314 


:D0 


F5 


F30B 


68 


F315 


:20 


00 


00 


69 


F319 


: 90 


07 


F322 


70 


F31B 


: AD 


00 


00 


71 


F31E 


: C9 


00 




72 


F320 


:F0 


01 


F323 


73 


F322 


: 60 






74 


F323 








75 


F323 


:A9 


00 




75 


F325 


: 8D 


00 


00 


77 


F328 


: 4C 


00 


00 


78 


F32B 








79 


F32B 


:A5 


Al 




80 


F32D 


: 10 


DC 


F30B 


81 


F32F 


: 4C 


00 


00 


82 


F332 








83 


F332 


: A5 


Al 




84 


F334 


:D0 


F7 


F32D 


85 


F335 


: 20 


00 


00 


86 


F339 


: 4C 


00 


00 


87 


F33C 








88 


F33C 


: A5 


Al 




89 


F33E 


:F0 


08 


F348 


90 


F340 


:C9 


04 




91 


F342 


:B0 


04 


F348 


92 


F344 


:8D 


F4 


F2 


93 


F347 


: 60 






94 


F348 


:A9 


00 




95 


F34A 


:20 


00 


00 


96 


F34D 








97 


F34D 


:A0 


00 




98 


F34F 


:AD 


F4 


F2 


99 



********************************************* 



FILE MANAGER 



******** 
FMGR 



FMGROlO 
* 

FMGR020 



FMGR024 
* 

FMGR02 5 



FMGR030 
FMGR031 



FMGR040 



EQU 

LDA 
CMP 
BCC 
BEQ 

CMP 
BCC 
BEQ 
CMP 
BEQ 
CMP 
BEQ 

JMP 

LDY 
LDA 
CMP 
BNE 
JSR 
BCC 
LDA 
CMP 
BEQ 
RTS 

LDA 
STA 
JMP 

LDA 
BPL 

JMP 

LDA 
BNE 
JSR 
JMP 

LDA 
BEQ 
CMP 
BCS 
STA 
RTS 
LDA 
JSR 

LDY 
LDA 



F.REQCODE 
#OPEN 
FMGROlO 
FMGR020 

#CLOSE 

FMGR030 

FMGR04 

#SETLEVEL 

SLEVEL 

#GETLEVEL 

GLEVEL 

BFMGR 

#1 

(PATHNAME) , Y 

#PERIOD 

FMGROlO 

CFMGR 

FMGR024 

SERR 

#FNFERR 

FMGR026 



#0 

SERR 
BFMGR 

REFNUM 

FMGROlO 

CFMGR 

REFNUM 
FMGR031 
BFMGR 
CFMGR 

F . LEVEL 
LVL . ERR 

#4 

LVL . ERR 
LEVEL 

#LVLERR 
SYSERR 

#0 

LEVEL 



CLOSE (0) 
EXIT 
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F352:91 Al 
F354 : 60 
F355: 



100 
101 

102 



STA 
RTS 



(F. LEVEL) , Y 



F355 
F355 
F355 
F355 
S 

F355: 



F355 
0061 
0000 



103 

104 ZZEND 

105 ZZLEN 
106 

107 
108 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



ZZEND-ZZORG 
ZZLEN-LENFMGR 
2, "SOSORG 



FILE IS INCORRECT FOR FMGR" 
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02 SYMBOL TABLE 


SORTED 


BY SYMBOL 


70007 


BADPATH 


X0003 


BFMGR 


6B52 


BLABUFMG 


6955 


BLACFM 


68F4 


BLAFMGR 


72CF8 


BLAGLOB 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


665E 


BLASCMGR 


6404 


BLASERR 


OC 


CLOSE 


Al 


F . LEVEL 


NF2F5 


FMGR 


F30B 


FMGRO 1 


F323 


FMGR026 


F32B 


FMGRO 3 


X0008 


FNFERR 


13 


GETLEVEL 


2266 


LENBFM 


031C 


LENBUFMG 


0185 


LENDMGR 


61 


LENFMGR 


OAF 8 


LENLODR 


70751 


LENMEMMG 


0296 


LENSCMGR 


D5 


LENSERR 


F348 


LVL.ERR 


X0009 


LVLERR 


B800 


ORGBFMI 


F552 


ORGBUFMG 


BED 9 


ORGDMGR 


FFBF 


ORGEND 


28F8 


ORGINIT 


DFCO 


ORGIPL 


DE66 


ORGOMSG 


DE66 


ORGPATCH 


E48B 


ORGUMGR 


Al 


PATHNAME 


X0006 


SERR 


12 


SETLEVEL 


F355 


ZZEND 


61 


ZZLEN 


** SUCCESSFUL ASSEMBLY := 


NO ERRORS 



** ASSEMBLER CREATED ON 30-APR-85 22:46 
** TOTAL LINES ASSEMBLED 167 
** FREE SPACE PAGE COUNT 85 



3200 


BLABFM 


72E00 


BLABFMI 


5E99 


BLADISK3 


64D9 


BLADMGR 


72AF8 


BLAINIT 


55C0 


BLAIPL 


5466 


BLAOMSG 


5466 


BLAPATCH 


5A8B 


BLAUMGR 


X0004 


CFMGR 


AO 


F . REQCODE 


AO 


F . TPARMX 


F30E 


FMGRO 2 


F322 


FMGRO 2 4 


F32D 


FMGRO 3 1 


F332 


FMGRO 4 


F34D 


GLEVEL 


70400 


LENBFMI 


OlFD 


LENCFM 


055B 


LENDISK3 


701B2 


LENINIT 


04CB 


LENIPL 


015A 


LENOMSG 


00 


LENPATCH 


040E 


LENUMGR 


NF2F4 


LEVEL 


08 


OPEN 


BCOO 


ORGBFM 


F355 


ORGCFM 


E899 


0RGDISK3 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


F05E 


ORGSCMGR 


EE04 


ORGSERR 


2E 


PERIOD 


Al 


REFNUM 


F33C 


S LEVEL 


X0005 


SYSERR 


F2F4 


ZZORG 
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01 CFMGR.SRC SOS 1.1 CHARACTER FILE MANAGER AUGUST-2006 PAGE 2 



0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 237 of 456 



02 SOSORG SOS 1.1 CHARACTER FILE MANAGER AUGUST-2006 PAGE 3 



0000 


5955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 














F355 


F355 


4 


ORG 


ORGCFM 


F355 


F355 


5 


ZZORG EQU 




F355 




6 


MSB 


OFF 


F355 




7 


**************** 


******************************************** 


F355 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


F355 




9 


* 


ALL RIGHTS RESERVED 


F355 




10 


**************** 


******************************************** 


F355 




\ \ 






F355 




12 


* CHARACTER FILE 


MANAGER (VERSION =1.10 ) 


F355 




13 


* 


(DATE = 8/04/81) 


F355 




14 


* 




F355 




15 


* THIS MODULE TRANSFORMS CHARACTER FILE SYSTEM CALLS INTO 


F355 




16 


* DEVICE CALLS TO THE APPROPRIATE DEVICE HANDLER. ONLY 


F355 




17 


* OPEN, NEWLINE, 


READ, WRITE AND CLOSE CALLS ARE PERMITTED 


F355 




18 


* ON CHARACTER FILES. 


F355 




19 


* 




F355 




20 


**************** 


******************************************** 


F355 




21 


* 




F355 


F37A 


22 


ENTRY 


CFMGR 


F355 




23 


* 




F355 


0011 


24 


ENTRY 


CFCB.MAX 


F355 


F358 


25 


ENTRY 


CFCB.DEV 


F355 




26 






F355 


0000 


27 


EXTRN 


DMGR 


F355 


0000 


28 


EXTRN 


LEVEL 


F355 


0000 


29 


EXTRN 


MAX . DNUM 


F355 


0000 


30 


EXTRN 


SXPAGE 


F355 




31 


* 




F355 


0000 


32 


EXTRN 


SYSERR 


F355 


0000 


33 


EXTRN 


SERR 


F355 


0000 


34 


EXTRN 


BADSCNUM 


F355 


0000 


35 


EXTRN 


CFCBFULL 


F355 


0000 


36 


EXTRN 


BADREFNUM 


F355 


0000 


37 


EXTRN 


FNFERR 
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F355 




39 


********** 


* * * * * 


********************************************* 


F355 




40 


* 








F355 




41 


* DATA DECLARATIONS 




F355 




42 










F355 




43 








F355 




44 










F355 




45 


* FILE CALL FARM LOCATIONS ON SOS ZPAGE 


F355 




45 


* 








F355 


00 AO 


47 


F . TPARMX 


EQU 


SAO 




F355 


00 AO 


48 


REQCODE 


EQU 


F . TPARMX 




F355 


OOAl 


49 


O.PATH 


EQU 


F.TPARMX+1 


OPEN'S PATHNAME LOC 


F355 


00 A3 


50 


. REFNUM 


EQU 


F . TPARMX+3 


OPEN'S REFNUM LOC 


F355 


OOAl 


51 


REFNUM 


EQU 


F . TPARMX+1 


REFNUM 'S LOC IN OTHER CALLS 


F355 


00A2 


52 


NL. ISNL 


EQU 


F . TPARMX+2 


NEWLINE 'S ISNEWLINE LOC 


F355 


00 A3 


53 


NL.NLCHR 


EQU 


F . TPARMX+3 


NEWLINE 'S NEWLINECHAR LOC 


F355 


00A2 


54 


RW . HUE 


EQU 


F . TPARMX+2 


READ/WRITE 'S BUF LOC 


F355 


00A4 


55 


RW. BYTES 


EQU 


F.TPARMX+4 


READ/WRITE 'S BYTES LOC 


F355 


00A6 


55 


RD.BYTESRD 


EQU 


F.TPARMX+5 


READ'S BYTESREAD LOC 


F355 




57 


* 








F355 




58 


* FILE REQUEST 


CODE VALUES 




F355 




59 


* 








F355 


0008 


60 


OPEN 


EQU 


8 




F355 


0009 


61 


NEWLINE 


EQU 


9 




F355 


OOOA 


62 


READ 


EQU 


$A 




F355 


OOOB 


63 


WRITE 


EQU 


$B 




F355 


oooc 


64 


CLOSE 


EQU 


$C 
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F355 




66 


* DEVICE CALL FARM LOCATIONS ON 


SOS ZPAGE 




F355 




67 


* 










F355 


ooco 


68 


D.TPARMX EQU 


$C0 








F355 


ooco 


69 


D.SCNUM EQU 


D . TPARMX 




DEVICE SYS CALL # LOC 




F355 


OOCl 


70 


GDN.DNAME EQU 


D . TPARMX+1 




GETDEVNUM DNAME LOC 




F355 


00C3 


71 


GDN.DNUM EQU 


D . TPARMX+3 




GETDEVNUM DNUM LOC 




F355 


OOCl 


72 


D . DNUM EQU 


D . TPARMX+1 




OPN/CLOSE/RD/WR/CTRL ' S 


DNUM 


F355 


00C2 


73 


DRW . BUF EQU 


D.TPARMX+2 




RD/WR'S BUF LOC 




F355 


00C4 


74 


DRW. BYTES EQU 


D.TPARMX+4 




RD/WR'S BYTES LOC 




F355 


00C8 


75 


DRD.BYTESRD EQU 


D.TPARMX+8 




RD/WR'S BYTESREAD LOC 




F355 


00C2 


76 


DC.CCODE EQU 


D . TPARMX+2 




DCTRL 'S CTRLCODE LOC 




F355 


00C3 


77 


DC.CLIST EQU 


D . TPARMX+3 




DCTRL 'S CTRLLIST LOC 




F355 




78 












F355 




79 


* DEVICE REQUEST 


CODE VALUES 








F355 




80 












F355 


0000 


81 


DREAD EQU 


SO 








F355 


0001 


82 


DWRITE EQU 


$1 








F355 


0003 


83 


DCTRL EQU 


$3 








F355 


0004 


84 


GETDEVNUM EQU 


$4 








F355 


0006 


85 


DOPEN EQU 


$6 








F355 


0007 


86 


DCLOSE EQU 


$7 








F355 




87 












F355 


0002 


88 


CTRL. LIST DS 


2 




CONTAINER FOR NEWLINE 


DCTRL 


F357 


0002 


89 


NEWLINECC EQU 


2 




NEWLINE CTRL CODE 




F357 




90 


* 










F357 




91 


* GETDNUM VARS 










F357 




92 


* 










F357 


0001 


93 


DNUM . TEMP DS 










F3 5 8 




94 












F358 




95 


♦ CLOSEALL VARS 










F358 




96 












F358 


OOAF 


97 


DCLOSE. ERR EQU 


F . TPARMX+$F 








F358 


0200 


98 


DCLOSE. TBL EQU 


$200 








F358 


0080 


99 


TRUE EQU 


$80 








F358 


0000 


100 


FALSE EQU 


$0 








F358 




101 


* 










F358 




102 


* 










F358 




103 


**************** 


*************** 


*************************** 


* * 


F358 




104 


* 










F358 




105 


* CHARACTER FILE 


CONTROL BLOCK 


TABLE 




F358 




106 


* (ENTRY IS NOT USED) 








F358 




107 


* 










F358 




108 


**************** 


*************** 


*************************** 


* * 


F358 


0011 


109 


CFCB.MAX EQU 


17 








F358 


0011 


110 


CFCB.DEV DS 


CFCB.MAX 








F369 


0011 


111 


CFCB.LVL DS 


CFCB.MAX 
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F37A 








113 


********* 


******* 


*********** 


* * * * * 


**************************** 


F37A 








114 


* 










F37A 








115 


* CHARACTER FILE 


MANAGER - 


MAIN 


ENTRY POINT 


F37A 








116 












F37A 








117 


********* 


******* 


*********** 


* * * * * 


**************************** 


F37A 






F37A 


118 


CFMGR 


EQU 


* 






F37A 








119 


* 










F37A 








120 


* SWITCH, 


BASED 


ON REQUEST 


CODE 




F37A 








121 


* 










F37A 


A5 


AO 




122 




LDA 


REQCODE 






F37C 


C9 


08 




123 




CMP 


#OPEN 






F37E 


FO 


IB 


F39B 


124 




BEQ 


CFOPEN 




; "OPEN" 


F380 


C9 


09 




125 




CMP 


#NEWLINE 






F382 


FO 


42 


F3C6 


126 




BEQ 


CFNEWLINE 




; "NEWLINE" 


F384 


C9 


OA 




127 




CMP 


#READ 






F386 


FO 


5B 


F3F3 


128 




BEQ 


CERE AD 




; "READ" 


F388 


C9 


OB 




129 




CMP 


#WRITE 






F38A 


DO 


03 


F38F 


130 




BNE 


CFMOlO 






F38C 


4C 


28 


F4 


131 




JMP 


CFWRITE 




; "WRITE" 


F38F 


C9 


OC 




132 


CFMOlO 


CMP 


#CLOSE 






F391 


DO 


03 


F395 


133 




BNE 


CFM020 






F393 


4C 


4F 


F4 


134 




JMP 


CFCLOSE 




; "CLOSE" 


F396 


A9 


00 




135 


CFM02 


LDA 


#BADSCNUM 






F398 


20 


00 


00 


136 




JSR 


SYSERR 




; ERR EXIT 
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F39B 








138 


********** 


* * * * * 


**************** 


***************************** 


F39B 








139 


* OPEN (IN. 


PATHNAME; OUT.REFNUM; 


IN. OPENLIST, LENGTH) SYSTEM CALL 


F39B 








140 


********** 


* * * * * 


**************** 


***************************** 


F39B 






F39B 


141 


CFOPEN 


EQU 


* 


; BUILD "D.OPEN" CALL 


F39B 


20 


C3 


F4 


142 




JSR 


GETDNUM 


; MAP PATH TO DEV# 


F39E 


BO 


25 


F3C5 


143 




BCS 


CFOP . ERRl 


; ERR - FILE NOT FOUND 


F3A0 


85 


CI 




144 




STA 


D . DNUM 




F3A2 








145 


* 








F3A2 


20 


F2 


F4 


146 




JSR 


REQ . CFCB 


; BUILD NEW CFCB ENTRY 


F3A5 


BO 


IE 


F3C5 


147 




BCS 


CFOP . ERRl 


; ERR - CFCB FULL 


F3A7 


A2 


00 




148 




LDX 


#0 




F3A9 


81 


A3 




149 




STA 


(O.REFNUM,X) 


; RETURN REFNUM TO CALLER 


F3AB 


CO 


01 




150 




CPY 


#1 




F3AD 


DO 


09 


F3B8 


151 




BNE 


CFOP.EXIT 


; DEVICE ALREADY OPEN 


F3AF 








152 


J, 








F3AF 


A9 


06 




153 




LDA 


#DOPEN 




F3B1 


85 


CO 




154 




STA 


D . SCNUM 




F3B3 


20 


00 


00 


155 




JSR 


DMGR 


; DOPEN CALL 


F3B5 


BO 


01 


F3B9 


156 




BCS 


CFOP . ERR 




F3B8 


60 






157 


CFOP.EXIT 


RTS 




; NORMAL EXIT 


F3B9 








158 


* 








F3B9 


AD 


00 


00 


159 


CFOP.ERR 


LDA 


SERR 


/KLUDGE - 1.0 DRIVERS DON'T SUPPORT 


F3BC 


FO 


FA 


F3B8 


160 




BEQ 


CFOP.EXIT 


;N0 ERROR 


F3BE 


A2 


00 




161 




LDX 


#0 


; RELEASE CFCB ENTRY 


F3C0 


Al 


A3 




162 




LDA 


(O.REFNUM,X) 




F3C2 


20 


17 


F5 


163 




JSR 


REL . CFCB 




F3C5 


60 






164 


CFOP.ERRl 


RTS 




; ERR EXIT 
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F3C6 








165 


F3C6 








167 


F3C6 








168 


F3C6 






F3C6 


169 


F3C6 


A9 


03 




170 


F3C8 


85 


CO 




171 


F3CA 


A5 


Al 




172 


F3CC 


20 


3F 


F5 


173 


F3CF 


BO 


21 


F3F2 


174 


F3D1 








175 


F3D1 


85 


CI 




176 


F3D3 


A9 


02 




177 


F3D5 


85 


C2 




178 


F3D7 








179 


F3D7 


A9 


55 




180 


F3D9 


85 


C3 




181 


F3DB 


A9 


F3 




182 


F3DD 


85 


C4 




183 


F3DF 


A9 


00 




184 


F3E1 


8D 


C4 


00 


185 


F3E4 








186 


F3E4 


A5 


A2 




187 


F3E6 


8D 


55 


F3 


188 


F3E9 


A5 


A3 




189 


F3EB 


8D 


56 


F3 


190 


F3EE 








191 


F3EE 


20 


00 


00 


192 


F3F1 


60 






193 


F3F2 








194 


F3F2 


60 






195 



NEWLINE (IN.REFNUM, IS . NEWLINE, NEWLINE . CHAR) SYSTEM CALL 



CFNEWLINE 



EQU 
LDA 
STA 
LDA 
JSR 
BCS 

STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

JSR 

RTS 



#DCTRL 
D . SCNUM 
REFNUM 
GET . CFCB 

CFNL . ERR ; 

D . DNUM 

#NEWLINECC 

DC.CCODE 

#>CTRL.LIST 

DC.CLIST 

#<CTRL.LIST 

DC.CLIST+1 

#0 

SXPAGE+DC . CLIST+1 

NL. ISNL 
CTRL. LIST 
NL.NLCHR 
CTRL.LIST+1 

DMGR ; 



BUILD "D. CONTROL" CALL 



; MAP REFNUM TO DEV # 
; ERR - BAD REFNUM 



DCONTROL CALL 

NORMAL EXIT 



ERR EXIT 
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F3F3 ; 








197 


********* 


******* 


******************************************** 


F3F3 ; 








198 


* READ (IN 


. REFNUM 


, BUF, BYTES, BYTESREAD) SYSTEM CALL 


F3F3 : 








199 


********* 


******* 


******************************************** 


F3F3 : 






F3F3 


200 


CFREAD 


EQU 


* ; BUILD "D.READ" CALL 


F3F3 ; 


: A9 


00 




201 




LDA 


# DREAD 


F3F5 : 


: 85 


CO 




202 




STA 


D . SCNUM 


F3F7 ; 


;A5 


Al 




203 




LDA 


REFNUM 


F3F9 ; 


;20 


3F 


F5 


204 




JSR 


GET.CFCB ; MAP REFNUM TO DEV # 


F3FC; 


:B0 


29 


F427 


205 




BCS 


CFRD. ERR ; ERR - BAD REFNUM 


F3FE ; 








206 


* 






F3FE ; 


; 85 


CI 




207 




STA 


D . DNUM 


F400 : 


:A2 


03 




208 




LDX 


#3 


F402 : 


:B5 


A2 




209 


CFRDOlO 


LDA 


RW . BUF , X 


F404 : 


: 95 


C2 




210 




STA 


DRW. BUF, X 


F406 : 


: CA 






211 




DEX 




F407 ; 


; 10 


F9 


F402 


212 




BPL 


CFRDOlO 


F409; 








213 


* 






F409; 


;A5 


A5 




214 




LDA 


RD.BYTESRD 


F40B; 


: 85 


C8 




215 




STA 


DRD.BYTESRD 


F40D ; 


;A5 


A7 




216 




LDA 


RD.BYTESRD+1 


F40F: 


: 85 


C9 




217 




STA 


DRD . BYTESRD+1 


F411 : 








218 








F411 ; 


: AD 


A3 


00 


219 




LDA 


SXPAGE+RW . BUF+1 


F414 ; 


: 8D 


C3 


00 


220 




STA 


SXPAGE+DRW . BUF+1 


F417 : 


:AD 


A5 


00 


221 




LDA 


SXPAGE+RW. BYTES+1 


F41A; 


:8D 


C5 


00 


222 




STA 


SXPAGE+DRW. BYTES+1 


F41D; 


;AD 


A7 


00 


223 




LDA 


SXPAGE+RD. BYTESRD+1 


F420; 


:8D 


C9 


00 


224 




STA 


SXPAGE+DRD. BYTESRD+1 


F423; 








225 








F423: 


:20 


00 


00 


226 




JSR 


DMGR ; DREAD CALL 


F426: 


: 60 






22 / 




RTS 


; NORMAL EXIT 


F427 ; 








228 








F427; 


: 60 






229 


CFRD . ERR 


RTS 


; ERR EXIT 
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F428 ; 








231 


********** 


* * * * * 


************* 


******* 


************************* 


F428 ; 








232 


* WRITE (IN 


. REFNUM, BUF, BYTES ) 


SYSTEM 


CALL 


F428 ; 








233 


********** 


* * * * * 


************* 


******* 


************************* 


F428 ; 






F428 


234 


CFWRITE 


EQU 


* 




BUILD "D. WRITE" CALL 


F428 ; 


: A9 


01 




235 




LDA 


#DWRITE 






F42A; 


: 85 


CO 




236 




STA 


D . SCNUM 






F42C ; 


;A5 


Al 




237 




LDA 


REFNUM 






F42E ; 


;20 


3F 


F5 


238 




JSR 


GET.CFCB 




MAP REFNUM TO DEV # 


F431 ; 


:B0 


IB 


F44E 


239 




BCS 


CFWR.ERR 




ERR - BAD REFNUM 


F433 ; 


; 85 


CI 




240 




STA 


D.DNUM 






F435 ; 


;A2 


03 




241 




LDX 


#3 






F437 : 


:B5 


A2 




242 


CFWROlO 


LDA 


RW.BUF,X 






F439 ; 


: 95 


C2 




243 




STA 


DRW. BUF, X 






F43B: 


: CA 






244 




DEX 








F43C: 


: 10 


F9 


F437 


245 




BPL 


CFWROlO 






F43E; 


;AD 


A3 


GO 


246 




LDA 


SXPAGE+RW.BUF+1 




F441; 


:8D 


C3 


00 


247 




STA 


SXPAGE+DRW. 


BUF+1 




F444; 


:AD 


A5 


00 


248 




LDA 


SXPAGE+RW.BYTES+1 




F447; 


:8D 


C5 


00 


249 




STA 


SXPAGE+DRW . 


BYTES+1 




F44A; 








250 


* 










F44A: 


:20 


00 


00 


251 




JSR 


DMGR 




DWRITE CALL 


F44D; 


: 60 






252 




RTS 






NORMAL EXIT 


F44E; 








253 


* 










F44E; 


: 50 






254 


CFWR.ERR 


RTS 






ERR EXIT 
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F44F ; 








256 


********** 


* * * * * 


*********** 


********* 


************************* 


F44F ; 








257 


* CLOSE (IN 


. REFNUM) SYSTEM 


CALL 




F44F: 








258 


********** 


* * * * * 




********* 


************************* 


F44F: 






F44F 


259 


CFCLOSE 


EQU 


* 




BUILD "D. CLOSE" CALL 


F44F: 


:A9 


07 




260 




LDA 


#DCLOSE 






F451 : 


: 85 


CO 




261 




STA 


D . SCNUM 






F453 ; 


; A5 


Al 




2 62 




LDA 


REFNUM 






F455 ; 


:F0 


OE 


F465 


263 




BEQ 


CLOSEALL 






F457; 








264 


* 










F457; 


:20 


17 


F5 


265 




JSR 


REL . CFCB 




RELEASE CFCB ENTRY 


F45A; 


:B0 


08 


F464 


266 




BCS 


CFCLOlO 






F45C: 


:85 


CI 




267 




STA 


D . DNUM 






F45E; 


: 98 






268 




TYA 








F45F: 


:D0 


03 


F464 


269 




BNE 


CFCLOlO 






F451 : 


:20 


00 


00 


270 




JSR 


DMGR 




DCLOSE CALL 


F454 ; 


; 60 






271 


CFCLOlO 


RTS 






NORMAL EXIT 


F465; 








272 


* 
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F465 ; 








274 


******** 


******* 


********************************************* 


F465 ; 








275 


* 






F4 65 : 








276 


* CLOSE 


ALL CHARACTER FILES W/LEVELS >= TO CURRENT SYSTEM FILE LEVEL. 


F4 65 : 








277 








F465: 








278 


-„ ^, ^, ^, -1, ^, 






F465; 








279 








F465 ; 






F465 


280 


CLOSEALL 


EQU 


* 


F465 ; 


; A9 


00 




281 




LDA 


#FALSE ; SET ENTRIES IN DEV CLOSE TBL TO FALSE 


F467 ; 


; AE 


00 


00 


282 




LDX 


MAX . DNUM 


F46A; 


; 9D 


00 


02 


283 


CFCL020 


STA 


DOLOSE . TBL, X 


F46D; 


: CA 






284 




DEX 




F4 6E : 


: 10 


FA 


F46A 


285 




BPL 


CFCL020 


F470 ; 








286 








F470 : 


: A2 


10 




287 




LDX 


#CFCB.MAX-1 ; CLOSE ALL DEVICES >= TO CURRENT LEVEL 


F472 : 


:BD 


58 


F3 


288 


CFCL030 


LDA 


CFCB.DEV, X ; AND MARK TRUE IN DEV CLOSE TBL 


F475 ; 


; A8 






289 




TAY 




F476 ; 


; 30 


11 


F489 


290 




BMI 


CFCL050 


F478 ; 


:BD 


69 


F3 


291 




LDA 


CFCB . LVL, X 


F47B ; 


; CD 


00 


00 


292 




CMP 


LEVEL 


F47E ; 


; 90 


09 


F489 


293 




BCC 


CFCL050 


F480 ; 


: A9 


80 




2 94 




LDA 


#TRUE 


F482 : 


: 99 


00 


02 


2 95 




STA 


DOLOSE . TBL, Y 


F485 : 


: 38 






2 96 




SEC 




F486 ; 


: 7E 


58 


F3 


2 97 




ROR 


CFCB.DEV, X 


F489 : 


: CA 






2 98 


CFCL050 


DEX 




F48A; 


;D0 


E6 


F472 


299 




BNE 


CFCL030 


F48C; 








300 


* 






F4 8C : 


: A2 


10 




301 




LDX 


#CFCB.MAX-1 ; DON'T CLOSE DEVICES < CURRENT LEVEL 


F48E: 


: BD 


58 


F3 


302 


CFCL060 


LDA 


CFCB.DEV, X 


F491 : 


: A8 






303 




TAY 




F492 : 


: 30 


05 


F499 


304 




BMI 


CFCL070 


F494 ; 


; A9 


00 




305 




LDA 


#FALSE 


F496 ; 


; 99 


00 


02 


305 




STA 


DOLOSE. TBL, Y 


F499; 


; CA 






307 


CFCL070 


DEX 




F49A; 


;D0 


F2 


F48E 


308 




BNE 


CFCL060 


F49C; 








309 


* 






F4 9C ; 


:A9 


00 




310 




LDA 


#0 


F4 9E : 


: 85 


AF 




311 




STA 


DOLOSE . ERR 


F4A0 : 


: AE 


00 


00 


312 




LDX 


MAX. DNUM ; ISSUE D ' CLOSE CALLS TO ALL DEVICES MARKED 


F4A3 : 


:BD 


00 


02 


313 


CFCL080 


LDA 


DOLOSE. TBL, X ; IN DEV CLOSE TABLE 


F4A6 ; 


; 10 


10 


F4B8 


314 




BPL 


CFCL090 


F4A8 ; 


; 8A 






315 




TXA 




F4A9 ; 


; 48 






316 




PHA 




F4AA; 


; 86 


CI 




317 




STX 


D . DNUM 


F4AC ; 


; 20 


00 


00 


318 




JSR 


DMGR 


F4AF : 


: 68 






319 




PLA 




F4B0 : 


: AA 






320 




TAX 




F4B1 ; 


:AD 


00 


00 


321 




LDA 


SERR 


F4B4 : 


:F0 


02 


F4B8 


322 




BEQ 


CFCL090 ; IF ERROR, 


F4B6 ; 


;85 


AF 




323 




STA 


DOLOSE. ERR ; THEN SAVE IT 


F4B8 ; 


:CA 






324 


CFCL090 


DEX 




F4B9; 


:D0 


E8 


F4A3 


325 




BNE 


CFCL080 


F4BB: 








326 








F4BB; 


;A5 


AF 




327 




LDA 


DOLOSE. ERR ; IF $0 THEN NO ERRORS FROM D . CLOSE CALLS 


F4BD; 


:D0 


01 


F4C0 


328 




BNE 


CFCL.ERR 


F4BF; 


: 60 






329 




RTS 


; NORMAL EXIT 
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F4C3 








332 


* 


*************** 


******************************************** 


F^CS 








333 


* 






F4C3 








334 


* 


GET DEVICE NUMBER 


F4 C3 








335 








F4C3 








336 




INPUT: CPATH 




F4C3 








33'/ 




OUTPUT: DEVICE 


NUMBER (A) 


F4C3 








338 




ERROR: CARRY 


SET ("FILE NOT FOUND") 


F4C3 








339 


* 






F4C3 








340 


* 


GETDNUM FIRST 


CALLS THE DMGR (GETDEVNUM) MAP THE PATHNAME 


F4C3 








341 


* 


TO A DEVICE #. 


GETDNUM THEN ENSURES THAT THE PATHNAME 


F4C3 








342 


* 


IS NOT A BLOCK 


DEVICE BY CHECKING THE DBLKLST TABLE. 


F4C3 








343 








F4C3 








344 




*************** 


******************************************** 


F4C3 








345 








F4C3 






F4C3 


346 


GETDNUM EQU 


* 


F4C3 


A9 


04 




347 




LDA 


#GETDEVNUM 


F4C5 


85 


CO 




348 




STA 


D . SCNUM 


F4C7 








349 


* 






F4C7 


A5 


Al 




350 




LDA 


. PATH 


F4C9 


85 


CI 




351 




STA 


GDN . DNAME 


F4CB 


A5 


A2 




352 




LDA 


O.PATH+1 


F4CD 


85 


C2 




353 




STA 


GDN.DNAME+1 


F4CF 








354 








F4CF 


A9 


57 




355 




LDA 


#>DNUM.TEMP 


F4D1 


85 


C3 




356 




STA 


GDN . DNUM 


F4D3 


A9 


F3 




357 




LDA 


#<DNUM.TEMP 


F4D5 


85 


C4 




358 




STA 


GDN.DNUM+1 


F4D7 








359 








F4D7 


AD 


A2 


00 


360 




LDA 


SXPAGE+O . PATH+1 


F4DA 


8D 


C2 


00 


361 




STA 


SXPAGE+GDN . DNAME+1 


F4DD 


A9 


00 




362 




LDA 


#0 


F4DF 


8D 


C4 


00 


363 




STA 


SXPAGE+GDN. DNUM+1 


F4E2 








364 


* 






F4E2 


20 


00 


00 


365 




JSR 


DMGR 


F4E5 


BO 


06 


F4ED 


366 




BCS 


GETD.ERR ; D.NAME NOT FOUND 


F4E7 


30 


04 


F4ED 


367 




BMI 


GETD.ERR ; BLOCK DEVICE FOUND 


F4E9 


AD 


57 


F3 


368 




LDA 


DNUM. TEMP 


F4EC 


60 






369 




RTS 




F4ED 








370 








F4ED 


A9 


00 




371 


GETD.ERR LDA 


#FNFERR 


F4EF 


20 


00 


00 


372 




JSR 


SYSERR 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 249 of 456 



02 CFMGR.SRC 



SOS 1.1 CHARACTER FILE MANAGER 



AUGUST-2006 



F4F2 








3 


74 


* 


**************** 


******************************************* 


F4F2 








3 


75 


* 


REQUEST FCB ENTRY 


F4F2 








3 


7 6 








F4F2 








3 


77 




INPUT: DNUM (A) 




F4F2 








3 


78 




OUTPUT: REFNUM 


(A) , OPENCT (Y) 


F4F2 








3 


79 




ERROR: CARRY SET ("CFCB FULL") 


F4F2 








3 


80 








F4F2 








3 


81 


* 


REQ.CFCB FIRST 


SEARCHES THE CFCB TABLE USING THE DEV# 


F4F2 








3 


82 


* 


AS A KEY. IF FOUND THE OPENCT IS INCREMENTED, OTHERWISE, 


F4F2 








3 


83 


* 


REQ.CFCB FINDS 


A FREE ENTRY AND STORES THE DEV# AND LEVEL # 


F4F2 








3 


84 


* 






F4F2 








3 


85 




**************** 


******************************************* 


F4F2 








3 


86 








F4F2 






F4F2 


3 


87 


REQ.CFCB EQU 


* 


F4F2 


A2 


10 




3 


88 




LDX 


#CFCB.MAX-1 


F4F4 


A8 






3 


89 




TAY 




F4F5 


BD 


58 


F3 


3 


90 


REQOlO LDA 


CFCB.DEV, X 


F4F8 


30 


08 


F502 


3 


91 




BMI 


REQ020 


F4FA 


CA 






3 


92 




DEX 




F4FB 


DO 


F8 


F4F5 


3 


93 




BNE 


REQOlO 


F4FD 


A9 


00 




3 


94 




LDA 


#CFCBFULL 


F4FF 


20 


00 


00 


3 


95 




JSR 


SYSERR 


F502 


98 






3 


96 


REQ020 TYA 




F503 


9D 


58 


F3 


3 


97 




STA 


CFCB.DEV, X 


F506 


AD 


00 


00 


3 


98 




LDA 


LEVEL 


F509 


9D 


69 


F3 


3 


99 




STA 


CFCB.LVL,X 


F50C 


8A 






4 


00 




TXA 




F50D 


48 






4 


01 




PHA 




F50E 


98 






4 


02 




TYA 




F50F 


20 


31 


F5 


4 


03 




JSR 


OPENCOUNT 


F512 


68 






4 


04 




PLA 




F513 


09 


80 




4 


05 




ORA 


#$80 


F515 


18 






4 


06 




CLC 




F516 


60 






4 


07 




RTS 


; NORMAL EXIT 
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F517 








409 


**************** 


******************************* 


F517 








410 


* 




F517 








411 


♦ RELEASE FCB ENTRY 


F517 








412 






F517 








413 


* INPUT: REFNUM 


(A) 


F517 








414 


♦ OUTPUT: DNUM 


(A) , OPENCT (Y) 


F517 








415 


* ERROR: CARRY 


SET ("INVALID REFNUM") 


F517 








415 


* 




F517 








417 


* USES REFNUM AS 


AN CFCB TABLE INDEX TO RELEASE 


F517 








418 


* 




F517 








419 


**************** 


******************************* 


F517 






F517 


420 


REL.CFCB EQU 


* 


F517 


29 


7F 




421 


AND 


#$7F 


F519 


C9 


11 




422 


CMP 


#CFCB.MAX 


F51B 


BO 


OF 


F52C 


423 


BCS 


REL . ERR 


F51D 


AA 






424 


TAX 




F51E 


BD 


58 


F3 


425 


LDA 


CFCB.DEV, X 


F521 


30 


9 


F52C 


42 6 


BMI 


REL.ERR 


F523 


38 






427 


SEC 


; MARK ENTRY 


F524 


7E 


58 


F3 


428 


ROR 


CFCB.DEV, X 


F527 


20 


31 


F5 


429 


JSR 


OPENCOUNT 


F52A 


18 






430 


CLC 




F52B 


60 






431 


RTS 


; NORMAL EXIT 


F52C 








432 






F52C 


A9 


00 




433 


REL.ERR LDA 


#BAD REFNUM 


F52E 


20 


00 


00 


434 


JSR 


SYSERR 


F531 








435 


**************** 


******************************* 


F531 








436 


* 




F531 








437 


* OPENCOUNT SUBROUTINE 


F531 








438 






F531 








439 


* INPUT: DEVNUM (A) 


F531 








440 


* OUTPUT: DEVNUM (A), OPENCTR (Y) 


F531 








441 


* 




F531 








442 


* OPENCTR :=COUNT 


OF ALL CFCB ENTRIES W/CFCB.DEV 


F531 








443 


* 




F531 








444 


**************** 


******************************* 


F531 






F531 


445 


OPENCOUNT EQU 




F531 


AO 


00 




446 


LDY 


#0 


F533 


A2 


10 




447 


LDX 


#CFCB .MAX-1 


F535 


DD 


58 


F3 


448 


OPNCTOlO CMP 


CFCB.DEV, X 


F538 


DO 


01 


F53B 


449 


BNE 


OPNCT020 


F53A 


C8 






450 


INY 




F53B 


CA 






451 


OPNCT020 DEX 




F53C 


DO 


F7 


F535 


452 


BNE 


OPNCTOlO 


F53E 


60 






453 


RTS 
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F53F 








455 


* 


*************** 


******************************************** 


F53F 








456 


* 






F53F 








457 




GET FCB ENTRY 




F53F 








4 5 8 








F53F 








459 




INPUT: REFNUM (A) 


F53F 








460 




OUTPUT: DNUM 


(A) 


F53F 








461 




ERROR: CARRY 


SET ("INVALID REFNUM") 


F53F 








462 


* 






F53F 








463 


* 


USES REFNUM AS 


AN INDEX TO RETURN THE CORRESPONDING DEVICE # 


F53F 








464 


* 


IF THE ENTRY INDICATED BY REFNUM IS A FREE ENTRY, THEN AN 


F53F 








465 


* 


ERROR, "INVALID REF NUM" IS RETURNED. 


F53F 








466 








F53F 








467 






******************************************** 


F53F 






F53F 


468 


GET.CFCB EQU 




F53F 


29 


7F 




469 




AND 


#$7F 


F541 


C9 


11 




470 




CMP 


#CFCB.MAX 


F543 


BO 


08 


F54D 


471 




BCS 


GET . ERR 


F545 


AA 






472 




TAX 




F545 


BD 


58 


F3 


473 




LDA 


CFCB.DEV, X 


F549 


30 


02 


F54D 


474 




BMI 


GET . ERR 


F54B 


18 






475 




CLC 




F54C 


60 






476 




RTS 


; NORMAL EXIT 


F54D 








477 








F54D 


A9 


00 




478 


GET. ERR LDA 


#BADREFNUM 


F54F 


20 


00 


GO 


479 




JSR 


SYSERR ; ERR EXIT 


F552 








480 








F552 








481 




LST 


ON 


F552 






F552 


482 


ZZEND EQU 




F552 






OlFD 


483 


ZZLEN EQU 


ZZEND-ZZORG 


F552 






0000 


484 




IFNE 


ZZLEN-LENCFM 


S 








485 




FAIL 


2,"S0S0RG FILE IS INCORRECT FOR CFMGR" 


F552 








485 




FIN 
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xoooc 


BADREFNUM 


XOOOA 


BAD SCNUM 


72E00 


BLABFMI 


3200 


BLABFM 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


BLADISK3 


64D9 


BLADMGR 


68F4 


BLAFMGR 


72CF8 


BLAGLOB 


?2AF8 


BLAINIT 


55O0 


BLAIPL 


2000 


BLALODR 


?6E6E 


BLAME MMG 


5466 


BLAOMSG 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


BLAUMGR 


NF358 


CFCB.DEV 


F369 


CFCB . LVL 


NOOll 


CFCB. MAX 


XOOOB 


CFCBFULL 


F4C0 


CFCL.ERR 


F464 


CFCLOlO 


F46A 


CFCL020 


F472 


CFCL030 


F489 


CFCL050 


F48E 


CFCL0 60 


F499 


CFCL070 


F4A3 


CFCL080 


F4B8 


CFCL0 90 


F44F 


CFCLOSE 


F38F 


CFMOlO 


F396 


CFM020 


NF37A 


CFMGR 


F3C6 


CFNEWLINE 


F3F2 


CFNL . ERR 


F3C5 


CFOP . ERRl 


F3B9 


CFOP . ERR 


F3B8 


CFOP .EXIT 


F39B 


CFOPEN 


F427 


CFRD . ERR 


F402 


CFRDOlO 


F3F3 


CFREAD 


F44E 


CFWR . ERR 


F437 


CFWROlO 


F428 


CFWRITE 


F465 


CLOSEALL 


OC 


CLOSE 


F355 


CTRL . LIST 


01 


D . DNUM 


CO 


D . SCNUM 


CO 


D . TPARMX 


02 


DO . OCODE 


03 


DO . OLIST 


AF 


DOLOSE. ERR 


07 


DOLOSE 


0200 


DOLOSE . TBL 


03 


DCTRL 


X0004 


DMGR 


F357 


DNUM . TEMP 


06 


DOPEN 


08 


DRD . BYTESRD 


00 


DREAD 


C2 


DRW . BUF 


C4 


DRW. BYTES 


01 


DWRITE 


AO 


F . TPARMX 


00 


FALSE 


XOOOD 


FNFERR 


CI 


GDN . DNAME 


C3 


GDN . DNUM 


F53F 


GET . CFCB 


F54D 


GET . ERR 


F4ED 


GETD . ERR 


04 


GETDEVNUM 


F4C3 


GETDNUM 


70400 


LENBFMI 


2256 


LENBFM 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


0185 


LENDMGR 


61 


LENFMGR 


?01B2 


LENINIT 


04CB 


LENIPL 


OAFS 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSCMGR 


D5 


LENSERR 


G40E 


LENUMGR 


XG0G5 


LEVEL 


X0006 


MAX . DNUM 


09 


NEWLINE 


02 


NEWLINECC 


A2 


NL . ISNL 


A3 


NL.NLOHR 


Al 


. PATH 


A3 


. REFNUM 


F531 


OPENCOUNT 


08 


OPEN 


F535 


OPNCTOlO 


F53B 


OPNCT020 


B800 


ORGBFMI 


BCOO 


ORGBFM 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE66 


ORGPATCH 


F05E 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


A6 


RD.BYTESRD 


OA 


READ 


Al 


REFNUM 


F517 


REL . CFCB 


F52C 


REL . ERR 


F4F2 


REQ . CFCB 


F4F5 


REQOlO 


F502 


REQ020 


AO 


REQCODE 


A2 


RW . BUF 


A4 


RW. BYTES 


X0009 


SERR 


X0007 


SXPAGE 


X0008 


SYSERR 


80 


TRUE 


OB 


WRITE 


F552 


ZZEND 


OlFD 


ZZLEN 


F355 


ZZORG 







** SUCCESSFUL ASSEMBLY := NO ERRORS 

** ASSEMBLER CREATED ON 3G-APR-85 22:46 
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0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 












*********************************************** 


0000 




4 


*ORGBUFMG EQU SF552 


0000 




5 


*LENBUFMG EQU $31C 


F552 


F552 


5 


ORG 


ORGBUFMG 


F552 


F552 


7 


ZZORG EQU 




F552 




8 


MSB 


OFF 


F552 




9 


**************** 


******************************************** 


F552 




10 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


F552 




11 




ALL RIGHTS RESERVED 


F552 




12 






F552 




13 






F552 




14 


* BUFFER MANAGER 


(VERSION =1.10 ) 


F552 




15 


* 


(DATE = 8/04/81) 


F552 




16 


* 




F552 




17 


* THIS MODULE IS 


RESPONSIBLE FOR CREATING AND RELEASING BUFFERS 


F552 




18 


* FOR BOTH THE BLOCK FILE MANAGER AND, LATER, DEVICE HANDLERS 


F552 




19 


* THE BUFFER MANAGER CREATES BUFFERS BY REQUESTING MEMORY 


F552 




20 


* SEGMENTS FROM 


THE MEMORY MANAGER, AND RELEASES THEM VIA SAME. 


F552 




21 


* THE PRIMARY DATA STRUCTURE IN THIS MODULE IS THE BUFFER TABLE 


F552 




22 


* 




F552 




23 


**************** 


******************************************** 


F552 




24 


* 




F552 


F5C5 


25 


ENTRY 


REQBUF 


F552 


F622 


26 


ENTRY 


REQFXBUF 


F552 


F686 


27 


ENTRY 


GETBUFADR 


F552 


F6EC 


28 


ENTRY 


CHKBUF 


F552 


F710 


29 


ENTRY 


RELBUF 


F552 




30 


* 




F552 


0000 


31 


EXTRN 


MMGR 


F552 


0000 


32 


EXTRN 


SXPAGE 


F552 


0000 


33 


EXTRN 


CZPAGE 


F552 


0000 


34 


EXTRN 


CXPAGE 


F552 




35 


* 




F552 


0000 


36 


EXTRN 


SYSERR 


F552 


0000 


37 


EXTRN 


SERR 


F552 


0000 


38 


EXTRN 


OUTOFMEM 


F552 


0000 


39 


EXTRN 


BUFTBLFULL 


F552 


0000 


40 


EXTRN 


BADSYSBUF 


F552 




41 


* 




F552 


0000 


42 


EXTRN 


SYSDEATH 


F552 


0000 


43 


EXTRN 


BADBUFNUM 


F552 


0000 


44 


EXTRN 


BADBUFSIZ 


F552 




45 


* 




F552 


0011 


46 


ENTRY 


BUF.CNT 


F552 


F55E 


47 


ENTRY 


PGCT.T 


F552 


F56F 


48 


ENTRY 


XBYTE . T 


F552 


F5B3 


49 


ENTRY 


BUFREF 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 256 of 456 



02 BUFMGR.SRC SOS 1.1 BUFFER MANAGER AUGUST-2006 PAGE 4 



F552 




51 


********** 


****** 


******************************************** 


F552 




52 


* 








F552 




53 


* DATA DECLARATIONS 




F552 




54 










F552 




55 






******************************************** 


F552 




56 










F552 


FFDO 


57 


Z .REG 


EQU 


$FFDO 




F552 




58 


* 








F552 




59 


* MEMORY MGMT CALL FARM LOCATIONS ON SOS ZPAGE 


F552 




60 


* 








F552 


0060 


61 


M.TPARMX 


EQU 


$60 


FIRST ADR OF MEM SYS CALL PARMS 


F552 


0060 


62 


REQCODE 


EQU 


M. TPARMX+$0 




F552 




63 










F552 


0001 


64 


FINDSEG 


EQU 


$1 




F552 


0061 


65 


SRCHMODE 


EQU 


M. TPARMX+Sl 




F552 


0062 


66 


F.ID 


EQU 


M. TPARMX+$2 




F552 


0063 


67 


F.PGCT 


EQU 


M.TPARMX+$3 




F552 


0002 


68 


F.PGCTX 


DS 


2 


TEMP LOG FOR F.PGCT FARM 


F554 


0065 


69 


F . BASE 


EQU 


M.TPARMX+$5 




F554 


0002 


70 


F.BASEX 


DS 


2 


TEMP LOC FOR F.BASE FARM 


F556 


0067 


71 


F.LIM 


EQU 


M. TPARMX+$7 




F556 


0002 


72 


F.LIMX 


DS 


2 


TEMP LOC FOR F.LIM FARM 


F558 


0069 


73 


F.NUM 


EQU 


M. TPARMX+$9 




F558 


0001 


74 


F . NUMX 


DS 


1 


TEMP LOC FOR F.NUM FARM 


F559 




75 


* 








F559 


0005 


76 


RELSEG 


EQU 


$5 




F559 


0061 


77 


RLS . NUM 


EQU 


M.TPARMX+$1 




F559 




78 


* 








F559 




79 


* REQBUF DATA DECLARATIONS 




F559 




80 


* 








F559 


0001 


81 


RQB.PGCT 


DS 


1 


REQUESTED PAGE COUNT 


F55A 


0001 


82 


RQB . BNUM 


DS 


1 


BUFFER NUMBER (FM GETFREE CALL) 


F55B 




83 


* 








F55B 




84 


* REQFXBUF 


DATA 


DECLARATIONS 




F55B 




85 


* 








F55B 


0001 


86 


RQFB . PGCT 


DS 


1 


REQUESTED PAGE COUNT 


F55C 


0001 


87 


RQFB . BNUM 


DS 


1 


BUFFER NUMBER (FM GETFREE CALL) 


F55D 


0040 


88 


MAXPGCT 


EQU 


64 


MAX BUFSIZE=16K 


F55D 


00 AO 


89 


F . TPARMX 


EQU 


$A0 


FIRST ADR OF FILE SYS CALL PARMS 


F55D 


00A5 


90 


OPEN. LIST 


EQU 


F.TPARMX+$5 


LOC OF OPEN. LIST FARM (OPEN SYS 


F55D 




91 


* 








F55D 




92 


* BUFCOMPACT DATA DECLARATIONS (SOURCE ALSO USED BY CHKBUF) 


F55D 




93 


* 








F55D 


0001 


94 


BUFC . BNUM 


DS 


1 


BUF# OF LOWEST BUFFER IN BUF.TBL 


F55E 


0070 


95 


SOURCE 


EQU 


M.TPARMX+$10 


S $11 


F55E 


0072 


96 


DEST 


EQU 


M.TPARMX+$12 


& $13 
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F55E 


98 


* 


*********************************************************** 


F55E 


99 


* 




F55E 


100 


* 


BUFFER TABLE 


F55E 


101 


-1, 




F55E 


102 




THE BUFFER TABLE CONSISTS OF "CNT"-1 ENTRIES (1 TO "CNT"-1) . 


F55E 


103 


« 


EACH ENTRY IS "SIZ" BYTES IN LENGTH. THE "PGCT" FIELD 


F55E 


104 




CONTAINS 3 SUBFIELDS. BIT 7 IS THE "FREE" FLAG ( O^ACTIVE, 1=FREE 


F55E 


105 


* 


BIT 5 IS THE "FIXED" FLAG (0=FLOATING BUFFER, 1=FIXED BUFFER) 


F55E 


105 


* 


BITS 5 THRU CONTAIN THE PAGE COUNT OF AN "ACTIVE" ENTRY 


F55E 


107 


* 


(0=>1 PAGE,63=>64 PAGES DECIMAL). THE "XBYTE" FIELD CONTAINS 


F55E 


108 


* 


THE PROPER XBYTE OF AN "ACTIVE" ENTRY. THE "ADRH" FIELD 


F55E 


109 




CONTAINS THE HIGH BYTE OF THE BUFFER ADDRESS. IF THE 


F55E 


110 




BUFFER ENTRY IS "FLOATING", THEN THE "SEG" FIELD CONTAINS THE 


F55E 


111 




SEGMENT NUMBER AND THE LOW BYTE OF THE BUFFER ADDRESS IS 


F55E 


112 




ASSUMMED TO BE ZERO. 


F55E 


113 






F55E 


114 


* 


THUS, THE FOLLOWING RESTRICTIONS APPLY TO BUFFERS: 


F55E 


115 


* 




F55E 


115 


* 


(1) MAXIMUM BUFFER LENGTH IS 64 PAGES (15K) 


F55E 


117 


* 


(2) "FLOATING" BUFFERS ALWAYS BEGIN ON A PAGE BOUNDARY 


F55E 


118 


* 


"FIXED" BUFFERS DO NOT. 


F55E 


119 




(3) BUFFERS ARE ALWAYS AN INTEGRAL NUMBER OF PAGES IN LENGTH 


F55E 


120 




(4) BUFFERS ALWAYS RESIDE IN THE 32K BANK MEMORY REGION, 


F55E 


121 




A LIMITATION OF FIND. SEG (MEMORY MANAGER) 


F55E 


122 




(5) MAXIMUM NUMBER OF BUFFERS = 16; ENTRY IS NOT USED. 


F55E 


123 






F55E 


124 


* 


*********************************************************** 


F55E 


125 






F55E 


126 




BUFFER TABLE 


F55E 


127 






F55E 


0005 128 


BUF.SIZ EQU 5 


F55E 


0011 129 


BUF.CNT EQU 17 


F55E 


0055 130 


BUF.TBL DS BUF . SIZ*BUF . CNT 


F5B3 


F55E 131 


PGCT.T EQU BUF.TBL 


F5B3 


F55F 132 


XBYTE . T EQU PGCT . T+BUF . CNT 


F5B3 


F580 133 


ADRH . T EQU XBYTE . T+BUF . CNT 


F5B3 


F591 134 


SEG.T EQU ADRH . T+BUF . CNT 


F5B3 


F591 135 


ADRL.T EQU SEG.T 


F5B3 


F5A2 136 


CHK.T EQU ADRL . T+BUF . CNT 


F5B3 


0040 137 


ISFIXED EQU $40 


F5B3 


0080 138 


ISFREE EQU $80 


F5B3 


139 


* 




F5B3 


140 


* 


BUFFER REFERENCE TABLE 


F5B3 


141 


* 




F5B3 


142 


* 


FIRST BYTE IS COUNT, FOLLOWED BY "COUNT" BUFFER #S. 


F5B3 


143 


* 


THIS TABLE IS A LIST OF ALL BUFFERS REFERENCED DURING ONE 


F5B3 


144 




SOS SYSTEM CALL. BUFFER #S ARE ADDED TO THIS LIST BY 


F5B3 


145 




GETBUFADR AND REMOVED BY CHKSUM. 


F5B3 


146 






F5B3 


0011 147 


BUFREF.CNT EQU 17 


F5B3 


0011 148 


BUFREF DS BUFREF . CNT 


F5C4 


0001 149 


ZPAGEX DS 1 
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F5C5 








151 


****** 


********* 


********************************************* 


F5C5 








152 


* 






F5C5 








153 


♦ REQBUF 




F5C5 








154 








F5C5 








155 


* INPUT: PAGE. 


CNT (A) 


F5C5 








156 


* OUTPUT: BUFNUM (A) 


F5C5 








157 


* ERROR: "BUFFER TABLE FULL" - SYSERR 


F5C5 








158 


* 


"OUT 


OF MEMORY" - SYSERR 


F5C5 








159 


* 


"BAD 


BUFFER SIZE" - SYSDEATH 


F5C5 








160 


* 






F5C5 








161 


* THIS 


ROUTINE 


FINDS A FREE ENTRY IN THE BUFFER TABLE 


F5C5 








162 


* AND 


THEN CALLS FIND.SEG (MMGR) TO OBTAIN MEMORY FOR IT. 


F5C5 








163 


* IF MEMORY IS 


FOUND THEN THE BUFFER ENTRY IS MARKED "ACTIVE" 


F5C5 








164 


♦ AND 


THE BUFFER INFO IS INSERTED INTO THE ENTRY 


F5C5 








165 


* 






F5C5 








166 


****** 


********* 


********************************************* 


F5C5 








167 


* 






F5C5 






F5C5 


168 


REQBUF 


EQU 




F5C5 








169 


* 






F5C5 








170 


* IF REQUESTED 


PGCT OUT OF BOUNDS THEN FATAL ERR 


F5C5 








171 


* 






F5C5 


A8 






172 




TAY 




F5C6 


FO 


55 


F61D 


173 




BEQ 


RQB.ERR2 ; FATAL ERR, INVALID BUFFER 


F5C8 


CO 


41 




174 




CPY 


#MAXPGCT+1 


F5CA 


BO 


51 


F61D 


175 




BCS 


RQB.ERR2 ; FATAL ERR, INVALID BUFFER 


F5CC 


BC 


59 


F5 


176 




STY 


RQB.PGCT ; SAVE PAGE COUNT 


F5CF 








177 


* 






F5CF 








178 


* FIND 


FREE ENTRY IN BUF . TBL 


F5CF 








179 








F5CF 


20 


40 


F8 


180 




JSR 


GETFREE 


F5D2 


BO 


3F 


F613 


181 




BCS 


RQB.ERR ; ERR, BUFFER TABLE FULL 


F5D4 


8E 


5A 


F5 


182 




STX 


RQB . BNUM 


F5D7 








183 


* 






F5D7 








184 


* FIND 


PGCT*256 


BYTES OF FREE MEMORY 


F5D7 








185 


* 






F5D7 


AD 


59 


F5 


186 




LDA 


RQB.PGCT 


F5DA 


20 


F9 


F7 


187 




JSR 


FSEG 


F5DD 


BO 


39 


F618 


188 




BCS 


RQB.ERRl ; ERR, OUT OF MEMORY 


F5DF 








189 


* 






F5DF 








190 


* INSERT PGCT, 


XBYTE, ADRH, SEG#, CHK BYTE IN BUF . TBL (BUF#) 


F5DF 








191 


* 






F5DF 


AE 


5A 


F5 


192 




LDX 


RQB . BNUM 


F5E2 


CE 


59 


F5 


193 




DEC 


RQB.PGCT ; PAGE COUNT FIELD 


F5E5 


AD 


59 


F5 


194 




LDA 


RQB.PGCT 


F5E8 


9D 


5E 


F5 


195 




STA 


PGCT.T,X 


F5EB 








196 


* 






F5EB 


AE 


54 


F5 


1 97 




LDX 


F.BASEX ; XBYTE S ADRH FIELDS 


F5EE 


AC 


55 


F5 


198 




LDY 


F.BASEX+1 


F5F1 


20 


51 


F8 


199 




JSR 


CNVRT . ADR 


F5F4 


EO 


8F 




200 




CPX 


#$8F 


F5F6 


DO 


02 


F5FA 


201 




BNE 


RQBOlO 


F5F8 


A2 


7F 




202 




LDX 


#$7F ; IF XBYTE=$8F THEN XBYTE: = 


F5FA 


8A 






203 


RQBOlO 


TXA 




F5FB 


AE 


5A 


F5 


204 




LDX 


RQB . BNUM 


F5FE 


9D 


5F 


F5 


205 




STA 


XBYTE. T,X 


F601 


98 






206 




TYA 
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F602 ; 


: 9D 


80 


F5 


207 




STA 


ADRH.T,X 


F605 ; 








208 


* 






F605 ; 


: AD 


58 


F5 


209 




LDA 


F . NUMX 


F608 ; 


: 9D 


91 


F5 


210 




STA 


SECT, X 


F60B; 








211 








F60B; 


: A9 


00 




212 




LDA 


#0 


F60D ; 


; 9D 


A2 


F5 


213 




STA 


CHK. T, X 


F510 ; 








214 


* 






F610 ; 


: 8A 






215 




TXA 




F611 ; 


; 18 






216 




CLC 




F612 ; 


; 60 






217 




RTS 




F613 ; 








218 


* 






F613: 








219 








F613: 


:A9 


00 




220 


RQB . ERR 


LDA 


#BUFTBLFULL 


F615: 


:20 


00 


00 


221 




JSR 


SYSERR 


F618; 








222 








F618; 


:A9 


00 




223 


RQB . ERRl 


LDA 


#OUTOFMEM 


F61A; 


:20 


00 


00 


224 




JSR 


SYSERR 


F51D; 








225 


* 






F51D; 


:A9 


00 




226 


RQB . ERR2 


LDA 


#BADBUFSIZ 


F61F; 


:20 


00 


00 


227 




JSR 


SYSDEATH 



SEG# FIELD 



INIT CHECK BYTE TO NULL 



RETURN BUF# 
NORMAL EXIT 
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F622 








229 


* 


************** 


******************* 


************************** 


F622 








230 


* 








F622 








231 




REQFXBUF 






F622 








232 










F622 








233 




INPUT: PAGE. 


CNT (A) 




F622 








234 




OUTPUT: BUFNUM (A) 




F622 








235 




ERROR: "BUFFER TABLE FULL" 


- SYSERR 


F522 








236 


* 


"BAD 


SYSTEM. BUF PARM ADDRESS" - SYSERR 


F522 








237 


* 


"BAD 


BUFFER SIZE" 


- SYSDEATH 


F522 








238 


* 








F622 








239 


* 


THIS ROUTINE 


COMPUTES THE ACTUAL 


BUFFER ADDRESS IN THE OPEN 


F622 








240 




CALL (FARM "OPEN . LIST" ) , AND ALLOCATES A BUFFER ENTRY FOR IT. 


F622 








241 




NOTE: THE SYSBUF PARAMETER MUST 


BE AN EXTENDED INDIRECT PTR! 


F622 








242 










F622 








243 




************** 


******************* 


************************** 


F622 








244 










F622 






F622 


245 


REQFXBUF EQU 






F522 








246 


* 








F522 








247 


* 


IF REQUESTED 


PGCT OUT OF BOUNDS 


THEN FATAL ERR 


F622 








248 


* 








F622 


A8 






249 




TAY 






F623 


FO 


5C 


F681 


250 




BEQ 


RQFB.ERR2 


; FATAL ERR, BAD BUFFER SIZE 


F625 


CO 


41 




251 




CPY 


#MAXPGCT+1 




F627 


BO 


58 


F681 


252 




BCS 


RQFB . ERR2 


; FATAL ERR, BAD BUFFER SIZE 


F629 








253 










F629 


8C 


5B 


F5 


254 




STY 


RQFB.PGCT 


; SAVE PAGE COUNT 


F62C 








255 


* 








F62C 








256 


* 


GET A FREE BUFFER ENTRY 




F62C 








257 










F62C 


20 


40 


F8 


258 




JSR 


GETFREE 




F62F 


BO 


46 


F677 


259 




BCS 


RQFB. ERR 


; ERR, BUFFER TABLE FULL 


F631 


8E 


5C 


F5 


260 




STX 


RQFB.BNUM 


; SAVE BUF# 


F634 








261 


* 








F534 








262 


* 


FETCH SYSTEM. 


BUF PARAMETER IN OPEN SYSTEM CALL 


F634 








263 


* 








F634 


AO 


03 




264 




LDY 


#3 




F636 


Bl 


A5 




265 




LDA 


(OPEN. LIST) , Y 




F638 


DO 


42 


F67C 


2 66 




BNE 


RQFB . ERRl 


; ERR, SYSBUF ADR 


F63A 


88 






2 67 




DEY 






F63B 


Bl 


A5 




2 68 




LDA 


(OPEN. LIST) , Y 




F63D 


A8 






2 69 




TAY 






F63E 


B9 


01 


00 


270 




LDA 


CXPAGE+1, Y 




F541 


10 


39 


F67C 


271 




BPL 


RQFB . ERRl 


; ERR, SYSBUF ADR 


F643 


C9 


8F 




272 




CMP 


#$8F 




F645 


BO 


35 


F67C 


273 




BCS 


RQFB . ERRl 


; ERR, SYSBUF ADR 


F647 








274 










F647 








275 


* 


INSERT XBYTE, 


ADRH, ADRL, PGCT, 


CHK BYTE INTO BUF . TBL (BUF#) 


F647 








276 


* 








F647 


AE 


5C 


F5 


277 




LDX 


RQFB . BNUM 




F64A 


9D 


6F 


F5 


278 




STA 


XBYTE . T, X 




F64D 








279 


* 








F64D 


B9 


01 


00 


280 




LDA 


CZPAGE+1, Y 




F650 


FO 


2A 


F67C 


281 




BEQ 


RQFB . ERRl 


; ERR SYSBUF ADR 


F652 


C9 


81 




282 




CMP 


#$81 


; CHECK FOR ADDRESS COMPENSAT 


F654 


90 


05 


F65B 


283 




BCC 


RQFBOlO 




F556 


FE 


6F 


F5 


284 




INC 


XBYTE. T,X 
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F559; 


:29 


7F 




285 




AND 


#$7F 


F65B ; 


; 9D 


80 


F5 


286 


RQFBOlO 


STA 


ADRH . T , X 


F65E ; 








287 


* 






F65E ; 


:B9 


00 


00 


288 




LDA 


CZPAGE, Y 


F661 ; 


: 9D 


91 


F5 


289 




STA 


ADRL . T, X 


F664 : 








290 








F664 ; 


; CE 


5B 


F5 


291 




DEC 


RQFB.PGCT 


F667 ; 


; AD 


5B 


F5 


292 




LDA 


RQFB.PGCT 


F56A; 


: 09 


40 




293 




ORA 


#ISFIXED 


F66C ; 


; 9D 


5E 


F5 


294 




STA 


PGCT . T, X 


F66F ; 








295 


* 






F66F: 


:A9 


00 




296 




LDA 


#0 


F671 : 


: 9D 


A2 


F5 


297 




STA 


CHK.T, X 


F674 : 








298 








F674 : 


: 8A 






299 




TXA 




F675 ; 


; 18 






300 




CLC 




F676 ; 


; 60 






301 




RTS 




F677; 








302 


* 






F577; 


:A9 


00 




303 


RQFB . ERR 


LDA 


#BUFTBLFULL 


F679; 


:20 


00 


00 


304 




JSR 


SYSERR 


F67C; 








305 








F67C; 


:A9 


00 




306 


RQFB . ERRl 


LDA 


#BADSYSBUF 


F67E; 


:20 


00 


00 


307 




JSR 


SYSERR 


F681 ; 








308 








F681: 


:A9 


00 




309 


RQFB . ERR2 


LDA 


#BADBUFSIZ 


F683; 


:20 


00 


00 


310 




JSR 


SYSDEATH 



BUFFER ENTRY NOW "ACTIVE" 
INIT CHECK BYTE TO NULL 



RETURN BUF# 
NORMAL EXIT 
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F686 








312 


* 


*************** 


************** 


* 


* * * 


************************** 


F686 








313 


* 












F686 








314 




GETBUFADR 










F 6 8 6 








315 














F686 








316 




INPUT: BUFNUM 


(A) 








F686 








317 




ZPAGELOC (X) 








F686 








318 




OUTPUT: BUF ADR AT: X,X+1 S 


SXPAGE+1, X 


F686 








319 


* 


PAGE.CNT (A) 








F685 








320 


* 


BUFNUM 


(Y) 








F686 








321 


* 












F686 








322 


* 


ERROR: "BADBUFNUM" SYSDEATH 






F686 








323 


* 












F686 








324 




*************** 


************** 


* 


* * * 


************************** 


F686 








325 














F686 






F586 


326 


GETBUFADR EQU 










F686 








327 














F685 








328 


* 


IF BUF# OUT OF 


RANGE OR BUF. 


TBL (BUF#) =FREE 


F586 








329 


* 


THEN FATAL ERR 










F586 








330 


* 












F686 


A8 






331 




TAY 










F687 


FO 


43 


F6CC 


332 




BEQ 


GTBF.ERR 






; BUF#=0, FATAL ERR 


F689 


CO 


11 




333 




CPY 


#BUF.CNT 








F68B 


BO 


3F 


F6CC 


334 




BCS 


GTBF.ERR 






; BUF# > MAX BUF TABLE ENTRY, FATAL 


F68D 


B9 


5E 


F5 


335 




LDA 


PGCT.T, Y 








F690 


30 


3A 


F6CC 


336 




BMI 


GTBF.ERR 






; BUF ENTRY MARKED "FREE", FATAL ERR 


F692 








337 


* 












F692 








338 


* 


OTHERWISE, CONSTRUCT BUFFER 


PTR 


ON SOS ZPAGE 


F692 








339 


* 












F692 


20 


Dl 


F6 


340 




JSR 


GETBUFADRl 








F695 








341 














F695 








342 




IF BUFFER NOT 


PREVIOUSLY REFERENCED ON THIS SOS CALL AND CHECK BYTE 


F695 








343 




THEN COMPARE FIRST BYTE OF 


BUFFER WITH CHECK BYTE IN BUFFER TABLE 


F695 








344 


* 


IF NO 


MATCH THEN KILL 


SYSTEM. 


F595 








345 


* 












F595 


8E 


C4 


F5 


346 




SIX 


ZPAGEX 








F698 


98 






347 




TYA 










F699 


AE 


B3 


F5 


348 




LDX 


BUFREF 








F69C 


FO 


08 


F6A6 


349 




BEQ 


GTBF020 






; BUFREF EMPTY 


F6 9E 








350 














F69E 


DD 


B3 


F5 


351 


GTBFOlO CMP 


BUFREF, X 






; SEARCH FOR PREVIOUS REFERENCE 


F6A1 


FO 


IF 


F6C2 


352 




BEQ 


GTBF030 






; MATCH FOUND 


F6A3 


CA 






353 




DEX 










F6A4 


DO 


F8 


F69E 


354 




BNE 


GTBFOlO 








F5A6 








355 


* 












F6A6 


EE 


B3 


F5 


356 


GTBF020 INC 


BUFREF 






; LOG BUF # IN BUFREF TABLE 


F6A9 


AE 


B3 


F5 


357 




LDX 


BUFREF 








F6AC 


EO 


11 




358 




CPX 


#BUFREF . CNT 








F6AE 


BO 


IC 


F6CC 


359 




BCS 


GTBF.ERR 






; BUFREF TABLE OVFLOW, KILL SYSTEM 


F6B0 


9D 


B3 


F5 


360 




STA 


BUFREF, X 








F6B3 








361 














F6B3 


B9 


A2 


F5 


362 




LDA 


CHK.T, Y 








F6B6 


FO 


OA 


F5C2 


363 




BEQ 


GTBF030 






; NO CHECK BYTE, SKIP CHECK 


F6B8 


AE 


C4 


F5 


364 




LDX 


ZPAGEX 








F6BB 


Al 


00 




365 




LDA 


($0,X) 






; COMPARE FIRST BYTE OF BUFFER 


F6BD 


D9 


A2 


F5 


366 




CMP 


CHK.T, Y 






; WITH CHECK BYTE IN BUF TABLE 


F6C0 


DO 


OA 


F6CC 


367 




BNE 


GTBF.ERR 






; NO MATCH, PULL THE PLUG 
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F5C2 








368 


* 










F6C2 








369 


* 


RETURN PAGE.CNT TO CALLER 






F6C2 








370 












F6C2 


B9 


5E 


F5 


371 


GTBF030 LDA 


PGCT . T, Y 






F6C5 


29 


3F 




372 




AND 


#$3F 


; STRIP OFF FREE, FIXED 


FLAGS 


F6C7 


18 






373 




CLC 








F6C8 


69 


01 




374 




ADC 


#1 






F 6CA 








375 


* 










F6CA 


18 






376 




CLC 








F6CB 


60 






377 




RTS 








F6CC 








378 


* 










F6CC 








379 


* 










F6CC 


A9 


00 




380 


GTBF . ERR LDA 


#BADBUFNUM 






F6CE 


20 


00 


00 


381 




JSR 


SYSDEATH 






F6D1 








382 


* 










F6D1 








383 












F6D1 








384 


* 


************** 


*************** 


************************** 


* * * * 


F6D1 








385 


* 










F6D1 








386 


* 


GETBUFADRl 








F6D1 








387 


* 










F6D1 








388 




INPUT: PGCT.T(BUF#) (A) 






F6D1 








389 




ZPAGELOC (X) 






F6D1 








390 




BUF# 


(Y) 






F6D1 








391 




ERROR: NONE. 








F6D1 








392 












F6D1 








393 




EXTRACTS THE 


BUFFER POINTER 


FROM THE BUFFER TABLE AND 




F6D1 








394 


* 


PLACES IT ON 


ZERO PAGE AT X, 


X+1 & SXPAGE+1,X 




F6D1 








395 












F6D1 








396 




************** 


*************** 


************************** 


* * * * 


F6D1 








397 












F6D1 






F6D1 


398 


GETBUFADRl EQU 








F6D1 


29 


40 




399 




AND 


#$40 






F5D3 


DO 


04 


F6D9 


400 




BNE 


GTBlOlO 






F6D5 


A9 


00 




401 




LDA 


#0 


; "FIXED" BUFFER 




F5D7 


FO 


03 


F6DC 


402 




BEQ 


GTB1020 


; ALWAYS TAKEN 




F6D9 


B9 


91 


F5 


403 


GTBlOlO LDA 


ADRL.T, Y 


; "FLOATING" BUFFER 




F6DC 


95 


00 




404 


GTB1020 STA 


0,X 






F6DE 


B9 


80 


F5 


405 




LDA 


ADRH.T, Y 






F6E1 


95 


01 




406 




STA 


1,X 






F6E3 


B9 


6F 


F5 


407 




LDA 


XBYTE . T, Y 






F6E6 


09 


80 




408 




ORA 


#$80 


; ENSURE $7F->$8F 




F5E8 


9D 


01 


00 


409 




STA 


SXPAGE+1,X 






F6EB 


60 






410 




RTS 
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F6EC 








412 


* 


*************** 


************ 


* * * 


***************************** 


F6EC 








413 


* 










F6EC 








414 




CHKBUF 








F6EC 








415 












F6EC 








416 




CHECK BUFFER. 


FETCHES THE 


FIRST BYTE OF EACH BUFFER 


F6EC 








417 




REFERENCED DURING THE CURRENT 


SYSTEM CALL AND PLACES IT 


F 6EC 








418 




IN CHK. T (BUF#) 








F6EC 








419 


* 










F6EC 








420 


* 


INPUT : BUFREF 


TABLE 






F6EC 








421 


* 


BUFFER 


TABLE 






F6EC 








422 


* 


OUTPUT: EMPTY 


BUFREF TABLE 






F6EC 








423 


* 


BUFFER 


TABLE'S CHECK 


BYTES UPDATED 


F6EC 








424 




Z REG: 


=$18 






F6EC 








425 




ERROR: NONE. 








F6EC 








426 


* 










F6EC 








427 




*************** 


************ 


* * * 


***************************** 


F6EC 








428 


* 










F6EC 






F6EC 


429 


CHKBUF EQU 








F6EC 


AC 


B3 


F5 


430 




LDY 


BUFREF 




; PICK UP COUNT 


F6EF 


FO 


IE 


F70F 


431 




BEQ 


CHKB.EXIT 




; EXIT IF BUFREF EMPTY 


F6F1 








432 












F6F1 


A9 


18 




433 




LDA 


#$18 




; ENSURE SOS ZPAGE SWITCHED IN 


F6F3 


8D 


DO 


FF 


434 




STA 


Z .REG 






F6F6 








435 












F6F6 








436 




UPDATE THE CHECK BYTE OF EACH 


BUF# IN THE BUFREF TABLE 


F6F5 








437 


* 










F6F6 


A2 


70 




438 


CHKBOlO LDX 


#>SOURCE 






F6F8 


B9 


B3 


F5 


439 




LDA 


BUFREF, Y 






F6FB 


A8 






440 




TAY 








F6FC 


B9 


5E 


F5 


441 




LDA 


PGCT.T, Y 






F6FF 


20 


Dl 


F6 


442 




JSR 


GETBUFADRl 




; PUT BUF#S ADR ON ZPAGE 


F702 


Al 


00 




443 




LDA 


($0,X) 






F704 


99 


A2 


F5 


444 




STA 


CHK.T, Y 






F707 


CE 


B3 


F5 


445 




DEC 


BUFREF 






F70A 


AC 


B3 


F5 


446 




LDY 


BUFREF 






F70D 


DO 


E7 


F6F6 


447 




BNE 


CHKBOlO 




; IF COUNTOO THEN PROCESS NEXT BUF# 


F70F 








448 


* 










F70F 


50 






449 


CHKB.EXIT RTS 






; BUFREF TABLE IS EMPTY (COUNT=0) 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 265 of 456 



02 BUFMGR.SRC 



SOS 1.1 BUFFER MANAGER 



AUGUST-2006 



F710 








451 


**************** 


******************************* 


F710 








452 


* 




F710 








453 


♦ RELBUF 




F710 








454 






F710 








455 


* INPUT: BUFNUM 


(A) 


F710 








456 


* OUTPUT: NONE. 




F710 








457 


* ERROR: "BADBUFNUM" SYSDEATH 


F710 








458 


* 




F710 








459 


* THIS ROUTINE RELEASES THE BUFFER ENTRY, CALLS 


F710 








460 


* RELEASE THE CORRESPONDING MEMORY SEGMENT, AND 


F710 








461 


* BUFCOMPACT TO 


PERFORM BUFFER COMPACTION. 


F710 








462 


* 




F710 








463 


**************** 


******************************* 


F710 








464 






F710 






F710 


465 


RELBUF EQU 




F710 








466 


* 




F710 








467 


* IF BUF# OUT OF 


RANGE OR BUF.TBL (BUF#) =FREE 


F710 








468 


* THEN FATAL ERR 




F710 








469 


* 




F710 


A8 






470 


TAY 




F711 


FO 


25 


F738 


471 


BEQ 


RLBF . ERR 


F713 


CO 


11 




472 


CPY 


#BUF.CNT 


F715 


BO 


21 


F738 


473 


BCS 


RLBF . ERR 


F717 


B9 


5E 


F5 


474 


LDA 


PGCT.T, Y 


F71A 


30 


IC 


F738 


475 


BMI 


RLBF . ERR 


F71C 








476 


* 




F71C 








477 


* MARK BUF.TBL (BUF#) =FREE 


F71C 








478 






F71C 


09 


80 




479 


ORA 


tISFREE 


F71E 


99 


5E 


F5 


480 


STA 


PGCT.T, Y 


F721 








481 






F721 








482 


* IF BUF.TBL (BUF 


#) =FIXED THEN EXIT 


F721 








483 


* 




F721 


29 


40 




484 


AND 


#ISFIXED 


F723 


DO 


11 


F736 


485 


BNE 


RLBF.EXIT 


F725 








486 


* 




F725 








487 


* OTHERWISE CALL 


MEMORY MGR TO RELEASE BUFFER'S 


F725 








488 


* 




F725 


A9 


05 




489 


LDA 


#RELSEG 


F727 


85 


60 




490 


STA 


REQCODE 


F729 








491 


* 




F729 


B9 


91 


P5 


492 


LDA 


SEG.T, Y 


F72C 


85 


61 




493 


STA 


RLS.NUM 


F72E 








494 


* 




F72E 


20 


00 


00 


495 


JSR 


MMGR 


F731 


BO 


05 


F738 


496 


BCS 


RLBF. ERR ; ANY ERR IS 


F733 








4 97 






F733 








498 


* AND COMPACT BUFFERS 


F733 








499 






F733 


20 


3D 


F7 


500 


JSR 


BUFCOMPACT 


F736 








501 


* 




F736 


18 






502 


RLBF.EXIT CLC 




F737 


60 






503 


RTS 




F738 








504 






F738 


A9 


00 




505 


RLBF . ERR LDA 


#BADBUFNUM 


F73A 


20 


00 


00 


506 


JSR 


SYSDEATH 
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F73D 








508 


*************** 


********************************************* 


F73D 








509 


* 




F73D 








510 


* BUFCOMPACT 




F73D 








511 






F73D 








512 


♦ THIS ROUTINE 


IS RESPONSIBLE FOR PACKING ALL SOS BUFFERS UP 


F73D 








513 


♦ AGAINST THE HIGHEST AVAILABLE FREE MEMORY. COULD IMPROVE THE 


F73D 








514 


* EFFICIENCY OF 


THIS COMPACTION CYCLE BY NOT RELEASING THE "RELEASED" BUFFER 


F73D 








515 


* UNTIL IT IS KNOWN THAT ANOTHER BUFFER WILL NOT BE MOVED INTO ITS LOC. 


F73D 








516 


* 




F73D 








517 


*************** 


********************************************* 


F73D 








518 


* 




F73D 






F73D 


519 


BUFCOMPACT EQU 




F73D 








520 






F73D 








521 


♦ FIND THE FLOATING BUFFER IN BUF . TBL WITH THE LOWEST ADDRESS. 


F73D 








522 






F73D 


AO 


00 




523 


BUFCOlO LDY 


#0 


F73F 


A2 


10 




524 


LDX 


#BUF . CNT-1 


F741 








525 


* 




F741 


BD 


5E 


F5 


526 


BUFC020 LDA 


PGCT . T, X 


F744 


29 


CO 




527 


AND 


#$C0 ; STRIP OUT PAGE COUNT BITS 


F746 


DO 


10 


F758 


528 


BNE 


BUFC030 


F748 








529 






F748 


BD 


80 


F5 


530 


LDA 


ADRH . T, X 


F74B 


D9 


80 


F5 


531 


CMP 


ADRH . T, Y 


F74E 


BD 


6F 


F5 


532 


LDA 


XBYTE . T, X 


F751 


F9 


6F 


F5 


533 


SBC 


XBYTE .T, Y 


F754 


BO 


02 


F758 


534 


BCS 


BUFC030 


F756 








535 






F756 


8A 






536 


TXA 


; SMALLER BUFFER FOUND, SAVE IN Y 


F757 


A8 






537 


TAY 




F758 








538 






F758 


CA 






539 


BUFC030 DEX 




F759 


DO 


E6 


F741 


540 


BNE 


BUFC020 


F75B 








541 


* 




F75B 








542 


* IF NO BUFFER 


FOUND THEN DONE 


F75B 








543 


* 




F75B 


98 






544 


TYA 




F75C 


DO 


03 


F761 


545 


BNE 


BUFC040 


F75E 


4C 


ED 


F7 


546 


JMP 


BUFC.EXIT 


F751 


8C 


5D 


F5 


547 


BUFC040 STY 


BUFC.BNUM ; OTHERWISE SAVE BUF# IN Y REG. 


F754 








548 


* 




F764 








549 


* CALL FIND.SEG 


: FINDS HIGHEST AVAILABLE FREE MEMORY 


F764 








550 


* 




F764 


B9 


5E 


F5 


551 


LDA 


PGCT.T, Y 


F767 


29 


3F 




552 


AND 


#$3F ; STRIP OUT "FREE" , "FIXED" FLAGS 


F769 


18 






553 


CLC 




F7 6A 


69 


01 




554 


ADC 


#1 


F76C 


20 


F9 


F7 


555 


JSR 


FSEG 


F7 6F 


BO 


7C 


F7ED 


556 


BCS 


BUFC.EXIT ; DONE IF NO FREE SEG FOUND 


F771 








557 


* 




F771 








558 


* CONVERT BASE. 


BKPG TO BUFFER ADR 


F771 








559 


* 




F771 


AE 


54 


F5 


560 


LDX 


F.BASEX ; BASE BANK 


F774 


AC 


55 


F5 


b61 


LDY 


F.BASEX+1 ; BASE PAGE 


F777 


20 


51 


F8 


562 


JSR 


CNVRT.ADR 


F77A 


BE 


54 


F5 


563 


STX 


F . BASEX ; XBYTE 
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F77D 


8C 


55 


F5 


564 


STY 


F.BASEX+1 ; ADRH 


F780 








565 


* 




F780 








566 


* IF NEW SEG'S BASE < CURRENT BUFFER'S BASE ADR THEN DONE 


F780 








567 






F780 


AC 


5D 


F5 


568 


LDY 


BUFC.BNUM 


F783 


B9 


80 


F5 


569 


LDA 


ADRH.T, Y 


F786 


85 


71 




570 


STA 


SOURCE+1 


F788 


CD 


55 


F5 


571 


CMP 


F.BASEX+1 


F78B 


B9 


6F 


F5 


572 


LDA 


XBYTE.T, Y 


F78E 


8D 


71 


00 


573 


STA 


SXPAGE+SOURCE+1 


F791 


ED 


54 


F5 


574 


SBC 


F . BASEX 


F794 


BO 


49 


F7DF 


575 


BCS 


BUFC.EXITl 


F796 








576 






F7 96 








577 


* MOVE DATA FROM 


CURRENT BUFFER TO NEW BUFFER 


F796 








578 






F796 


AE 


54 


F5 


579 


LDX 


F . BASEX 


F799 


8E 


73 


00 


580 


STX 


SXPAGE+DEST+1 


F79C 


AC 


55 


F5 


581 


LDY 


F.BASEX+1 


F79F 


84 


73 




582 


STY 


DEST+1 


F7A1 


A9 


00 




583 


LDA 


#0 


F7A3 


85 


70 




584 


STA 


SOURCE 


F7A5 


85 


72 




585 


STA 


DEST 


F7A7 








586 






F7A7 


A8 






587 


TAY 




F7A8 


AE 


52 


F5 


588 


LDX 


F.PGCTX 


F7AB 


Bl 


70 




589 


BUFC200 LDA 


( SOURCE ),Y ; MOVE LOOP 


F7AD 


91 


72 




590 


STA 


(DEST) , Y 


F7AF 


88 






591 


DEY 




F7B0 


DO 


F9 


F7AB 


592 


BNE 


BUFC200 


F7B2 


E6 


71 




593 


INC 


SOURCE+1 


F7B4 


E6 


73 




594 


INC 


DEST+1 


F7B6 


CA 






595 


DEX 




F7B7 


DO 


F2 


F7AB 


595 


BNE 


BUFC200 


F7B9 








597 


* 




F7B9 








598 


* UPDATE BUF.TBL(BUF#) 


F7B9 








599 


* 




F7B9 


AC 


5D 


F5 


600 


LDY 


BUFC.BNUM 


F7BC 


AD 


54 


F5 


601 


LDA 


F. BASEX 


F7BF 


99 


6F 


F5 


602 


STA 


XBYTE . T, Y 


F7C2 


AD 


55 


F5 


603 


LDA 


F.BASEX+1 


F7C5 


99 


80 


F5 


604 


STA 


ADRH.T,Y 


F7C8 








605 


* 




F7C8 


BE 


91 


F5 


506 


LDX 


SEG.T, Y 


F7CB 


AD 


58 


F5 


507 


LDA 


F.NUMX 


F7CE 


99 


91 


F5 


508 


STA 


SEG.T, Y 


F7D1 








609 






F7D1 








610 


* AND RELEASE OLD MEMORY SEGMENT 


F7D1 








611 


* 




F7D1 


86 


61 




612 


STX 


RLS .NUM 


F7D3 


A9 


05 




613 


LDA 


#RELSEG 


F7D5 


85 


60 




514 


STA 


REQCODE 


F7D7 


20 


00 


00 


615 


JSR 


MMGR 


F7DA 


BO 


18 


F7F4 


616 


BCS 


BUFC.ERR 


F7DC 








617 






F7DC 


4C 


3D 


F7 


618 


JMP 


BUFCOlO ; REPEAT COMPACTION CYCLE 


F7DF 








519 


* 
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02 BUFMGR.SRC 



SOS 1.1 BUFFER MANAGER 



AUGUST-2006 



F7DF: 

F7DF:AE 58 F5 



F7E2:86 
F7E4 :A9 
F7E6:85 
F7E8 : 20 
F7EB:B0 
F7ED: 
F7ED:A9 
F7EF:8D 
F7F2 
F7F3 
F7F4 : 
F7F4 : 
F7F4 :A9 
F7F6:20 



:18 

: 60 



61 
05 
60 

00 00 

07 F7F4 

00 

00 00 



00 00 



620 * 

621 BUFC.EXITl LDX F.NUMX 

622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 



BUFC.EXIT 



STX 
LDA 
STA 
JSR 
BCS 

LDA 
STA 
CLC 
RTS 



RLS .NUM 

#RELSEG 
REQCODE 
MMGR 
BUFC.ERR 

#0 

SERR 



; DONE, 

; RELEASE SEG BEFORE EXIT 



; MASK OUT ANY ERROR FROM MEMORY MGR 
; NORMAL EXIT 



LDA 
JSR 



#BADBUFNUM 
SYSDEATH 
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02 BUFMGR. 


3RC 


SOS 


1 


. 1 BUFFER MANAGER AUGUST-2G06 PAGE 17 


F7F9 








637 


* 


******* 


******* 


******************************************* 


F7F9 








638 


* 








F7F9 








639 




FSEG 






F7F9 








640 










F7F9 








641 




INPUT: 


PAGE . 


CNT (A) 


F7F9 








642 




OUTPUT 


: PAGE . 


CNT (A) UNCHANGED IF FIND.SEG SUCCESSFUL 


F7F9 








643 




ERROR: 


CARRY 


SET "UNABLE TO FIND MEMORY SEG OF PAGE . CNT 


F7F9 








544 


* 








F7F9 








545 


* 


THIS ROUTINE 


BUILDS THE PARAMETERS FOR A FIND.SEG SYSTEM 


F7F9 








545 


* 


AND THEN CALLS THE MEMORY MANAGER. 


F7F9 








547 


* 








F7F9 








648 


* 


******* 


******* 


******************************************* 


F7F9 








649 










F7F9 






F7F9 


65G 


FSEG 


EQU 




F7F9 








651 










F7F9 








652 




SETUP 


INPUT PARAMETERS FOR FIND.SEG CALL 


F7F9 








553 


* 








F7F9 


8D 


52 


F5 


554 






STA 


F.PGCTX 


F7FC 


A9 


01 




555 






LDA 


#FINDSEG 


F7FE 


85 


60 




556 






STA 


REQCODE 


F800 


A9 


02 




657 






LDA 


#2 


F802 


85 


61 




658 






STA 


SRCHMODE 


F804 


A9 


04 




659 






LDA 


#4 


F806 


85 


62 




660 






STA 


F . ID 


F808 








661 










F808 








562 




SETUP 


OUTPUT 


PARAMETER ADRESSES 


F808 








663 


* 








F808 


A9 


52 




664 






LDA 


#>F . PGCTX 


F80A 


85 


63 




665 






STA 


F . PGCT 


F80C 


A9 


F5 




666 






LDA 


#<F . PGCTX 


F80E 


85 


64 




667 






STA 


F.PGCT+1 


F810 


A9 


54 




668 






LDA 


#>F.BASEX 


F812 


85 


65 




569 






STA 


F . BASE 


F814 


A9 


F5 




570 






LDA 


#<F.BASEX 


F815 


85 


66 




571 






STA 


F.BASE+1 


F818 


A9 


56 




572 






LDA 


#>F.LIMX 


F81A 


85 


67 




673 






STA 


F . LIM 


F81C 


A9 


F5 




674 






LDA 


#<F . LIMX 


F81E 


85 


68 




675 






STA 


F . LIM+1 


F820 


A9 


58 




676 






LDA 


#>F .NUMX 


F822 


85 


69 




677 






STA 


F .NUM 


F824 


A9 


F5 




578 






LDA 


#<F.NUMX 


F825 


85 


6A 




579 






STA 


F.NUM+1 


F828 








580 


* 








F828 


A9 


00 




581 






LDA 


#0 


F82A 


8D 


53 


F5 


682 






STA 


F.PGCTX+1 


F82D 


8D 


64 


GO 


683 






STA 


SXPAGE+F.PGCT+1 


F830 


8D 


66 


GO 


684 






STA 


SXPAGE+F.BASE+1 


F833 


8D 


68 


GO 


685 






STA 


SXPAGE+F. LIM+1 


F836 


8D 


6A 


GO 


686 






STA 


SXPAGE+F.NUM+1 


F839 








587 


* 








F839 


20 


00 


00 


588 






JSR 


MMGR 


F83C 


AD 


52 


F5 


689 






LDA 


F.PGCTX 


F83F 








69G 










F83F 


60 






691 






RTS 


; EXIT. CARRY SET->ERR 
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02 


BUFMGR . 


SRC 


SOS 


1 


. 1 BUFFER MANAGER AUGUST-2006 PAGE 18 


Fe 


40 








693 


* 


******** 


*************************************************** 


Fe 


40 








694 


* 






FS 


40 








695 


A 


GETFREE 




FS 


40 








696 


A 






FS 


40 








697 




INPUT: 


NONE 


FS 


40 








6 98 




OUTPUT : 


BUF# (X) 


FS 


40 








699 




ERROR: 


"BUFTBLFULL" SYSERR 


FS 


40 








700 


* 






FS 


40 








701 


* 


THIS ROUTINE SEARCHES THE BUFFER TABLE, LOOKING FOR A FREE 


FS 


40 








702 


* 


ENTRY . 


IF FOUND, IT RETURNS THE BUFFER NUMBER, ELSE ERROR 


FS 


40 








703 


* 






FS 


40 








704 






*************************************************** 


FS 


40 








705 








FS 


40 






F840 


706 


GETFREE 


EQU * 


FS 


40 


A2 


10 




707 






LDX #BUF.CNT-1 


FS 


42 


BD 


5E 


F5 


708 


GFROlO 


LDA PGCT.T,X 


FS 


45 


30 


08 


F84F 


709 






BMI GFR.EXIT ; FREE ENTRY FOUND 


FS 


47 


CA 






710 






DEX 


FS 


48 


DO 


F8 


F842 


711 






BNE GFROlO 


FS 


4A 








712 


* 






FS 


4A 


A9 


00 




713 






LDA #BUFTBLFULL 


FS 


4C 


20 


00 


00 


714 






JSR SYSERR ; ERR EXIT 


FS 


4F 








715 








FS 


4F 


18 






716 


GFR.EXIT 


CLC 


FS 


50 


60 






717 






RTS ; NORMAL EXIT 
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02 BUFMGR.SRC SOS 1.1 BUFFER MANAGER AUGUST-2006 PAGE 19 



F851 








719 


* 


************** 


**************** 


********** 


******************* 


F851 








720 


* 










F851 








721 




CNVRT.ADR 








F851 








722 












F851 








723 




INPUT: BANK 


VALUE (X) 






F851 








724 


-1, 


PAGE 


VALUE (Y) 






F851 








725 




OUTPUT : XBYTE 


(X) 






F851 








726 


* 


ADRH 


(Y) 






F851 








727 


* 


ERROR: NONE. 








F851 








728 


* 










F851 








729 


* 


THIS ROUTINE 


CONVERTS A BASE. 


BKPG PARM 


(MMGR) INTO A 


F851 








730 




VIRTUAL POINTER 






F851 








731 












F851 








732 








^^^^^^^^^^ 


^^^^^^^^^^^^^^^^^^^ 


F851 








733 












F851 






F851 


734 


CNVRT.ADR EQU 








F851 








735 


* 










F851 








736 


* 


IF PAGE <> $20 THEN GOTO L2 






F851 








737 


* 










F851 


CO 


20 




738 




CPY 


#$20 






F853 


DO 


OF 


F864 


739 




BNE 


CNVA02 






F855 








740 












F855 








741 




IF BANK <> 


THEN GOTO LI 






F855 








742 












F855 


8A 






743 




TXA 








F855 


DO 


04 


F85C 


744 




BNE 


CNVAOlO 






F858 








745 


* 










F858 








746 




XBYTE=$8F 








F858 








747 




ADRH : =PAGE 








F858 








748 












F858 


A2 


8F 




749 




LDX 


#$8F 






F85A 


30 


11 


F86D 


750 




BMI 


CNVA.EXIT 






F85C 








751 


* 










F85C 








752 


* 


LI: XBYTE :=(BANK-1) ORA #$80 






F85C 








753 


* 


ADRH:=#$80 






F85C 








754 


* 










F85C 


09 


80 




755 


CNVAOlO ORA 


#$80 






F85E 


AA 






756 




TAX 








F85F 


CA 






757 




DEX 








F860 


AO 


80 




758 




LDY 


#$80 






F862 


30 


09 


F86D 


759 




BMI 


CNVA.EXIT 






F864 








760 


* 










F864 








761 


* 


L2: XBYTE :=BANK ORA #$80 






F864 








762 


* 


ADRH:=ADRH-#$20 






F864 








763 


* 










F864 


8A 






764 


CNVA020 TXA 








F865 


09 


80 




765 




ORA 


#$80 






F867 


AA 






766 




TAX 








F868 


38 






767 




SEC 








F869 


98 






768 




TYA 








F86A 


E9 


20 




769 




SBC 


#$20 






F86C 


A8 






770 




TAY 








F86D 








771 


* 










F86D 


60 






772 


CNVA.EXIT RTS 








F85E 








773 


* 
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F86E 
F86E 

F86E 
F86E 
S 

F86E 



F86E 
031C 
0000 



774 

775 ZZEND 

776 ZZLEN 
111 

118 
779 



LST 
EQU 

EQU 
IFNE 
FAIL 
FIN 



ZZEND-ZZORG 
ZZLEN-LENBUFMG 
2, "SOSORG 



FILE IS INCORRECT FOR BUFMGR" 
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02 SYMBOL TABLE 


SORTED 


BY SYMBOL 


F580 


ADRH . T 


F591 


ADRL . T 


XOOOE 


BADSYSBUF 


72E00 


BLABFMI 


6955 


BLACFM 


5E99 


BLADISK3 


?2CF8 


BLAGLOB 


72AF8 


BLAINIT 


?6E6E 


BLAME MMG 


5466 


BLAOMSG 


6404 


BLASERR 


5A8B 


BLAUMGR 


F55E 


BUF . TBL 


F55D 


BUF C. BNUM 


F7DF 


BUFC.EXITl 


F73D 


BUFCOlO 


F761 


BUFC040 


F7AB 


BUFC200 


11 


BUFREF . CNT 


XOOOD 


BUFTBLFULL 


F6F6 


CHKBOlO 


NF6EC 


CHKBUF 


F864 


CNVAO 2 


F851 


CNVRT . ADR 


72 


DEST 


F554 


F . BASEX 


F556 


F . LIMX 


67 


F . LIM 


63 


F . PGCT 


F552 


F . PGCTX 


F7F9 


FSEG 


NF686 


GETBUFADR 


F84F 


GFR.EXIT 


F842 


GFROlO 


F6CC 


GTBF.ERR 


F69E 


GTBFOlO 


40 


ISFIXED 


80 


ISFREE 


031C 


LENBUFMG 


OlFD 


LENCFM 


61 


LENFMGR 


701B2 


LENTNIT 


70751 


LENMEMMG 


015A 


LENOMSG 


D5 


LENSERR 


040E 


LENUMGR 


XG0G6 


MMGR 


A5 


OPEN . LIST 


F552 


ORGBUFMG 


F355 


ORGCFM 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


DE6 6 


ORGPATCH 


F05E 


ORGSCMGR 


XOOOC 


OUTOFMEM 


NF55E 


PGCT . T 


NF5C5 


REQBUF 


60 


REQCODE 


F736 


RLBF.EXIT 


61 


RLS . NUM 


F61D 


RQB . ERR2 


F613 


RQB . ERR 


F55C 


RQFB . BNUM 


F677 


RQFB . ERR 


F55B 


RQFB.PGCT 


F65B 


RQFBOlO 


70 


SOURCE 


51 


SRCHMODE 


XOOOA 


SYSERR 


NF56F 


XBYTE.T 


F86E 


ZZEND 


031C 


ZZLEN 



** SUCCESSFUL ASSEMBLY := NO ERRORS 

** ASSEMBLER CREATED ON 30-APR-85 22:46 

** TOTAL LINES ASSEMBLED 838 

** FREE SPACE PAGE COUNT 80 



XOOlO 


BADBUFNUM 


XOOll 


BADBUFSIZ 


3200 


BLABFM 


6B52 


BLABUFMG 


64D9 


BLADMGR 


68F4 


BLAFMGR 


55C0 


BLAIPL 


2000 


BLALODR 


5466 


BLAPATCH 


665E 


BLASCMGR 


NOOll 


BUF . CNT 


05 


BUF . SIZ 


F7F4 


BUFC.ERR 


F7ED 


BUFC.EXIT 


F741 


BUFC020 


F758 


BUFC030 


F73D 


BUFCOMPACT 


NF5B3 


BUFREF 


F5A2 


CHK.T 


F70F 


CHKB.EXIT 


F86D 


CNVA.EXIT 


F85C 


CNVAO 1 


X0009 


CXPAGE 


X0008 


CZPAGE 


65 


F . BASE 


62 


F . ID 


F558 


F . NUMX 


69 


F . NUM 


AO 


F . TPARMX 


01 


FINDSEG 


F6D1 


GETBUFADRl 


F840 


GETFREE 


F6D9 


GTBlOlO 


F6DC 


GTB1020 


F6A6 


GTBF020 


F6C2 


GTBF030 


2266 


LENBFM 


70400 


LENBFMI 


056B 


LENDISK3 


0185 


LENDMGR 


04CB 


LENIPL 


OAF 8 


LENLODR 


00 


LENPATCH 


0296 


LENSCMGR 


60 


M. TPARMX 


40 


MAXPGCT 


BCOO 


ORGBFM 


B8G0 


ORGBFMI 


E899 


0RGDISK3 


EED9 


ORGDMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


EE04 


ORGSERR 


E48B 


ORGUMGR 


NF710 


RELBUF 


05 


RELSEG 


NF622 


REQFXBUF 


F738 


RLBF . ERR 


F55A 


RQB . BNUM 


F618 


RQB . ERRl 


F559 


RQB. PGCT 


F5FA 


RQBOlO 


F67C 


RQFB . ERRl 


F681 


RQFB . ERR2 


F591 


SEG.T 


XOOOB 


SERR 


X0007 


SXPAGE 


XOOOF 


SYSDEATH 


FFDO 


Z.REG 


F5C4 


ZPAGEX 


F552 


ZZORG 
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INCLUDE FILE #02 =>SOSORG 
SOURCE FILE #03 =>MEMMGR . B . SRC 
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01 MEMMGR.A.SRC SOS 1.1 MEMORY MANAGER AUGUST-2006 PAGE 2 



0000 




2 




REL 






0000 




3 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 






************************************************* 


0000 




2 


♦ SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


SBCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


15 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


$FFBF 


END MARKER 


0000 




21 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAF 8 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 & BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


ORGD I SK3 -ORGUMGR 


LENGTH OF UMGR 


0000 


056B 


31 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


0310 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


**** 


*********** 


****** 


************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


20F8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2EO0 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 


0000 


64D9 


52 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLOAD ADDRESS OF DEVMGR 


0000 


565E 


53 


BLASCMGR 


EQU 


BLADMGR+LENDMGR 


BLOAD ADDRESS OF SCMGR 


0000 


58F4 


54 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


; BLOAD ADDRESS OF FMGR 
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0000 


5955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR ; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM ; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 














F86E 


F86E 


4 


ORG 


ORGMEMMG 


F86E 


F86E 


5 


ZZORG EQU 




F86E 




6 


MSB 


OFF 


F86E 




7 


***************** 


******************************************* 


F86E 




8 


* COPYRIGHT (C) APPLE COMPUTER INC. 1980 


F86E 




9 


* 


ALL RIGHTS RESERVED 


F86E 




10 


***************** 


******************************************* 


F86E 




11 






F86E 




12 


* MEMORY MANAGER 


(VERSION =1.10 ) 


F86E 




13 


* 


(DATE = 8/04/81) 


F85E 




14 


* 




F86E 




15 


* THIS MODULE CONTAINS ALL OF THE MEMORY MANAGEMENT SYSTEM 


F86E 




16 


* CALLS SUPPORTEE 


BY THE SARA OPERATING SYSTEM. IT IS 


F86E 




17 


* ALSO CALLED BY 


THE BUFFER MANAGER. 


F86E 




18 


* 




F86E 




19 


***************** 


******************************************* 


F86E 




20 






F86E 


F952 


21 


ENTRY 


MMGR 


F86E 




22 






F86E 


0020 


23 


ENTRY 


ST.CNT 


F86E 


F86F 


24 


ENTRY 


ST. ENTRY 


F86E 


F86E 


25 


ENTRY 


ST. FREE 


F86E 


F890 


26 


ENTRY 


ST.FLINK 


F86E 


0040 


27 


ENTRY 


VRT.LIM 


F86E 




28 


* 




F86E 


0000 


29 


EXTRN 


SYSERR 


F86E 


0000 


30 


EXTRN 


BADSCNUM 


F86E 


0000 


31 


EXTRN 


BADBKPG 


F86E 


0000 


32 


EXTRN 


SEGRQDN 


F86E 


0000 


33 


EXTRN 


SEGTBLFULL 


F86E 


0000 


34 


EXTRN 


BADSEGNUM 


F86E 


0000 


35 


EXTRN 


SEGNOTFND 


F86E 


0000 


36 


EXTRN 


BADSRCHMODE 


F86E 


0000 


37 


EXTRN 


BADCHGMODE 


F86E 


0000 


38 


EXTRN 


BADPGCNT 
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F86E 




40 


* * 


******* 


******* 


* * * 


************** 


*************************** 


F86E 




41 


* 












F8 6E 




42 


* 


SEGMENT 


TABLE 








F8 6E 




43 


* 


(NOTE : 


ENTRY 


IS 


NOT USED) 




F8 6E 




44 


* 












F86E 




45 


* * 


******* 


******* 


* * * 


************** 


*************************** 


F86E 




45 


* 












F86E 


0001 


47 


ST 


.FREE 


DS 


1 




. pji^ ;j^o FIRST FREE SEG TABLE ENTRY 


F86F 


0001 


48 


ST 


. ENTRY 


DS 


1 




. TQ HIGHEST ALLOC SEG TABLE ENTRY 


F870 


0007 


49 


ST 


.SIZ 


EQU 


7 






F870 


0020 


50 


ST 


. CNT 


EQU 


32 






F870 


OOEO 


51 


ST 


. TBL 


DS 


ST 


.SIZ*ST.CNT 




F950 


F870 


52 


ST 


.BLINK 


EQU 


ST 


.TBL 


; BACK LINK TO PREV ALLOC SEG ENTRY 


F950 


F890 


53 


ST 


.FLINK 


EQU 


ST 


.BLINK+ST.CNT 


; FORWARD LINK " 


F950 


F8B0 


54 


ST 


. BASEL 


EQU 


ST 


.FLINK+ST.CNT 


; BASE BANK/PAGE 


F950 


F8D0 


55 


ST 


. BASEH 


EQU 


ST 


.BASEL+ST.CNT 




F950 


F8F0 


55 


ST 


.LIML 


EQU 


ST 


.BASEH+ST.CNT 


; LIMIT BANK/PAGE 


F950 


F910 


57 


ST 


.LIMH 


EQU 


ST 


. LIML+ST.CNT 




F950 


F930 


58 


ST 


. ID 


EQU 


ST 


. LIMH+ST.CNT 


; SEG ID 
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F950 




60 


********** 


****** 


*************************************** 


* * * * * 


F950 




61 


* 










F950 




52 


* DATA DECLARATIONS 






F950 




63 












F950 




64 


^, J, ^, ^, ^, ^, ^, f ^, 






***** 


F950 




65 












F950 


0040 


66 


ZPAGE 


EQU 


$40 


BEGINNING OF ZPAGE 


TEMP SPACE FOR MEMORY MANAGER 


F950 


0000 


67 


VRT.BASE 


EQU 


SO 


INTERNAL BK/PG PTR 


TO LOWEST VIRT PAGE 


F950 


0040 


68 


VRT . LIM 


EQU 


ZPAGE+$0 


S$l, INTERNAL BK/PG 


PTR TO HIGHEST VIRT PAGE 


F950 


0780 


69 


PHYIBASE 


EQU 


$0780 


BANK "F",PAGE "0" 




F950 


079F 


70 


PHYILIM 


EQU 


$079F 


BANK "F",PAGE "IF" 




F950 


0820 


71 


PHY2BASE 


EQU 


$0820 


BANK "10", PAGE "AO" 




F950 


087F 


72 


PHY2LIM 


EQU 


$087F 


BANK "10", PAGE "FF" 




F950 




73 


* 










F950 




74 


* REQUEST. 


SEG DATA DECLARATIONS 






F950 




75 


* 










F950 


0060 


76 


M . TPARMX 


EQU 


$60 


BEGINNING ADDRESS OF MMGR SOS CALL PARMS 


F950 


0060 


77 


M.RQCODE 


EQU 


M . TPARMX 






F950 


0061 


78 


RQ . BASE 


EQU 


M.TPARMX+1 


BASE. BANK/PAGE 




F950 


0063 


79 


RQ.LIM 


EQU 


M.TPARMX+3 


LIMIT. BANK/PAGE 




F950 


0065 


80 


RQ. ID 


EQU 


M.TPARMX+5 






F950 


0066 


81 


RQ . NUM 


EQU 


M . TP ARMX+ 6 






F950 




82 


* 










F950 


0042 


83 


RQ. REGION 


EQU 


ZPAGE+$2 


VRT ( ) , PHYO ( 1 ) , PHYl ( 


2) 


F950 




84 


* 










F950 




85 


* FIND.SEG 


DATA 


DECLARATIONS 






F950 




86 


* 










F950 


0061 


87 


SRCHMODE 


EQU 


M. TPARMX+1 


SEARCH MODE (0,1,2) 




F950 


0062 


88 


F . ID 


EQU 


M. TPARMX+2 


SEG ID 




F950 


0063 


89 


F.PGCT 


EQU 


M. TPARMX+3 


PAGE COUNT (LO 




F950 


0043 


90 


FX.PGCT 


EQU 


ZPAGE+$3 


S$4, INTERNAL PAGE 


COUNT 


F950 


0065 


91 


F.BASE 


EQU 


M. TPARMX+5 


BASE . BANK/PAGE 




F950 


0067 


92 


F.LIM 


EQU 


M.TPARMX+7 


LIMIT. BANK/PAGE 




F950 


0069 


93 


F.NUM 


EQU 


M.TPARMX+9 


SEG NUM 




F950 


0045 


94 


F.ERR 


EQU 


ZPAGE+$5 


ERROR FLAG 




F950 


0080 


95 


TRUE 


EQU 


$80 






F950 


0000 


96 


FALSE 


EQU 


$0 






F950 


0046 


97 


CFS . PGCT 


EQU 


ZPAGE+$6 


S7, CURRENT FREE SEGMENT'S PAGE COUNT 


F950 


0048 


98 


CFS .BASE 


EQU 


ZPAGE+$8 


S9, 


BASE. BANK/PAGE 


F950 


004A 


99 


CFS. LIM 


EQU 


ZPAGE+$A 


&$B, 


LIMIT. BANK/PAGE 


F950 


004C 


100 


CFS .BLINK 


EQU 


ZPAGE+$C 




BACK LINK 


F950 


004D 


101 


CFS .BASEO 


EQU 


ZPAGE+$D 


&$E, 


BASE (SMODE=0) 


F950 


004F 


102 


CFS .BASEl 


EQU 


ZPAGE+$F 


S$10, 


BASE (SM0DE=1) 


F950 


0051 


103 


CFS .NEXT 


EQU 


ZPAGE+$11 




NEXT ENTRY 


F950 


0052 


104 


CFS .PREV 


EQU 


ZPAGE+$12 




PREV ENTRY 


F950 


0053 


105 


CFS .PTR 


EQU 


ZPAGE+$13 


S$14 


POINTER TO NXT FREE PG 


F950 


0055 


106 


BFS .PGCT 


EQU 


ZPAGE+$15 


S$16, BIGGEST FREE 


SEGMENT'S PAGE COUNT 


F950 


0057 


107 


BFS .BASE 


EQU 


ZPAGE+$17 


S$18 


BASE. BANK/PAGE 


F950 


0059 


108 


BFS. LIM 


EQU 


ZPAGE+$19 


S$1A 


LIMIT. BANK/PAGE 


F950 


005B 


109 


BFS .BLINK 


EQU 


ZPAGE+$1B 




BACK LINK 


F950 




110 


* 










F950 




111 


* CHANGE. SEG DATA DECLARATIONS 






F950 




112 


* 










F950 


0061 


113 


CHG . NUM 


EQU 


M. TPARMX+1 


SEGNUM PARM 




F950 


0062 


114 


CHG.MODE 


EQU 


M. TPARMX+2 


CHANGE MODE PARM 




F950 


0063 


115 


CHG. PGCT 


EQU 


M.TPARMX+3 


PAGE COUNT PARM 
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005C 115 CHG.PGCTX EQU ZPAGE+$1C ; S$1D, INTERNAL STORE FOR PGCT 

005E 117 CHG.NEW EQU ZPAGE+$1E ; &S1F, BANK/PAGE OF SEG ' S NEW LIMIT OR BASE 

118 * 

119 * GET. SEG. INFO DATA DECLARATIONS 

120 * 

0061 121 GSI.NUM EQU M.TPARMX+1 

0062 122 GSI.BASE EQU M.TPARMX+2 
0064 123 GSI.LIM EQU M.TPARMX+4 
0066 124 GSI.PGCT EQU M.TPARMX+6 
0068 125 GSI.ID EQU M.TPARMX+8 

126 * 

127 * GET.SEG.NUM DATA DECLARATIONS 

128 * 

0061 129 GSN.BKPG EQU M.TPARMX+1 

0063 130 GSN.NUM EQU M.TPARMX+3 

131 * 

132 * RELEASE. SEG DATA DECLARATIONS 

133 * 

0061 134 RLS.NUM EQU M.TPARMX+1 ; SEG NUM 

135 * 

136 * REGION - DATA DECLARATIONS 

137 * 

0002 138 RGN.BKPG DS 2 ; TEMP CONTAINER FOR BANK/PAGE 
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F952 








140 


********* 


****** 


********************* 


************************ 


F952 








141 


* 








F952 








142 


* MMGR 








F952 








143 










F952 








144 


* THIS ROUTINE 


IS THE MAIN ENTRANOE 


TO THE MEMORY MANAGER 


F952 








145 


* MODULE . 


IT FUNOTIONS AS A SWITOH, 


BASED UPON THE RECEIVED 


F952 








146 


* REQUEST 


OODE, 


TO TRANSFER OONTROL 


TO THE ROUTINE THAT 


F952 








147 


* HANDLES 


THE SPEOIFIO SYSTEM CALL. 




F952 








148 


* 








F952 








149 


********* 


****** 


********************* 


************************ 


F952 








150 


* 








F952 






F952 


151 


MMGR 


EQU 


* 




F952 


A5 


60 




152 




LDA 


M.RQOODE 




F954 


FO 


19 


F96F 


153 




BEQ 


MMGRO 1 ; 


"REQ . SEG" 


F956 


C9 


01 




154 




OMP 


#1 




F958 


FO 


18 


F972 


155 




BEQ 


MMGRO 20 ; 


"FIND . SEG" 


F95A 


C9 


02 




156 




OMP 


#2 




F95C 


FO 


17 


F975 


157 




BEQ 


MMGRO 30 ; 


"CHANGE .SEG" 


F95E 


C9 


03 




158 




OMP 


#3 




F960 


FO 


16 


F978 


159 




BEQ 


MMGRO 4 ; 


"GET. SEG. INFO" 


F962 


C9 


04 




160 




OMP 


#4 




F964 


FO 


15 


F97B 


1 61 




BEQ 


MMGRO 50 ; 


"GET . SEG .NUM" 


F966 


C9 


05 




1 62 




OMP 


#5 




F958 


FO 


14 


F97E 


1 63 




BEQ 


MMGRO 60 ; 


"RELEASE . SEG" 


F9 6A 








164 










F96A 


A9 


00 




165 




LDA 


#BADSCNUM 




F95C 


20 


00 


00 


166 




JSR 


SYSERR 




F96F 








167 










F96F 


40 


81 


F9 


168 


MMGRO 1 


JMP 


REQ.SEG 




F972 


40 


23 


FA 


169 


MMGR020 


JMP 


FIND.SEG 




F975 


40 


2F 


FO 


170 


MMGRO 30 


JMP 


OHG.SEG 




F978 


40 


08 


FD 


171 


MMGRO 40 


JMP 


GET. SEG. INFO 




F97B 


40 


27 


FE 


172 


MMGRO 50 


JMP 


GET.SEG.NUM 




F97E 


40 


67 


FE 


173 


MMGRO 60 


JMP 


RELEASE . SEG 
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F981 








175 


* * 


************** 


******************************************** 


F981 








175 


* 






F981 








177 


* 


REQUEST. SEG( IN 


. BASE .BANKP AGE, LIMIT . BANKPAGE, SEGID; OUT . SEGNUM) 


F981 








178 








F981 








179 








F981 








180 








F981 






F981 


181 


REQ.SEG EQU 




F981 








182 


* 






F981 








183 


* 


CONVERT CALLER 


'S BASE. BANK/PAGE TO INTERNAL FMT 


F981 








184 


* 






F981 


A6 


61 




185 




LDX 


RQ.BASE 


F983 


A4 


62 




186 




LDY 


RQ.BASE+1 


F985 


20 


02 


FE 


187 




JSR 


CNVRT . IBP 


F988 


90 


01 


F98B 


188 




BOO 


RQ005 


F98A 








189 








F98A 


60 






190 


RC 


. ERR RTS 


; ERR EXIT - INVALID BANK/PAGE 


F98B 








191 


* 






F98B 


86 


61 




192 


RQ005 SIX 


RQ.BASE 


F98D 


84 


62 




193 




STY 


RQ.BASE+1 


F98F 


85 


42 




194 




STA 


RQ. REGION 


F991 








195 


A 






F991 








196 


-1, 


CONVERT CALLER 


'S LIMIT. BANK/PAGE TO INTERNAL FMT 


F991 








1 97 








F991 


A6 


63 




198 




LDX 


RQ.LIM 


F993 


A4 


64 




199 




LDY 


RQ.LIM+1 


F995 


20 


02 


FE 


200 




JSR 


CNVRT. IBP 


F998 


BO 


FO 


F98A 


201 




BOS 


RQ.ERR ; ERR - INVALID BANK/PAGE 


F9 9A 


86 


63 




202 




STX 


RQ.LIM 


F99C 


84 


64 




203 




STY 


RQ.LIM+1 


F9 9E 








204 








F99E 








205 




IF BASE AND LIMIT ARE IN DIFFERENT REGIONS THEN ERR 


F9 9E 








205 








F99E 


C5 


42 




207 




CMP 


RQ. REGION 


F9A0 


DO 


72 


FA14 


208 




BNE 


RQ.ERRl ; ERR - INVALID BANK/PAGE PAIR 


F9A2 








209 


* 


IF CALLER'S BASE > LIMIT THEN ERR 


F9A2 








210 


* 






F9A2 


A5 


63 




211 




LDA 


RQ.LIM 


F9A4 


C5 


61 




212 




CMP 


RQ.BASE 


F9A6 


A5 


64 




213 




LDA 


RQ.LIM+1 


F9A8 


E5 


62 




214 




SBC 


RQ.BASE+1 


F9AA 


90 


68 


FA14 


215 




BOO 


RQ.ERRl ; ERR - INVALID BANK/PAGE PAIR 


F9AC 








215 


* 






F9AC 








217 


* 


PREV SEGNUM:=NULL; NEXT SEGNUM:=FIRST ENTRY 


F9AC 








218 


* 






F9AC 


A2 


00 




219 




LDX 


#0 


F9AE 


AC 


6F 


F8 


220 




LDY 


ST. ENTRY ; NOTE: PREV/NEXT CARRIED IN X 


F9B1 








221 








F9B1 








222 




IF NO SEGS IN 


SEG TABLE THEN ALLOCATE REQUESTED SEG 


F9B1 








223 


* 






F9B1 


FO 


3A 


F9ED 


224 




BEQ 


RQ030 


F9B3 








225 


* 






F9B3 








225 


* 


IF FIRST SEG IN SEG TABLE BELOW REQUESTED SEG 


F9B3 








227 




THEN ALLOCATE 


SEG 


F9B3 








228 








F9B3 


B9 


FO 


F8 


229 




LDA 


ST.LIML, Y 


F9B6 


C5 


61 




230 




CMP 


RQ.BASE 



S Y REGISTERS 
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F9B8 


B9 


10 


F9 


231 


LDA 


ST.LIMH, Y 


F9BB 


E5 


62 




232 


SBC 


RQ.BASE+1 


F9BD 


90 


2E 


F9ED 


233 


BCC 


RQ030 


F9BF 








234 






F9BF 








235 


* ADVANCE TO NEXT SEG ENTRY 


F9BF 








236 






F9BF 


98 






237 


RQOlO TYA 




F9C0 


AA 






238 


TAX 




F9C1 


B9 


90 


F8 


239 


LDA 


ST.FLINK, Y 


F9C4 


A8 






240 


TAY 




F9C5 








241 


* 




F9C5 








242 


* IF THERE IS NO 


NEXT SEG ENTRY 


F9C5 








243 


* IF REQUESTED 


SEG IS BELOW PREV SEG 


F9C5 








244 


* THEN ALLOCATE REQ SEG 


F9C5 








245 


* ELSE ERR 




F9C5 








246 






F9C5 


DO 


OE 


F9D5 


247 


BNE 


RQ020 


F9C7 


A5 


63 




248 


LDA 


RQ.LIM 


F9C9 


DD 


BO 


F8 


249 


CMP 


ST. BASEL, X 


F9CC 


A5 


64 




250 


LDA 


RQ.LIM+1 


F9CE 


FD 


DO 


F8 


251 


SBC 


ST.BASEH,X 


F9D1 


90 


lA 


F9ED 


252 


BCC 


RQ030 


F9D3 








253 






F9D3 


BO 


44 


FA19 


254 


BCS 


RQ.ERR2 ; ERR - SEGMENT REQUEST DENIED 


F9D5 








255 






F9D5 








256 


* IF REQUESTED LIMIT >= PREV SEG ' S BASE THEN ERR 


F9D5 








257 


* 




F9D5 


A5 


63 




258 


RQ020 LDA 


RQ.LIM 


F9D7 


DD 


BO 


F8 


259 


CMP 


ST. BASEL, X 


F9DA 


A5 


64 




260 


LDA 


RQ.LIM+1 


F9DC 


FD 


DO 


F8 


261 


SBC 


ST.BASEH,X 


F9DF 


BO 


38 


FA19 


262 


BCS 


RQ.ERR2 ; ERR - SEGMENT REQUEST DENIED 


F9E1 








263 


* 




F9E1 








264 


* IF REQUESTED BASE > NEXT SEG ' S LIMIT 


F9E1 








265 


* THEN ALLOCATE REQUESTED SEGMENT 


F9E1 








266 


* 




F9E1 


B9 


FO 


F8 


267 


LDA 


ST.LIML, Y 


F9E4 


C5 


61 




2 68 


CMP 


RQ.BASE 


F9E6 


B9 


10 


F9 


2 69 


LDA 


ST.LIMH, Y 


F9E9 


E5 


62 




270 


SBC 


RQ.BASE+1 


F9EB 


BO 


D2 


F9BF 


271 


BCS 


RQOlO ; NO, ADVANCE TO NEXT SEGMENT 


F9ED 








272 


* 




F9ED 


8A 






273 


RQ030 TXA 


; ALLOCATE REQUESTED SEGMENT 


F9EE 


20 


76 


FF 


274 


JSR 


GET. FREE 


F9F1 


BO 


2B 


FAIE 


275 


BCS 


RQ.ERR3 ; ERR - SEG TABLE FULL 


F9F3 








276 


* 




F9F3 








277 


* ENTER BASE, LIMIT AND ID IN NEW SEG ENTRY 


F9F3 








278 






F9F3 


AA 






279 


TAX 




F9F4 


A5 


61 




280 


LDA 


RQ.BASE 


F9F6 


9D 


BO 


F8 


281 


STA 


ST. BASEL, X 


F9F9 


A5 


62 




282 


LDA 


RQ.BASE+1 


F9FB 


9D 


DO 


F8 


283 


STA 


ST.BASEH,X 


F9FE 








284 






F9FE 


A5 


63 




285 


LDA 


RQ.LIM 


FAOO 


9D 


FO 


F8 


285 


STA 


ST.LIML,X 
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FA03 


A5 


64 




287 




LDA 


RQ.LIM+1 




FA05 


9D 


10 


F9 


288 




STA 


ST . LIMH, X 




FA08 








289 










FA08 


A5 


65 




2 90 




LDA 


RQ . ID 




FAOA 


9D 


30 


F9 


291 




STA 


ST . ID, X 




FAOD 








292 










FAOD 








293 


* RETURN 


NEW SEG 


NUM TO CALLER AND 


RETURN 


FAOD 








294 


* 








FAOD 


AO 


00 




295 




LDY 


#0 




FAOF 


8A 






296 




TXA 






FAIO 


91 


66 




297 




STA 


(RQ.NUM) , Y 




FA12 








298 


* 








FA12 


18 






2 99 




CLC 






FAX 3 


60 






300 




RTS 




NORMAL EXIT 


FA14 








301 










FA14 


A9 


00 




302 


RQ . ERRl 


LDA 


#BADBKPG 




FA16 


20 


00 


00 


303 




JSR 


SYSERR 


ERR EXIT 


FA19 


A9 


00 




304 


RQ . ERR2 


LDA 


#SEGRQDN 




FAIB 


20 


00 


00 


305 




JSR 


SYSERR 


ERR EXIT 


FAIE 








306 


* 








FAIE 


A9 


00 




307 


RQ . ERR3 


LDA 


#SEGTBLFULL 




FA20 


20 


00 


00 


308 




JSR 


SYSERR 


ERR EXIT 
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FA23 








310 


*************** 


********************************************* 


FA23 








311 


* 




FA23 








312 


♦ FIND.SEG (IN. SRCHMODE, SEGID; INOUT . PAGECT; 


FA23 








313 


* OUT. 


BASE .BKPG, LIMIT. BKPG, SEGNUM) 


FA23 








314 






FA23 








315 


*************** 


********************************************* 


FA23 








316 






FA23 






FA23 


317 


FIND.SEG EQU 


* 


FA23 








318 


* 




FA23 








319 


* RETRIEVE PAGE 


COUNT PARAMETER AND CLEAR ERR FLAG 


FA23 








320 


* 




FA23 


AO 


00 




321 


LDY 


#0 


FA25 


Bl 


63 




322 


LDA 


(F.PGCT) , Y 


FA27 


8S 


43 




323 


STA 


FX.PGCT 


FA2 9 


C8 






324 


INY 




FA2A 


Bl 


63 




325 


LDA 


(F.PGCT) ,Y 


FA2C 


8S 


44 




325 


STA 


FX.PGCT+1 


FA2E 








327 


* 




FA2E 


DO 


09 


FA39 


328 


BNE 


FINDOOl 


FA30 


AS 


43 




329 


LDA 


FX.PGCT 


FA32 


DO 


05 


FA3 9 


330 


BNE 


FINDOOl 


FA34 


A9 


00 




331 


LDA 


#BADPGCNT ; ERR, PAGECT=0, EXIT 


FAS 6 


20 


00 


00 


332 


JSR 


SYSERR 


FA3 9 








333 






FA3 9 


A9 


00 




334 


FINDOOl LDA 


#FALSE 


FA3B 


8S 


45 




335 


STA 


F.ERR 


FA3D 








336 


* 




FA3D 








337 


* IF SEAROH M0DE>2 THEN ERR 


FA3D 








338 






FA3D 


AS 


61 




339 


LDA 


SRCHMODE 


FA3F 


C9 


03 




340 


OMP 


#3 


FA41 


90 


05 


FA4 8 


341 


BOO 


FINDOOS 


FA43 


A9 


00 




342 


LDA 


#BADSRCHMODE 


FA45 


20 


00 


00 


343 


JSR 


SYSERR ; ERR EXIT 


FA48 








344 


* 




FA48 








345 


* INITIALIZE NEXT FREE SEGMENT SUBROUTINE, 


FA48 








346 


* AND BIGGEST FREE SEGMENT PAGE COUNT 


FA48 








347 






FA48 


20 


Fl 


FA 


348 


FIND005 JSR 


NXTFRSEG. I 


FA4B 


A9 


00 




349 


LDA 


#0 


FA4D 


8S 


55 




350 


STA 


BFS.PGCT 


FA4F 


8S 


56 




351 


STA 


BFS.PGCT+1 


FA51 








352 


* 




FA51 








353 


* GET NEXT FREE 


SEGMENT 


FA51 








354 


* 




FA51 


20 


31 


FB 


355 


FINDOlO JSR 


NXTFRSEG 


FAS 4 


90 


09 


FA5F 


356 


BCC 


FINDOIS ; PROCESS FREE SEGMENT 


FAS 6 








357 






FAS 6 








358 


* NO MORE FREE 


SEGMENTS LEFT 


FAS 6 








359 


* RETURN BIGGEST FREE SEGMENT FOUND 


FAS 6 








360 


* ALONG WITH ERR 


FAS 6 








361 


* 




FAS 6 


A9 


80 




362 


LDA 


#TRUE 


FAS 8 


8S 


45 




363 


STA 


F.ERR 


FASA 


A2 


00 




364 


LDX 


#0 ; SEG#:=0 


FASC 


40 


B8 


FA 


365 


JMP 


FIND070 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 285 of 456 



02 MEMMGR.A 


. SRC 


SOS 


1.1 MEMORY MANAGER 


AUGUST-2006 


FA5F 








365 


* 








FA5F 








367 


* FREE SEGMENT 


FOUND . 






FA5F 








368 


♦ IF FREE SEGMENT > BIGGEST 


FREE 


SEGMENT THEN BFS 


FA5F 








369 










FA5F 


A5 


55 




370 


FIND015 LDA 


BFS.PGCT 






FA61 


C5 


46 




371 


CMP 


CFS.PGCT 






FA63 


A5 


56 




372 


LDA 


BFS . PGCT+1 






FA65 


E5 


47 




373 


SBC 


CFS.PGCT+1 






FA67 


BO 


09 


FA72 


374 


BCS 


FIND030 






FA69 








375 


* 








FA69 


A2 


06 




375 


LDX 


#5 






FA6B 


B5 


46 




377 


FIND020 LDA 


CFS.PGCT, X 






FA6D 


95 


55 




378 


STA 


BFS.PGCTjX 






FA6F 


CA 






379 


DEX 








FA70 


10 


F9 


FA6B 


3S0 


BPL 


FIND020 






FA72 








3S1 










FA72 








3S2 


* IF BFS.PGCT<F 


.PGCT THEN GET 


NEXT 


FREE SEGMENT 


FA72 








3S3 


* 








FA72 


A5 


55 




3S4 


FIND030 LDA 


BFS.PGCT 






FA74 


C5 


43 




3S5 


CMP 


FX. PGCT 






FA7 6 


A5 


56 




3S6 


LDA 


BFS . PGCT+1 






FA7 8 


E5 


44 




387 


SBC 


FX. PGCT+1 






FA7A 


90 


D5 


FA51 


388 


HOC 


FINDOlO 






FA7C 








389 










FA7C 








390 


* BFS . BASE : -BFS 


. LIM-FX . PGCT+1 






FA7C 








391 


* BFS .PGCT:=FX. 


PGCT 






FA7C 








392 


* 








FA7C 


A5 


59 




393 


LDA 


BFS . LIM 






FA7E 


E5 


43 




394 


SBC 


FX . PGCT 






FA80 


85 


57 




395 


STA 


BFS . BASE 






FAS 2 


A5 


5A 




396 


LDA 


BFS . LIM+1 






FAS 4 


E5 


44 




397 


SBC 


FX. PGCT+1 






FAS 5 


85 


58 




398 


STA 


BFS.BASE+1 






FAS 8 


E6 


57 




399 


INC 


BFS. BASE 






FASA 


DO 


02 


FA8E 


400 


BNE 


FIND050 






FASC 


E6 


58 




401 


INC 


BFS.BASE+1 






FA8E 








402 










FA8E 


A5 


43 




403 


FIND050 LDA 


FX. PGCT 






FA90 


85 


55 




404 


STA 


BFS.PGCT 






FA92 


A5 


44 




405 


LDA 


FX. PGCT+1 






FA94 


85 


56 




406 


STA 


BFS. PGCT+1 






FA96 








407 


* 








FA95 








408 


* DELINK ENTRY 


FROM FREE LIST 


AND 


LINK 


FA95 








409 


* IT INTO SEGMENT LIST 






FA96 








410 


* 








FA96 


A5 


5B 




411 


LDA 


BFS. BLINK 






FA98 


20 


76 


FF 


412 


JSR 


GET. FREE 






FA9B 


90 


01 


FA9E 


413 


BCC 


FIND060 






FA9D 


60 






414 


RTS 






ERR - SEG TABLE 


FA9E 








415 










FA9E 








415 


* ST. ID (NEW) :=F 


. ID 






FA9E 








417 


* ST. BASE (NEW) : 


=BFS .BASE 






FA9E 








418 


* ST.LIM(NEW) := 


BFS. LIM 






FA9E 








419 










FA9E 


AA 






420 


FIND060 TAX 








FA9F 


A5 


62 




421 


LDA 


F.ID 







PAGE 12 
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FAAl ; 


; 9D 


30 


F9 


422 




STA 


ST . ID, X 


FAA4 ; 








423 


* 






FAA4 : 


: A5 


57 




424 




LDA 


BFS . BASE 


FAA6 : 


: 9D 


BO 


F8 


425 




STA 


ST . BASEL, X 


FAA9 : 


:A5 


58 




426 




LDA 


BFS . BASE+1 


FAAB ; 


: 9D 


DO 


F8 


427 




STA 


ST.BASEH,X 


FAAE ; 








428 








FAAE ; 


; A5 


59 




429 




LDA 


BFS.LIM 


FABO ; 


; 9D 


FO 


F8 


430 




STA 


ST . LIML, X 


FAB 3 ; 


; A5 


5A 




431 




LDA 


BFS.LIM+1 


FAB 5 ; 


; 9D 


10 


F9 


432 




STA 


ST . LIMH, X 


FAB8 ; 








433 








FAB8 : 








434 


* RETURN 


SEGNUM, 


PAGE COUNT, BASE 


FAB 8 : 








435 


* TO CALLER 




FAB 8 : 


: AO 


00 




436 


FIND070 


LDY 


#0 


FABA: 


: 8A 






437 




TXA 




FABB ; 


; 91 


69 




438 




STA 


(F .NUM) , Y 


FABD ; 








439 


* 






FABD ; 


; A5 


55 




440 




LDA 


BFS.PGCT 


FABF ; 


; 91 


63 




441 




STA 


(F.PGCT) , Y 


FACl : 


: C8 






442 




INY 




FAC2 : 


: A5 


56 




443 




LDA 


BFS . PGCT+1 


FAC4 : 


: 91 


63 




444 




STA 


(F . PGCT ) , Y 


FAC6 : 








445 








FAC6 : 


: A6 


57 




446 




LDX 


BFS . BASE 


FAGS ; 


;A4 


58 




447 




LDY 


BFS. BASE+1 


FACA; 


;20 


05 


FF 


448 




JSR 


CNVRT . XBP 


FACD : 


: 98 






449 




TYA 




FACE : 


: AO 


01 




450 




LDY 


♦ 1 


FADO ; 


: 91 


65 




451 




STA 


(F .BASE) , Y 


FAD2 ; 


: 88 






452 




DEY 




FAD 3 ; 


; 8A 






453 




TXA 




FAD 4 ; 


; 91 


65 




454 




STA 


(F.BASE) , Y 


FADS ; 








455 


* 






FAD6 ; 


; A6 


59 




456 




LDX 


BFS.LIM 


FADS ; 


; A4 


5A 




457 




LDY 


BFS.LIM+1 


FADA: 


:20 


05 


FF 


458 




JSR 


CNVRT . XBP 


FADD : 


: 98 






459 




TYA 




FADE : 


: AO 


01 




4 60 




LDY 


#1 


FAEO : 


: 91 


67 




4 61 




STA 


(F . LIM) , Y 


FAE2 ; 


; 88 






462 




DEY 




FAE3 ; 


; 8A 






463 




TXA 




FAE4 ; 


; 91 


67 




464 




STA 


(F . LIM) , Y 


FAE6 ; 








465 


* 






FAE6 ; 


:A5 


45 




466 




LDA 


F.ERR 


FAE8 ; 


:D0 


02 


FAEC 


467 




BNE 


FIND. ERR 


FAEA; 








468 


* 






FAEA; 


: 18 






469 




CLC 




FAEB; 


: 60 






470 




RTS 




FAEC: 








471 








FAEC; 


:A9 


00 




472 


FIND. ERR 


LDA 


#SEGRQDN 


FAEE; 


:20 


00 


00 


473 




JSR 


SYSERR 


FAFl ; 








474 




CHN 


MEMMGR.B.SRC 



IF ERR FLAG TRUE THEN REPORT IT. 



NORMAL EXIT 



; ERR EXIT 
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FAFl 








2 


*************** 


********************************* 


FAFl 








3 


* 




FAFl 








4 


* NEXT FREE SEGMENT - INITIALIZATION 


FAFl 








5 






FAFl 








6 


* INPUT: SEGMENT TABLE 


FAFl 








7 


* OUTPUT: CFS.PTR "1ST FREE BANK/PAGE IN VIRTUAL 


FAFl 








8 


* CFS.PREV "PREVIOUS SEGMENT EXAMINED" 


FAFl 








9 


* CFS.NEXT "SEGMENT FOLLOWING CFS.PREV" 


FAFl 








10 


* ERROR: NONE 


(IF NO FREE BK/PG FOUND, THEN CFS 


FAFl 








11 


* 




FAFl 








12 


*************** 


********************************* 


FAFl 








13 


* 




FAFl 






FAFl 


14 


NXTFRSEG.I EQU 




FAFl 








15 


* 




FAFl 








16 


* CFS.PTR := VRT.LIM 


FAFl 








17 


* CFS.PREV := 




FAFl 








18 


* CFS.NEXT := ST. ENTRY 


FAFl 








19 


* 




FAFl 


AD 


40 


00 


20 


LDA 


>VRT . LIM 


FAF4 


85 


53 




21 


STA 


CFS.PTR 


FAF6 


AD 


41 


00 


22 


LDA 


>VRT.LIM+1 


FAF9 


85 


54 




23 


STA 


CFS.PTR+1 


FAFB 








24 


* 




FAFB 


A9 


00 




25 


LDA 


#0 


FAFD 


85 


52 




26 


STA 


CFS.PREV 


FAFF 








27 


* 




FAFF 


AE 


6F 


F8 


28 


LDX 


ST. ENTRY 


FB02 


85 


51 




29 


STX 


CFS.NEXT 


FB04 








30 






FB04 








31 


* LO: IF CFS.NEXT=0 THEN DONE 


FB04 








32 






FB04 


FO 


2A 


FB30 


33 


FRSGIOlO BEQ 


FRSGI .EXIT 


FB05 








34 


* 




FB06 








35 


* IF ST.LIM(CFS 


.NEXT) <=VRT. LIM THEN GOTO LI 


FB06 








35 


* 




FBO 6 


AD 


40 


00 


37 


LDA 


>VRT.LIM 


FB09 


DD 


FO 


F8 


38 


CMP 


ST.LIML,X 


FBOC 


AD 


41 


00 


39 


LDA 


>VRT.LIM+1 


FBOF 


FD 


10 


F9 


40 


SBC 


ST.LIMH,X 


FB12 


BO 


OB 


FBIF 


41 


BCS 


FRSGI020 


FB14 








42 


* 




FB14 








43 


* CFS.PREV :=CFS 


.NEXT 


FB14 








44 


* CFS .NEXT:=ST. 


FLINK (CFS. NEXT) 


FB14 








45 


* GOTO LO 




FB14 








45 


* 




FB14 


86 


52 




47 


STX 


CFS.PREV 


FBI 6 


BD 


90 


F8 


48 


LDA 


ST. FLINK, X 


FB19 


AA 






49 


TAX 




FBIA 


86 


51 




50 


STX 


CFS.NEXT 


FBIC 


40 


04 


FB 


51 


JMP 


FRSGIOlO 


FBIF 








52 


* 




FBIF 








53 


* LI: IF ST.LIM(CFS .NEXT) <VRT.LIM THEN DONE 


FBIF 








54 


* 




FBIF 


BD 


; 


F8 


55 


FRSGI020 LDA 


ST.LIML,X 


FB22 


CD 


40 


00 


56 


CMP 


>VRT.LIM 


FB25 


BD 


10 


F9 


57 


LDA 


ST.LIMH,X 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 288 of 456 



33 MEMMGR.B.SRC SOS 1.1 MEMORY MANAGER AUGUST-2006 



FB28:ED 41 00 58 SBC >VRT.LIM+1 

FB2B:90 03 FB30 59 BCC FRSGI.EXIT 

FB2D: 60 * 

FB2D: 61 * 

FB2D:20 05 FC 62 JSR NXTFRPG 

FB30: 63 * 

FB30:60 64 FRSGI.EXIT RTS ; NORMAL EXIT 
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FB31 








66 


* 


*************** 


******************* 


FB31 








67 


* 






FB31 








68 




NEXT FREE SEGMENT 


FB31 








69 


* 






FB31 








70 




INPUT: SEG TABLE 


FB31 








71 


* 


OUTPUT: CFS. BLINK 


FB31 








72 


* 


CFS .BASE 


FB31 








7 3 


* 


CFS. LIMIT 


FB31 








74 


* 


CFS .PGCT 


FB31 








75 


* 


OWN: CFS.PREV 


FB31 








76 


* 


CFS .NEXT 


FB31 








77 




CFS .PTR 


FB31 








78 








FB31 








79 




BUILDS A CANDIDATE FREE SEGMENT, 


FB31 








80 


* 


THE CURRENT FREE PAGE (CFS. PTR) . 


FB31 








81 


* 






FB31 








82 


* 


*************** 


******************* 


FB31 








83 


* 






FB31 






FB31 


84 


NXTFRSEG EQU 




FB31 








85 


* 






FB31 








86 


* 


IF CFS.PTR="FFFF" THEN EXIT 


FB31 








87 


* 






FB31 


A5 


54 




88 




LDA 


CFS.PTR+1 


FB33 


10 


02 


FB37 


89 




BPL 


FRSGOlO 


FB35 








90 


* 






FB35 


38 






91 




SEC 




FB36 


60 






92 




RTS 




FB37 








93 








FB37 








94 




CFS.BLINK:=CFS 


.PREV 


FB37 








95 




CFS.LIM:=CFS.PTR 


FB37 








96 








FB37 


A5 


52 




97 


FRSGOlO LDA 


CFS . PREV 


FB39 


85 


4C 




98 




STA 


CFS. BLINK 


FB3B 








99 


* 






FB3B 


A5 


53 




100 




LDA 


CFS. PTR 


FB3D 


85 


4A 




101 




STA 


CFS.LIM 


FB3F 


A5 


54 




102 




LDA 


CFS.PTR+1 


FB41 


85 


4B 




103 




STA 


CFS.LIM+1 


FB43 








104 








FB43 








105 




IF CFS.NEXT=0 


THEN CFS. BASE :=0 


FB43 








106 




ELSE CFS. BASE:=ST.LIM(CFS. NEXT 


FB43 








107 


* 






FB43 


A5 


51 




108 




LDA 


CFS. NEXT 


FB45 


DO 


08 


FB4F 


109 




BNE 


FRSG020 


FB47 


A9 


00 




110 




LDA 


#0 


FB49 


85 


48 




111 




STA 


CFS. BASE 


FB4B 


85 


49 




112 




STA 


CFS.BASE+1 


FB4D 


FO 


11 


FB60 


113 




BEQ 


FRSG030 


FB4F 








114 








FB4F 


A6 


51 




115 


FRSG020 LDX 


CFS .NEXT 


FB51 


18 






116 




CLC 




FB52 


BD 


FO 


F8 


117 




LDA 


ST.LIML,X 


FB55 


69 


01 




118 




ADC 


#1 


FB57 


85 


48 




119 




STA 


CFS . BASE 


FB59 


BD 


10 


F9 


120 




LDA 


ST.LIMH,X 


FB5C 


69 


00 




121 




ADC 


#0 



WHOSE LIMIT BANK/PAGE 



NO MORE FREE SEGMENTS LEFT 
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FB5E 


85 


49 




122 


STA 


CFS.BASE+1 




FB60 








123 


* 






FB60 








124 


* OFS -BASEO : ^OFS 


LIM AND $FF80 




FB60 








125 








FB60 


A4 


4B 




126 


FRSG030 LDY 


CFS . LIM+1 




FB62 


84 


4E 




127 


STY 


CFS . BASEO+1 




FB64 


A5 


4A 




128 


LDA 


CFS . LIM 




FB66 


29 


80 




129 


AND 


#$80 




FB68 


85 


4D 




130 


STA 


CFS.BASEO 




FB6A 








131 


* 






FB6A 








132 


* OFS .BASEl :=OFS 


BASE0-32K 




FB5A 








133 


* 






FB6A 


38 






134 


SEO 






FB6B 


E9 


80 




135 


SBO 


#$80 




FB6D 


85 


4F 




136 


STA 


CFS. BASEl 




FB6F 


98 






137 


TYA 






FB70 


E9 


00 




138 


SBC 


#0 




FB72 


85 


50 




139 


STA 


CFS.BASEl+1 




FB74 


BO 


06 


FB7C 


140 


BOS 


FRSG035 




FB7 6 


A9 


00 




141 


LDA 


#0 




FB78 


85 


4F 




142 


STA 


CFS. BASEl 




FB7A 


85 


50 




143 


STA 


CFS.BASEl+1 




FB7C 








144 








FB7C 








145 


* IF OFS.BASE>=OFS.BASE0 THEN GOTO 


LI 


FB7C 








146 








FB7C 


A5 


48 




147 


FRSG035 LDA 


CFS. BASE 




FB7E 


C5 


4D 




148 


OMP 


CFS.BASEO 




FB80 


A5 


49 




149 


LDA 


CFS.BASE+1 




FB82 


E5 


4E 




150 


SBC 


CFS. BASEO+1 




FB84 


BO 


27 


FBAD 


151 


BOS 


FRSG050 




FB86 








152 








FB86 








153 


* IF SEAROH MODE= 


THEN CFS. BASE := 


CFS .BASEO 


FB86 








154 


* GOTO LI 






FB85 








155 


* 






FB86 


A5 


61 




156 


LDA 


SRCHMODE 




FB88 


DO 


OB 


FB95 


157 


BNE 


FRSG040 




FB8A 


A5 


4D 




158 


LDA 


CFS.BASEO 




FB8C 


85 


48 




159 


STA 


CFS. BASE 




FB8E 


A5 


4E 




160 


LDA 


CFS. BASEO+1 




FB90 


85 


49 




161 


STA 


CFS.BASE+1 




FB92 


40 


AD 


FB 


162 


JMP 


FRSG050 




FB95 








163 


* 






FB95 








164 


* IF CFS.BASE<CFS. BASEl AND SEARCH 


M0DE=1 


FB95 








165 


* THEN CFS. BASE :=CFS. BASEl 




FB95 








166 


* 






FB95 


A5 


48 




167 


FRSG040 LDA 


CFS . BASE 




FB97 


05 


4F 




168 


CMP 


CFS. BASEl 




FB99 


A5 


49 




169 


LDA 


CFS.BASE+1 




FB9B 


E5 


50 




170 


SBC 


CFS.BASEl+1 




FB9D 


BO 


OE 


FBAD 


171 


BOS 


FRSG050 




FB9F 








172 


* 






FB9F 


A5 


61 




173 


LDA 


SRCHMODE 




FBAl 


09 


01 




174 


CMP 


#1 




FBA3 


DO 


08 


FBAD 


175 


BNE 


FRSG050 




FBA5 








176 








FBA5 


A5 


4F 




177 


LDA 


CFS. BASEl 
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FBA7 ; 


; 85 


48 




178 


STA 


CFS. BASE 


FBA9 ; 


; A5 


50 




179 


LDA 


CFS . BASEl+1 


FBAB : 


: 85 


49 




180 


STA 


CFS . BASE+1 


FBAD : 








181 






FBAD ; 








182 


* LI: CFS.PGCT 


: =CFS . LIM-CFS . BASE+1 


FBAD ; 








183 






FBAD ; 


; 38 






184 


FRSG050 SEC 




FBAE ; 


; A5 


4A 




185 


LDA 


CFS.LIM 


FBBO ; 


;E5 


48 




185 


SBC 


CFS. BASE 


FBB2 ; 


; 85 


45 




187 


STA 


CFS.PGCT 


FBB4 ; 


; A5 


4B 




188 


LDA 


CFS.LIM+1 


FBB6 ; 


:E5 


49 




189 


SBC 


CFS. BASE+1 


FBB8 : 


: 85 


47 




1 90 


STA 


CFS.PGCT+1 


FBBA: 


: E6 


46 




191 


INC 


CFS.PGCT 


FBBC : 


: DO 


02 


FBCO 


192 


BNE 


FRSG052 


FBBE ; 


:E6 


47 




193 


INC 


CFS.PGCT+1 


FBCO ; 








194 


* 




FBCO ; 








195 


* ADVANCE FREE 


PAGE POINTER TO NEXT FREE PAGE 


FBCO ; 








195 


* 




FBCO ; 








197 


* IF SEARCH MODEOl THEN L2 : 


FBCO : 








1 98 


* 




FBCO : 


: A5 


61 




199 


FRSG052 LDA 


SRCHMODE 


FBC2 : 


: C9 


01 




200 


CMP 


#1 


FBC4 : 


: DO 


19 


FBDF 


201 


BNE 


FRSG050 


FBC6 : 








202 






FBC6 ; 








203 


* IF CFS. BASE < 


CFS.BASEO THEN CFS . PTR: =CFS . BASEO 


FBC6 ; 








204 


* 




FBC6 : 


: A5 


48 




205 


LDA 


CFS. BASE 


FBC8 : 


: C5 


4D 




206 


CMP 


CFS.BASEO 


FBCA; 


: A5 


49 




207 


LDA 


CFS. BASE+1 


FBCC : 


:E5 


4E 




208 


SBC 


CFS.BASEO+1 


FBCE ; 


;B0 


OF 


FBDF 


209 


BCS 


FRSG060 


FBDO ; 








210 


* 




FBDO ; 


;A4 


4E 




211 


LDY 


CFS.BASEO+1 


FBD2 ; 


; A6 


4D 




212 


LDX 


CFS.BASEO 


FBD4 ; 


;D0 


01 


FBD7 


213 


BNE 


FRSG055 


FBD6 ; 


: 88 






214 


DEY 




FBD7 : 


: CA 






215 


FRSG055 DEX 




FBD8 : 


: 85 


53 




216 


STX 


CFS. PTR 


FBDA: 


: 84 


54 




217 


STY 


CFS.PTR+1 


FBDC ; 








218 






FBDC ; 


; 4C 


03 


FC 


219 


JMP 


FRSG070 ; AND EXIT 


FBDF ; 








220 


* L2: CFS.PTR:= 


CFS.BASE-1 


FBDF ; 








221 


* 




FBDF ; 


; 38 






222 


FRSG050 SEC 




FBEO : 


: A5 


48 




223 


LDA 


CFS . BASE 


FBE2 : 


: E9 


01 




224 


SBC 


#1 


FBE4 ; 


:85 


53 




225 


STA 


CFS. PTR 


FBE6 : 


:A5 


49 




226 


LDA 


CFS. BASE+1 


FBE8 ; 


:E9 


00 




227 


SBC 


#0 


FBEA; 


:85 


54 




228 


STA 


CFS.PTR+1 


FBEC; 








229 


* 




FBEC; 








230 


* IF CFS.PTR="FFFF" OR CFS.NEXT=0 THEN EXIT 


FBEC; 








231 






FBEC; 


: 90 


15 


FC03 


232 


BCC 


FRSG070 


FBEE; 


:A5 


51 




233 


LDA 


CFS. NEXT 
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FBFO ; 


;F0 


11 


FC03 


234 




BEQ 


FRSG070 


FBF2 ; 








235 


* 






FBF2 : 








236 




IF CFS.PTR > 


ST.LIM(CFS.l 


FBF2 : 








237 








FBF2 ; 


: A6 


51 




238 




LDX 


CFS. NEXT 


FBF4 : 


: BD 


FO 


F8 


239 




LDA 


ST.LIML,X 


FBF7 ; 


: C5 


53 




240 




CMP 


CFS.PTR 


FBF9 ; 


:BD 


10 


F9 


241 




LDA 


ST.LIMH,X 


FBFC ; 


;E5 


54 




242 




SBC 


CFS.PTR+1 


FBFE; 


: 90 


03 


FC03 


243 




BCC 


FRSG070 


FCOO; 








244 


* 






FCOO; 








245 




OTHERWISE, ADVANCE CFS P' 


FCOO; 








246 




SEGMENT IN SEGMENT LIST 


FCOO: 








247 








FCOO: 


:20 


05 


FC 


248 




JSR 


NXTFRPG 


FC03: 








249 








FC03; 


:18 






250 


FRSG070 CLC 




FC04 ; 


: 60 






251 




RTS 





FREE SEGMENT FOUND 
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FC05 








253 


* 


************** 


********************************** 


* * * * * 


****** 


FC05 








254 


* 










FC05 








255 




NEXT FREE PAGE 






FC05 








256 












FC05 








257 


* 


"WALKS" THE FREE PAGE PTR (CFS.PTR) TO THE NEXT 


FREE 


PAGE 


FC05 








258 




IMMEDIATELY BELOW THE CURRENT FREE SEGMENT. 






FC05 








259 












FC05 








250 


* 


************** 


********************************** 


* * * * * 


****** 


FC05 








251 


* 










FC05 






FC05 


252 


NXTFRPG EQU 








FC05 








253 


* 










FC05 








264 


* 


LO: CFS.PTR:= 


ST. BASE (CFS. NEXT) -1 






FC05 








2 65 




IF CFS.PTR="FFFF" THEN DONE 






FC05 








2 66 


^, 










FC05 


A6 


51 




2 67 




LDX 


CFS .NEXT 






FC07 


38 






2 68 




SEC 








FC08 


BD 


BO 


F8 


259 




LDA 


ST. BASEL, X 






FCOB 


E9 


01 




270 




SBC 


#1 






FOOD 


85 


53 




271 




STA 


CFS.PTR 






FCOF 


BD 


DO 


F8 


272 




LDA 


ST.BASEH,X 






FC12 


E9 


00 




273 




SBC 


#0 






FC14 


85 


54 




274 




STA 


CFS . PTR+1 






FC16 


90 


16 


FC2E 


275 




BCC 


NFRPG.EXIT 






FC18 








276 












FC18 








277 




CFS.PREV:=CFS 


.NEXT 






FC18 








278 




CFS .NEXT:=ST. 


FLINK (CFS. NEXT) 






FC18 








279 


* 










FCl 8 


8 6 


52 




280 




SIX 


CFS.PREV 






FCIA 


BD 


90 


F8 


281 




LDA 


ST. FLINK, X 






FCID 


AA 






282 




TAX 








FCIE 


85 


51 




283 




SIX 


CFS. NEXT 






FC20 








284 












FC20 








285 


* 


IF CFS.NEXT=0 


OR ST.LIM(CFS .NEXT) <CFS .PTR 






FC20 








285 


* 


THEN DONE 








FC20 








287 


* 


ELSE GOTO 


LO 






FC20 








288 


* 










FC20 


FO 


OC 


FC2E 


289 




BEQ 


NFRPG.EXIT 






FC22 


BD 


FO 


F8 


290 




LDA 


ST.LIML,X 






FC25 


C5 


53 




291 




CMP 


CFS.PTR 






FC27 


BD 


10 


F9 


2 92 




LDA 


ST.LIMH,X 






FC2A 


E5 


54 




293 




SBC 


CFS. PTR+1 






FC2C 


BO 


D7 


FC05 


294 




BCS 


NXTFRPG 






FC2E 








295 


* 










FC2E 


50 






295 


NFRPG.EXIT RTS 


; NORMAL EXIT 
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FC2F 








298 


**************** 


*********************** 


FC2F 








299 


* 




FC2F 








300 


♦ CHANGE . SEG (IN. 


SEGNUM,CHG.MODE; INOUT . 


FC2F 








301 






FC2F 








302 






FC2F 








303 


* 




FC2F 






FC2F 


304 


CHG.SEG EQU 


* 


FC2F 








305 


* 




FC2F 








306 


* MOVE CALLER'S 


PAGE COUNT TO INTERNAL 


FC2F 








307 


* 




FC2F 


AO 


00 




308 


LDY 


#0 


FC31 


Bl 


53 




309 


LDA 


(CHG.PGCT) , Y 


FC33 


85 


5C 




310 


STA 


CHG.PGCTX 


FC35 


C8 






311 


INY 




FC36 


Bl 


63 




312 


LDA 


(CHG.PGCT) , Y 


FC38 


85 


5D 




313 


STA 


CHG.PGCTX+1 


FC3A 








314 


* 




FC3A 








315 


* IF SEG# OUT OF 


RANGE OR ST.FLINK(SEG# 


FC3A 








315 


* 




FC3A 


A6 


61 




317 


LDX 


CHG.NUM 


FC3C 


FO 


09 


FC47 


318 


BEQ 


CHGS . ERR 


FC3E 


EO 


20 




319 


CPX 


#ST . CNT 


FC40 


BO 


05 


FC4 7 


320 


BCS 


CHGS . ERR 


FC42 


BD 


90 


F8 


321 


LDA 


ST . FLINK, X 


FC45 


10 


05 


FC4C 


322 


BPL 


CHGS005 


FC47 








323 


* 




FC47 


A9 


00 




324 


CHGS . ERR LDA 


#BADSEGNUM 


FC49 


20 


00 


00 


325 


JSR 


SYSERR ; ERR 


FC4C 








326 




******************* 


FC4C 








327 


* CASE OF CHANGE 


MODE 


FC4C 








328 




******************* 


FC4C 


A4 


62 




329 


CHGS005 LDY 


CHG.MODE 


FC4E 


CO 


01 




330 


CPY 


#1 


FC50 


90 


OD 


FC5F 


331 


BCC 


CHGSOlO 


FC52 


FO 


35 


FC89 


332 


BEQ 


CHGS 020 


FC54 


CO 


03 




333 


CPY 


#3 


FC56 


90 


44 


FC9C 


334 


BCC 


CHGS030 


FC58 


FO 


55 


FCAF 


335 


BEQ 


CHGS040 


FC5A 








336 






FC5A 


A9 


00 




337 


LDA 


#BADCHGMODE 


FC5C 


20 


00 


00 


338 


JSR 


SYSERR ; ERR 
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FC5F 








340 


********* 


****** ^ 


************* 


* * * * * 


* 




FC5F 








341 


* CHANGE 


MODE = 


(BASE UP) 








FC5F 








342 


********* 


****** ^ 


************* 


* * * * * 


* 




FC5F 








343 


* CHG.NEW 


:=ST.BASE (SEG#) +PGCT 








FC5F 








344 














FC5F 


18 






345 


CHGSOlO 


CLC 










FC60 


BD 


BO 


F8 


346 




LDA 


ST. BASEL, X 








FC63 


65 


5C 




347 




ADC 


CHG.PGCTX 








FC65 


85 


5E 




348 




STA 


CHG . NEW 








FC67 


BD 


DO 


F8 


349 




LDA 


ST.BASEH,X 








FC6A 


65 


5D 




350 




ADC 


CHG.PGCTX+1 








FC6C 


85 


5F 




351 




STA 


CHG.NEW+1 








FC6E 








352 














FC6E 


BO 


OC 


FC7C 


353 




BCS 


CHGS014 






OVERFLOW 


FC70 








354 














FC70 








355 


* IF CHG. 


NEW <= 


ST.LIM(SEG#) 


THEN 


EXIT 


FC70 








356 


* 












FC70 


BD 


FO 


F8 


357 




LDA 


ST.LIML,X 








FC73 


C5 


5E 




358 




CMP 


CHG.NEW 








FC75 


BD 


10 


F9 


359 




LDA 


ST.LIMH,X 








FC78 


E5 


5F 




360 




SBC 


CHG.NEW+1 








FC7A 


BO 


OA 


FC86 


361 




BCS 


CHGS016 








FC7C 








3 62 














FC7C 








363 


* OTHERWISE, CHG.NEW:=ST.LIM( 


SEG#) 






FC7C 








3 64 














FC7C 


BD 


FO 


F8 


365 


CHGS014 


LDA 


ST.LIML,X 








FC7F 


85 


5E 




366 




STA 


CHG.NEW 








FC81 


BD 


10 


F9 


367 




LDA 


ST.LIMH,X 








FC84 


85 


5F 




368 




STA 


CHG.NEW+1 








FC86 








369 














FC86 


4C 


48 


FD 


370 


CHGS016 


JMP 


CHGS .EXIT 








FC89 








371 


********* 


****** ^ 


************* 


* * * * * 


* 




FC89 








372 


* CHANGE 


MODE = 


1 (BASE DOWN) 








FC89 








373 


********* 


****** ^ 


************* 


* * * * * 


* 




FC89 








374 


* CHG.NEW 


:=ST.BASE (SEG#) -PGCT 








FC89 








375 


* 












FC8 9 


38 






376 


CHGS020 


SEC 










FC8A 


BD 


BO 


F8 


377 




LDA 


ST. BASEL, X 








FC8D 


E5 


5C 




378 




SBC 


CHG.PGCTX 








FC8F 


85 


5E 




37 9 




STA 


CHG.NEW 








FC91 


BD 


DO 


F8 


380 




LDA 


ST.BASEH,X 








FC94 


E5 


5D 




381 




SBC 


CHG.PGCTX+1 








FC95 


85 


5F 




382 




STA 


CHG.NEW+1 








FC98 


BO 


3F 


FCD9 


383 




BCS 


CHGS050 








FC9A 


90 


4A 


FOE 6 


384 




BCC 


CHGS052 






OVERFLOW 


FC9C 








385 








***** 






FC9C 








386 


* CHANGE 


MODE = 


2 (LIMIT UP) 








FC9C 








387 














FC9C 








388 


* CHG.NEW 


:=ST.LIM(SEG#) +PGCT 








FC9C 








389 














FC9C 


18 






390 


CHGS030 


CLC 










FC9D 


BD 


FO 


F8 


391 




LDA 


ST.LIML,X 








FCAO 


65 


5C 




392 




ADC 


CHG.PGCTX 








FCA2 


85 


5E 




393 




STA 


CHG.NEW 








FCA4 


BD 


10 


F9 


394 




LDA 


ST.LIMH,X 








FCA7 


65 


5D 




395 




ADC 


CHG.PGCTX+1 
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5F 
2C 
37 



FCD9 
FCE5 



FO F8 
5C 

5E 

10 F9 

5D 

5F 

OC F 



5E 

BO F8 
5F 

DO F8 

OA FCD6 



BO F8 

5E 

DO F8 
5F 



395 
397 

398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 



STA CHG.NEW+1 

BCC CHGS050 

BCS CHGS052 

* CHANGE MODE = 3 (LIMIT DOWN) 

* CHG.NEW:=ST.LIM(SEG#) -PGCT 



; OVERFLOW, PEG IT 
****** 



****** 



CHGS040 



SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BCC 



ST.LIML,X 
CHG.PGCTX 
CHG.NEW 
ST.LIMH,X 
CHG.PGCTX+1 
CHG.NEW+1 
CHGS044 



; OVERFLOW, PEG IT 
* 

* IF CHG.NEW >= ST.BASE (SEG#) THEN EXIT 
* 

LDA CHG.NEW 

CMP ST. BASEL, X 

LDA CHG.NEW+1 

SBC ST.BASEH,X 

BCS CHGS046 

* OTHERWISE CHG. NEW :=ST. BASE (SEG#) 



LDA 
STA 
LDA 
STA 

JMP 



ST. BASEL, X 
CHG.NEW 
ST.BASEH,X 
CHG.NEW+1 

CHGS .EXIT 



DETERMINE NEW BANK/PAGE'S REGION, 
IF NEW BANK/PAGE IS INVALID THEN 
SET TO BASE OR LIMIT (CASE CHANGE MODE) 



FCD9 


A6 


5E 




434 


CHGS050 


LDX 


CHG.NEW 


FCDB 


A4 


5F 




435 




LDY 


CHG.NEW+1 


FCDD 


20 


24 


FF 


436 




JSR 


REGION 


FCEO 


BO 


04 


FCE6 


437 




BCS 


CHGS 052 


FCE2 


DO 


02 


FCE6 


438 




BNE 


CHGS 052 


FCE4 


FO 


17 


FCFD 


439 




BEQ 


CHGSlOO 


FCE6 


A5 


62 




440 


CHGS052 


LDA 


CHG . MODE 


FCE8 


C9 


01 




441 




CMP 


#1 


FCEA 


DO 


07 


FCF3 


442 




BNE 


CHGS054 


FCEC 


A2 


00 




443 




LDX 


#>VRT.BASE 


FCEE 


AO 


00 




444 




LDY 


#<VRT.BASE 


FCFO 


40 


F9 


FC 


445 




JMP 


CHGS056 


FCF3 


AE 


40 


00 


446 


CHGS054 


LDX 


>VRT.LIM 


FCF6 


AC 


41 


00 


447 




LDY 


>VRT.LIM+1 


FCF9 


86 


5E 




448 


CHGS056 


SIX 


CHG.NEW 


FCFB 


84 


5F 




449 




STY 


CHG.NEW+1 
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FCFD 










451 


* 








FCFD 










452 


* COMPUTE BANK/PAGE OF ADJACENT SEGMENT, 


IF 


FCFD 










453 


♦ CASE 


CHANGE 


MODE 




FCFD 










454 










FCFD 


A6 


61 






455 


CHGSlOO 


LDX 


CHG.NUM 




FCFF 


A5 


62 






456 




LDA 


CHG. MODE 




FDOl 


C9 


01 






457 




CMP 


#1 




FD03 


DO 


20 




FD25 


458 




BNE 


CHGS200 




FD05 










459 


* n -j^ n 


IF ST.FLINK(SEG#)=0 THEN EXIT 




FD05 


BD 


90 


FE 




460 




LDA 


ST.FLINK,X 




FD08 


FO 


3E 




FD48 


461 




BEQ 


CHGS .EXIT 




FDOA 










4 62 


* 


X,Y:=ST 


.LIM(ST .FLINK (SEG#) ) +1 




FDOA 


A8 








4 63 




TAY 






FDOB 


B9 


FO 


F8 




4 64 




LDA 


ST.LIML, Y 




FDOE 


AA 








4 65 




TAX 






FDOF 


B9 


10 


F9 


466 




LDA 


ST.LIMH, Y 




FD12 


A8 








467 




TAY 






FD13 


E8 








468 




I NX 






FD14 


DO 


01 




FD17 


469 




BNE 


CHGSllO 




FD16 


C8 








470 




INY 






FD17 










471 




IF CHG. 


NEW < X,Y THEN CHG.NEW:=X 


Y 


FD17 


C4 


5F 






472 


CHGSllO 


CPY 


CHG.NEW+1 




FD19 


90 


2D 




FD48 


473 




BCC 


CHGS. EXIT 




FDIB 


FO 


02 




FDIF 


474 




BEQ 


CHGS120 




FDID 


BO 


25 




FD44 


475 




BCS 


CHGS300 




FDIF 


E4 


5E 






476 


CHGS120 


CPX 


CHG. NEW 




FD21 


90 


25 




FD48 


477 




BCC 


CHGS .EXIT 




FD23 


BO 


IF 




FD44 


478 




BCS 


CHGS300 




FD25 










479 


♦ " 2 " 


IF ST. BLINK {SEG#) =0 THEN EXIT 




FD25 


BD 


70 


Ff 




480 


CHGS200 


LDA 


ST. BLINK, X 




FD28 


FO 


IE 




FD48 


481 




BEQ 


CHGS. EXIT 




FD2A 










482 




X,Y:= ST .BASE (ST .BLINK (SEG#) ) -1 




FD2A 


A8 








483 




TAY 






FD2B 


B9 


BO 


FE 




484 




LDA 


ST. BASEL, Y 




FD2E 


AA 








485 




TAX 






FD2F 


B9 


DO 


FE 




486 




LDA 


ST.BASEH, Y 




FD32 


A8 








487 




TAY 






FD33 


8A 








488 




TXA 






FD34 


DO 


01 




FD37 


489 




BNE 


CHGS210 




FD36 


88 








4 90 




DEY 






FD37 


CA 








4 91 


CHGS210 


DEX 






FD38 










492 


* 


IF CHG. 


NEW > X,Y THEN CHG.NEW:=X 


Y 


FD38 


C4 


5F 






493 




CPY 


CHG.NEW+1 




FD3A 


90 


08 




FD44 


494 




BCC 


CHGS300 




FD3C 


FO 


02 




FD40 


495 




BEQ 


CHGS220 




FD3E 


BO 


08 




FD48 


496 




BCS 


CHGS .EXIT 




FD40 


E4 


5E 






497 


CHGS220 


CPX 


CHG. NEW 




FD42 


BO 


04 




FD48 


498 




BCS 


CHGS. EXIT 




FD44 










499 










FD44 


86 


5E 






500 


CHGS300 


SIX 


CHG. NEW 




FD4 6 


84 


5F 






501 




STY 


CHG.NEW+1 
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FD48 ; 








503 


******** 


******* 


*************** 


FD48 ; 








504 


* 






FD48 : 








505 


* OOMPUTE DELTA 


PAGE COUNT AND 


FD48 : 








506 


♦ (OASE 


OF OHG. 


MODE) 


FD48 : 








507 








FD48 : 








508 






*************** 


FD48 ; 


; A6 


61 




509 


OHGS.EXIT LDX 


OHG.NUM 


FD4A; 


; AO 


00 




510 




LDY 


#0 


FD4C ; 


;A5 


62 




511 




LDA 


OHG. MODE 


FD4E ; 


; C9 


01 




512 




OMP 


#1 


FD50 ; 


; 90 


08 


FD5A 


513 




BOO 


OHGS500 


FD52 : 


:F0 


16 


FD6A 


514 




BEQ 


OHGS510 


FD54 : 


: C9 


03 




515 




OMP 


#3 


FD5 6 : 


: 90 


22 


FD7A 


516 




BOO 


OHGS520 


FD58 ; 


:F0 


30 


FD8A 


517 




BEQ 


OHGS530 


FD5A; 








518 








FD5A; 








519 


* npii 


PAGEOOUNT : =NEW-BASE 


FD5A; 








520 


* 






FD5A; 


; 38 






521 


CHGS500 


SEO 




FD5B ; 


; A5 


5E 




522 




LDA 


OHG. NEW 


FD5D : 


:FD 


BO 


F8 


523 




SBO 


ST. BASEL, X 


FD50 : 


: 91 


63 




524 




STA 


(CHG.PGCT) , Y 


FD62 : 


: A5 


5F 




525 




LDA 


CHG.NEW+1 


FD64 : 


: FD 


DO 


F8 


526 




SBC 


ST.BASEH,X 


FD67 : 


: 40 


97 


FD 


527 




JMP 


CHGS600 


FD6A; 








528 


* 






FD6A: 








529 


* n 2 n 


PAGEOOUNT : =BASE-NEW 


FD6A: 








530 








FD 6A : 


: 38 






531 


CHGS510 


SEC 




FD6B ; 


: BD 


BO 


F8 


532 




LDA 


ST. BASEL, X 


FD6E ; 


:E5 


5E 




533 




SBO 


OHG. NEW 


FD70 ; 


; 91 


63 




534 




STA 


(CHG.PGCT) , Y 


FD72 ; 


;BD 


DO 


F8 


535 




LDA 


ST.BASEH,X 


FD75 ; 


;E5 


5F 




535 




SBO 


OHG.NEW+1 


FD77 ; 


; 40 


97 


FD 


537 




JMP 


OHGS600 


FD7A; 








538 


* 






FD7A: 








539 


t "2" — 


PAGEOOUNT : =NEW-LIM 


FD7A: 








540 








FD7A: 


: 38 






541 


CHGS520 


SEO 




FD7B : 


: A5 


5E 




542 




LDA 


OHG. NEW 


FD7D ; 


:FD 


FO 


F8 


543 




SBO 


ST.LIML,X 


FD80 ; 


; 91 


63 




544 




STA 


(CHG.PGCT) , Y 


FD82 ; 


; A5 


5F 




545 




LDA 


OHG.NEW+1 


FD84 ; 


;FD 


10 


F9 


545 




SBO 


ST.LIMH,X 


FD87 ; 


; 40 


97 


FD 


547 




JMP 


OHGS600 


FD8A: 








548 


* 






FD8A: 








549 


* ..3^ __ 


PAGEOOUNT : =L IM-NEW 


FD8A; 








550 








FD8A; 


:38 






551 


CHGS530 


SEC 




FD8B: 


:BD 


FO 


F8 


552 




LDA 


ST.LIML,X 


FD8E; 


:E5 


5E 




553 




SBO 


OHG. NEW 


FD90 ; 


: 91 


63 




554 




STA 


(CHG.PGCT) , Y 


FD92 ; 


:BD 


10 


F9 


555 




LDA 


ST.LIMH,X 


FD95; 


:E5 


5F 




556 




SBO 


CHG.NEW+1 


FD97 ; 








557 


* 






FD97 ; 


:C8 






558 


CHGS600 


INY 
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FD98 ; 


: 91 


63 




559 


STA 


(CHG.PGCT) , Y 


FD9A; 








560 


* 






FD9A; 








561 


* IF NEW PAGE COUNT 


< REQUESTED PAGECOUNT THEN ERR 


FD9A; 








562 








FD9A: 


: AA 






563 


TAX 






FD9B: 


: 88 






564 


DEY 






FD9C : 


:B1 


63 




565 


LDA 


(CHG.PGCT) , Y 


FD9E ; 


;C5 


5C 




566 


CMP 


CHG 


.PGCTX 


FDAO ; 


: 8A 






567 


TXA 






FDAl ; 


;E5 


5D 




568 


SBC 


CHG 


.PGCTX+1 


FDA3 ; 


;B0 


05 


FDAA 


569 


BCS 


CHGS610 


FDA5 : 


:A9 


00 




570 


LDA 


#SEGRQDN 


FDA7 : 


:20 


00 


00 


571 


JSR 


SYSERR ; ERR EXIT 


FDAA: 








572 








FDAA: 








573 


* OTHERWISE, ENTER CHG.NEW IN SEGMENT TABLE AND EXIT 


FDAA; 








574 








FDAA; 


;A6 


61 




575 


CHGS610 LDX 


CHG 


.NUM 


FDAC ; 


;A5 


62 




576 


LDA 


CHG 


.MODE 


FDAE; 


:C9 


02 




577 


CMP 


#2 




FDBO ; 


;A5 


5E 




578 


LDA 


CHG 


.NEW 


FDB2 ; 


; A4 


5F 




579 


LDY 


CHG 


.NEW+1 


FDB4 ; 


;B0 


09 


FDBF 


580 


BCS 


CHGS620 


FDB6 ; 








581 








FDB6 ; 


: 9D 


BO 


F8 


582 


STA 


ST. 


BASEL, X 


FDB9 ; 


: 98 






583 


TYA 






FDBA; 


: 9D 


DO 


F8 


584 


STA 


ST. 


BASEH,X 


FDBD ; 


; 18 






585 


CLC 






FDBE; 


: 60 






586 


RTS 




; NORMAL EXIT 


FDBF ; 








587 








FDBF; 








588 








FDBF; 


: 9D 


FO 


F8 


589 


CHGS620 STA 


ST. 


LIML, X 


FDC2 ; 


: 98 






590 


TYA 






FDC3; 


: 9D 


10 


F9 


591 


STA 


ST. 


LIMH, X 


FDC6; 


:18 






592 


CLC 






FDC7 ; 


: 60 






593 


RTS 




; NORMAL EXIT 


FDC8 ; 








594 


CHN 


MEMMGR.C.SRC 
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FDC8 


A6 


61 




12 


LDX 


GSI .NUM 








FDCA 


FO 


56 


FE22 


13 


BEQ 


GSI .ERR 


; ERR - 


INVALID 


SEGNUM 


FDCC 


EO 


20 




14 


CPX 


#ST . CNT 








EDGE 


BO 


52 


EE22 


15 


BCS 


GSI .ERR 


; ERR - 


INVALID 


SEGNUM 


EDDO 


BD 


90 


F8 


16 


LDA 


ST.FLINK,X 








FDD3 


30 


4D 


FE22 


17 


BMI 


GSI. ERR 


; ERR - 


INVALID 


SEGNUM 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



GET. SEG. INFO (IN. SEGNUM; OUT . BASE . BKPG, LIMIT. BKPG, PGCT, SEGID) 



GET. SEG. INFO EQU * 

* IF SEG# OUT OF BOUNDS OR ST . FLINK ( SEG#) =ST . FREE THEN ERR 



EC DO F8 

BD BO F8 
AA 

20 05 FF 
98 

AO 01 
91 62 
88 
8A 

91 62 



A6 61 
EC 10 F9 
ED FO F8 
AA 

20 05 FF 



8A 

91 64 



BD 30 F9 
91 68 



BD EG F8 
FD BO F8 



A8 



18 
19 
20 
21 
22 
23 
24 
25 
25 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



* RETURN BASE.EKPG TO CALLER 



LDY 
LDA 
TAX 
JSR 
TYA 
LDY 
STA 
DEY 
TXA 
STA 



ST.EASEH,X 
ST. BASEL, X 



CNVRT . XBP 



#1 

(GSI .EASE) , 



(GSI. EASE) ,Y 



* RETURN LIMIT. BKPG TO CALLER 



LDX 
LDY 
LDA 
TAX 
JSR 
TYA 
LDY 
STA 
DEY 
TXA 
STA 



GSI .NUM 
ST.LIMH, 
ST.LIML, 



CNVRT . XEP 



#1 

(GSI.LIM) , Y 



(GSI.LIM) , Y 



* RETURN SEGID TO CALLER 



LDX 
LDA 
STA 



GSI .NUM 
ST.ID,X 
(GSI. ID) , 



* COMPUTE PAGE COUNT 



SEC 
LDA 
SEC 
TAY 



ST.LIML,X 
ST. EASEL, X 
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FEOC ; 


;BD 


10 


F9 


58 


LDA 


ST.LIMH,X 


FEOF ; 


:FD 


DO 


F8 


59 


SBC 


ST. BASER, X 


FE12 : 


: AA 






60 


TAX 




FE13 : 


: C8 






61 


INY 




FE14 : 


:D0 


01 


FE17 


62 


BNE 


GSIOlO 


FE16 : 


:E8 






63 


I NX 




FE17 ; 








64 


* 




FE17 ; 








65 


* RETURN PAGE COUNT TO CALLER 


FE17 ; 








66 


* 




FE17 ; 


: 98 






67 


GSIOlO TYA 




FE18 ; 


; AO 


00 




68 


LDY 


#0 


FEIA: 


: 91 


66 




69 


STA 


(GSI.PGCT) ,Y 


FEIC: 


:C8 






70 


INY 




FEID: 


:8A 






71 


TXA 




FEIE: 


: 91 


66 




72 


STA 


(GSI.PGCT) ,Y 


FE20 ; 








73 


* 




FE20 ; 


:18 






74 


CLC 




FE21 ; 


: 60 






75 


RTS 




FE22 ; 








75 


* 




FE22 ; 


:A9 


00 




77 


GSI.ERR LDA 


#BADSEGNUM 


FE24 ; 


:20 


00 


00 


78 


JSR 


SYSERR 



NORMAL EXIT 
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FE27 








80 


**************** 


******************************************** 


FE27 








81 


* 




FE27 








82 


* GET.SEG.NUM(IN 


.BANKPAGE; OUT.SEGNUM) SYSTEM CALL 


FE27 








83 


* 




FE27 








84 


* 




FE27 








85 


**************** 


******************************************** 


FE27 








85 


* 




FE27 






FE27 


87 


GET.SEG.NUM EQU 




FE27 








88 


* 




FE27 








89 


* OONVERT BANKPAGE TO INTERNAL FORMAT 


FE27 








90 


* 




FE27 


A6 


61 




91 


LDX 


GSN.BKPG 


FE2 9 


A4 


62 




92 


LDY 


GSN.BKPG+1 


FE2B 


20 


02 


FE 


93 


JSR 


CNVRT . IBP 


FE2E 


BO 


31 


FE61 


94 


BCS 


GSN.ERR ; ERR - INVALID BANK PAGE 


FE30 


85 


51 




95 


STX 


GSN.BKPG 


FE32 


84 


52 




95 


STY 


GSN.BKPG+1 


FE34 








97 


* 




FE34 








98 


* QUIT IF NO ENTRIES IN SEG TABLE 


FE34 








99 


* 




FE34 


AD 


5F 


F8 


100 


LDA 


ST. ENTRY 


FE37 


FO 


29 


FE62 


101 


BEQ 


GSN.ERRl ; ERR - SEG NOT FOUND 


FE39 








102 






FE39 








103 


* LI: IF BANKPAGE>ST.LIM(SEG#) THEN ERR 


FE3 9 








104 






FE39 


AA 






105 


GSNOlO TAX 




FE3A 


BD 


FO 


F8 


106 


LDA 


ST.LIML,X 


FE3D 


C5 


61 




107 


CMP 


GSN.BKPG 


FE3F 


BD 


10 


F9 


108 


LDA 


S7.LIMH,X 


FE42 


E5 


52 




109 


SBO 


GSN.BKPG+1 


FE44 


90 


10 


FE62 


110 


BOO 


GSN.ERRl ; ERR - SEG NOT FOUND 


FE4 6 








111 


* 




FE4 5 








112 


* IF BANKPAGE>=ST.BASE (SEG#) THEN FOUND! 


FE4 6 








113 


* 




FE4 6 


A5 


51 




114 


LDA 


GSN.BKPG 


FE48 


DD 


BO 


F8 


115 


OMP 


ST. BASEL, X 


FE4B 


A5 


62 




116 


LDA 


GSN.BKPG+1 


FE4D 


FD 


DO 


F8 


117 


SBC 


ST.BASEH,X 


FE50 


BO 


08 


FE5A 


118 


BCS 


GSN020 


FE52 








119 






FE52 








120 


♦ SEG# :=ST .FLINK (SEG#) ; GOTO LI 


FE52 








121 


* 




FE52 


BD 


90 


F8 


122 


LDA 


ST. FLINK, X 


FE55 


FO 


OB 


FE62 


123 


BEQ 


GSN.ERRl ; ERR - SEG NOT FOUND 


FE57 


40 


39 


FE 


124 


JMP 


GSNOlO 


FE5A 








125 


* 




FE5A 








126 


* RETURN SEG# TO 


CALLER 


FE5A 








127 


* 




FE5A 


AO 


00 




128 


GSN020 LDY 


#0 


FE5C 


8A 






129 


TXA 




FE5D 


91 


63 




130 


STA 


(GSN.NUM) , Y 


FE5F 


18 






131 


OLO 




FE60 


60 






132 


RTS 


; NORMAL EXIT 


FE61 








133 






FE61 


60 






134 


GSN.ERR RTS 


; ERROR EXIT 


FE62 








135 


* 
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FE62:A9 00 136 GSN.ERRl LDA #SEGNOTFND 

FE64:20 00 00 137 JSR SYSERR ; ERROR EXIT 
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FE67 








139 


******************************** 


**************************** 


FE67 








140 


* 




FE67 








141 


* RELEASE . SEG ( IN . SEGNUM) SYSTEM 


CALL 


FE67 








142 






FE67 








143 




**************************** 


FE67 








144 






FE67 






FE67 


145 


RELEASE. SEG EQU * 




FE67 








146 


* 




FE67 








147 


* IF ST .FLINK (SEG#) =ST.FREE THEN 


ERR 


FE67 








148 


* 




FE67 


A6 


61 




149 


LDX RLS.NUM 




FE69 


FO 


OB 


FE7 6 


150 


BEQ RLS . ALL 


; RELEASE . SEG (SEG#— 0) 


FE6B 


EO 


20 




151 


CPX #ST.CNT 




FE6D 


BO 


4E 


FEED 


152 


BCS RLS. ERR 


; ERR - SEG# TOO LARGE 


FE6F 


BD 


90 


F8 


153 


LDA ST. FLINK, X 




FE72 


30 


49 


FEBD 


154 


BMI RLS . ERR 


• ERR — IN VAL ID S E GNUM 


FE74 


10 


IF 


FE95 


155 


BPL REL.SEG 


; RELEASE .SEG(SEG#>0) 


FE7 5 








156 


******************************** 


* * * 


FE7 5 








157 


* 




FE7 6 








158 


* RELEASE ALL 




FE76 








159 


* 




FE76 








1 60 


******************************** 


* * * 


FE76 


AE 


6F 


F8 


161 


RLS. ALL LDX ST. ENTRY 




FE79 


FO 


18 


EE 9 3 


1 62 


BEQ RLSO.EXIT 




FE7B 


86 


61 




163 


STX RLS.NUM 




FE7D 








164 


* 




FE7D 


BD 


30 


F9 


165 


RLS 0. LOOP LDA ST.ID,X 




FE80 


C9 


10 




166 


CMP #$10 


; CARRY SET/CLEARED HERE 


FE82 








1 67 






FE82 


BD 


90 


F8 


1 68 


LDA ST. FLINK, X 




FE85 


48 






169 


PHA 




FE86 


90 


03 


FE8B 


170 


BCC RLS006 


; IF ID^^SYS SEG THEN SKIP 


FE88 


20 


95 


FE 


171 


JSR REL.SEG 


; RELEASE ONE SEGMENT 


FE8B 


68 






172 


RLS006 PLA 




FE8C 


FO 


05 


FE93 


173 


BEQ RLSO.EXIT 




FE8E 


85 


61 




174 






FE90 


AA 






175 


TAX 




FE91 


DO 


EA 


FE7D 


176 


BNE RLSO.LOOP 


; ALWAYS TAKEN 


FE93 








177 






FE93 


18 






178 


RLS . EXIT CLC 




FE94 


60 






179 


RTS 


; NORMAL EXIT ; ALL NON SYSTEM 


FE95 








180 


******************************** 


* * * 


FE95 








181 


* 




FE95 








182 


* REL SEG 




FE95 








183 


* 




FE95 








184 


******************************** 


* * * 


FE95 








185 


* Y : ^ST .FLINK (SEG# ) 




FE95 








186 


* X: ^ST .BLINK (SEG#) 




FE95 








187 






FE95 


A8 






188 


REL . SEG TAY 




FE95 


BD 


70 


F8 


189 


LDA ST. BLINK, X 




FE99 


AA 






190 


TAX 




FE9A 








191 






FE9A 








192 


* IF XOO THEN ST.FLINK(X) :=Y 




FE9A 








193 


* ELSE ST. ENTRY :=Y 




FE9A 








194 


* 
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FE9A 


FO 


07 


FEA3 


195 




BEQ 


RLSOlO 


FE9C 


98 






196 




TYA 




FE9D 


9D 


90 


F8 


1 97 




STA 


ST.FLINK,X 


FEAO 


40 


A7 


FE 


198 




JMP 


RLS020 


FEA3 


80 


5F 


F8 


199 


RLSOlO 


STY 


ST. ENTRY 


FEA6 








200 








FEA6 








201 


* IF YOO 


THEN ST. BLINK (Y) : 


FEA6 








202 


* 






FEA5 


98 






203 




TYA 




FEA7 


FO 


04 


FEAD 


204 


RLS020 


BEQ 


RLS030 


FEA9 


8A 






205 




TXA 




FEAA 


99 


70 


F8 


206 




STA 


ST. BLINK, Y 


FEAD 








207 








FEAD 








208 


* ST.FLINK(SEG#) 


:=ST.FREE 


FEAD 








209 


* ST. FREE 


=SEG# 


AND #$80 


FEAD 








210 








FEAD 


AD 


6E 


F8 


211 


RLS030 


LDA 


ST. FREE 


FEBO 


A6 


61 




212 




LDX 


RLS.NUM 


FEB2 


9D 


90 


F8 


213 




STA 


ST.FLINK,X 


FEB5 


8A 






214 




TXA 




FEB6 


09 


80 




215 




ORA 


#$80 


FEES 


8D 


6E 


F8 


216 




STA 


ST. FREE 


FEBB 








217 








FEBB 


18 






218 




OLO 




FEBC 


60 






219 




RTS 




FEBD 








220 








FEBD 


A9 


00 




221 


RLS . ERR 


LDA 


#BADSEGNUM 


FEBF 


20 


00 


00 


222 




JSR 


SYSERR 



NORMAL EXIT 
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FEC2 








224 


********** 


* * * * * 




****************************** 


FEC2 








225 


* 








FEC2 








226 


* CONVERT 


INTERNAL BANK PAGE 


FEC2 








227 










FEC2 








228 


* INPUT: 


EXTERNAL BANK (X) 


FEC2 








229 








PAGE (Y) 


FEC2 








230 


* OUTPUT: 


INTERNAL BKPG LOW (X) 


FEC2 








231 


* 






BKPG HIGH (Y) 


FEC2 








232 


* 


REGION 


(A) 0=>VIRT BANK 


FEC2 








233 


* 






1=>PHY BANK (0-$2000) 


FEC2 








234 


* 






2=> " ($A000-$FFFF) 


FEC2 








235 


* ERROR: 


CARRY 




SET ("INVALID BANK PAGE") 


FEC2 








236 










FEC2 








237 




***** 






FEC2 








238 


t 








FEC2 






FEC2 


239 


CNVRT . IBP 


EQU 






FEC2 








240 


* 








FEC2 








241 


* CONVERT 


FROM 


EXTERNAL TO INTERNAL FORMAT 


FEC2 








242 


* 








FEC2 








243 


* CASE OF 


BANK: 




ADD PAGE BIAS 


FEC2 








244 


* 








FEC2 


98 






245 




TYA 






FEC3 


EO 


OF 




246 




CPX 




#SF 


FEC5 


FO 


10 


FED7 


247 




BEQ 




CNVIOlO 


FEC7 


BO 


18 


FEEl 


248 




BCS 




CNVI020 


FEC9 








249 


* 








FEC9 


C9 


20 




250 




CMP 




#$20 ; BANK < "F" 


FECB 


90 


33 


FFOO 


251 




BCC 




CNVI . ERRl 


FECD 


C9 


AG 




252 




CMP 




#$A0 


FECF 


BO 


2F 


FFOO 


253 




BCS 




CNVI .ERRl 


FEDl 


38 






254 




SEC 






FED2 


E9 


20 




255 




SBC 




#$20 


FED4 


4C 


EC 


FE 


255 




JMP 




CNVI030 


FED7 








257 


* 








FED7 


C9 


20 




258 


CNVI 010 


CMP 




#$20 ; BANK = "F" 


FED 9 


BO 


25 


FFOO 


259 




BCS 




CNVI . ERRl 


FEDB 


18 






260 




CLC 






FEDC 


69 


80 




2 61 




ADC 




#$80 


FEDE 


4C 


EC 


FE 


2 62 




JMP 




CNVI 030 


FEEl 








2 63 


t 








FEEl 


EO 


10 




264 


CNVI020 


CPX 




#$10 ; BANK = "10 


FEE3 


DO 


IB 


FFOO 


265 




BNE 




CNVI . ERRl 


FEES 


C9 


AO 




266 




CMP 




#$A0 


FEE7 


90 


17 


FFOO 


267 




BCC 




CNVI . ERRl 


FEE 9 


38 






268 




SEC 






FEEA 


E9 


80 




2 69 




SBC 




#$80 


FEEC 








270 










FEEC 


A8 






271 


CNVI030 


TAY 




; SHIFT BANK 


FEED 


8A 






272 




TXA 




; INTO HIGH 


FEEE 


4A 






273 




LSR 




A 


FEEF 


AA 






274 




TAX 






FEFO 


98 






275 




TYA 






FEFl 


90 


02 


FEF5 


276 




BCC 




CNVI040 


FEF3 


09 


80 




277 




ORA 




#$80 


FEF5 








278 










FEF5 








279 


* EXCHANGE 


X S 


Y 
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:48 

:8A 
:A8 
: 68 



FEF5 
FEF5 
FEF6 
FEF7 
FEFf 
FEF9 :AA 
FEFA: 
FEFA: 
FEFA: 
FEFA: 20 
FEED: BO 
FEFF: 
FEFF: 60 
FFOO : 
FFOO :A9 
FF02:20 



24 FF 

01 FFOO 



00 GO 



280 
281 

282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 



NVI040 PHA 
TXA 
TAY 
PLA 
TAX 

COMPUTE REGION (VIRT=0 , PHY1=1, PHY2=2 ) 



CNVI . ERRl 



JSR 
BCS 



LDA 
JSR 



REGION 
CNVI . ERRl 



#BADBKPG 
SYSERR 



REGION RETURNED IN A REG. 
ERR - INVALID BANK PAGE 



NORMAL EXIT 
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FF05 








297 


********** 


* * * * * 


******************** 


FF05 








298 


* 






FFO 5 








2 99 


♦ CONVERT 


EXTERNAL BANK PAGE 


FF05 








300 








FF05 








301 


* INPUT: 


INTERNAL BKPG LOW (X) 


FF05 








302 






HIGH (Y) 


FF05 








303 


* OUTPUT: 


EXTERNAL BANK (X) 


FF05 








304 


* 




PAGE (Y) 


FF05 








305 


* ERROR: 


NO ERROR CHECKING DONE. 


FF05 








306 


* ARE VALID. 




FF05 








307 


* 






FF05 








308 


********** 


* * * * * 


******************** 


FF05 








309 








FF05 






EF05 


310 


CNVRT . XBP 


EQU 


* 


FF05 








311 








FF05 








312 


* CONVERT 


FROM 


INTERNAL TO EXTERNAL 


FF05 








313 


* 






FF05 


8A 






314 




TXA 




FF05 


OA 






315 




ASL 


A 


FF07 


8A 






316 




TXA 




FF08 


2 9 


7F 




317 




AND 


#$7F 


FFOA 








318 




TAX 




FFOB 


98 






319 




TYA 




FFOC 


2A 






320 




ROL 


A 


FFOD 


AS 






321 




TAY 




FFOE 








322 


* 






FFOE 








323 


* CASE OF 


BANK: 


ADD PAGE BIAS 


FFOE 








324 


* 






FFOE 


8A 






325 




TXA 




FFOE 


CO 


OF 




326 




CPY 


#SF 


FFll 


ED 


OB 


FFIE 


327 




BEQ 


CNVX02 ; 


FF13 


BO 


06 


FFIB 


328 




BCS 


CNVXOlO 


FF15 








329 


* 






FF15 


18 






330 




CLC 




FF16 


69 


20 




331 




ADC 


#$20 


FF18 


40 


IE 


FF 


332 




JMP 


CNVX020 


FFIB 








333 


* 






FFIB 


18 






334 


CNVXOlO 


CLC 




FFIC 


69 


80 




335 




ADC 


#$80 


FFIE 








336 








FFIE 








337 


* EXCHANGE 


X & 


Y 


FFIE 








338 


* 






FFIE 


48 






339 


CNVX020 


PHA 




FFIF 


98 






340 




TYA 




FF20 


AA 






341 




TAX 




FF21 


68 






342 




PLA 




FF22 


A8 






343 




TAY 




FF23 


60 






344 




RTS 





; BANK = "F" 



BANK < "F" 



BANK = "10" 



NORMAL EXIT 
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FF24 








345 


****************************************** 


FF24 








347 


* 


FF2 4 








348 


* REGION 


FF24 








349 




FF24 








350 


* INPUT: INTERNAL BKPG LOW (X) 


FF24 








351 


" HIGH (Y) 


FF24 








352 


* OUTPUT: REGION (A) 


FF24 








353 


* INTERNAL BKPG LOW (X) UNOHANGED 


FF24 








354 


* " HIGH (Y) " 


FF24 








355 


* ERROR: CARRY SET ("INVALID BANK/PAGE") 


FF24 








356 


* 


FF24 








357 


****************************************** 


FF24 








358 




FF24 






FF2 4 


359 


REGION EQU * 


FF24 


8E 


50 


F9 


360 


STX RGN.BKPG 


FF27 


80 


51 


F9 


361 


STY RGN.BKPG+1 


FF2A 








362 


* 


FF2A 








363 


* IF BANKPAGE>PHY2LIM THEN ERR 


FF2A 








364 


* 


FF2A 


A9 


7F 




365 


LDA #>PHY2LIM 


FF2C 


CD 


50 


F9 


366 


CMP RGN.BKPG 


FF2F 


A9 


08 




367 


LDA #<PHY2LIM 


FF31 


ED 


51 


F9 


368 


SBC RGN.BKPG+1 


FF34 


90 


3E 


FF74 


369 


BOO RGN.ERR ; ERR - 


FF3 6 








370 




FF35 








371 


* IF BANKPAGE>=PHY2BASE THEN REGION: =2 


FF36 








372 


* 


FF3 6 


AD 


50 


F9 


373 


LDA RGN.BKPG 


FF39 


09 


20 




374 


OMP #>PHY2BASE 


FF3B 


AD 


51 


F9 


375 


LDA RGN.BKPG+1 


FF3E 


E9 


08 




376 


SBO #<PHY2BASE 


FF40 


90 


04 


FF46 


377 


BOO RGNOlO 


FF42 


A9 


02 




378 


LDA #2 


FF44 


DO 


20 


FF72 


379 


BNE RGN040 


FF4 6 








380 


* 


FF4 6 








381 


* IF BANKPAGE>PHY1LIMIT THEN ERR 


FF46 








382 


* 


FF46 


A9 


9F 




383 


RGNOlO LDA #>PHY1LIM 


FF48 


OD 


50 


F9 


384 


OMP RGN.BKPG 


FF4B 


A9 


07 




385 


LDA #<PHY1LIM 


FF4D 


ED 


51 


F9 


386 


SBO RGN.BKPG+1 


FF50 


90 


22 


FF74 


387 


BOO RGN.ERR ; ERR - 


FF52 








388 


* 


FF52 








389 


* IF BANKPAGE>=PHY1BASE THEN REGION :=1 


FF52 








390 


* 


FF52 


AD 


50 


F9 


391 


LDA RGN . BKPG 


FF55 


09 


80 




392 


OMP #>PHY1BASE 


FF57 


AD 


51 


F9 


393 


LDA RGN.BKPG+1 


FF5A 


E9 


07 




394 


SBO #<PHY1BASE 


FF5C 


90 


04 


FF62 


395 


BOO RGN020 


FF5E 


A9 


01 




396 


LDA #1 


FF60 


DO 


10 


FF72 


397 


BNE RGN040 


FF62 








398 




FF62 








399 


* IF BANKPAGE>VIRTUAL LIMIT THEN ERR 


FF62 








400 




FF62 


AD 


40 


00 


401 


RGN020 LDA >VRT.LIM 



INVALID BANK PAGE 



INVALID BANK PAGE 
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FF65:CD 50 F9 



FF68:AD 41 

FF6B:ED 51 



FF6E: 90 
FF70 :A9 
FF72 : 
FF72 
FF73 
FF74 
FF74 
FF75 



:18 
: 60 



:38 
: 50 



00 

F9 



04 
00 



402 
403 

404 
405 
406 
407 
408 
409 
410 
411 
412 



CMP RGN.BKPG 



LDA 

SBC 
BCC 
LDA 

CLC 
RTS 

SEC 
RTS 



>VRT.LIM+1 
RGN . BKPG+1 
RGN . ERR 

#0 



"N" FLAG ALWAYS REFLECTS REGION VAL IN A REG! 
NORMAL EXIT 



INVALID BANK PAGE 
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FF7 6 










414 


**************** 


********************** 


FF7 6 










415 


* 




FF7 6 










416 


♦ GET FREE 




FF7 6 










417 






FF76 










418 


* INPUT: PREVIOUS SEG # (A) 


FF76 










419 


* OUTPUT: NEW SEG # (A) 


FF76 










420 


* ERROR: CARRY 


SET ("SEG TBL FULL") 


FF7 6 










421 


* 




FF7 6 










422 


**************** 


********************** 


FF7 6 










423 


* 




FF7 6 








FF76 


424 


GET. FREE EQU 




FF76 










425 


* 




FF76 










426 


* SAVE PREV SEG 


# IN X 


FF76 










427 


♦ NOTE: PREV SEG 


# CARRIED IN X 


FF7 6 










428 


* NEW SEG 


# CARRIED IN Y 


FF7 6 










429 


* 




FF7 6 


AA 








430 


TAX 




FF77 










431 


* 




FF77 










432 


* IF NO FREE ENTRIES THEN ERR 


FF77 










433 


* 




FF77 


AD 


6E 


F£ 




434 


LDA 


ST. FREE 


FF7A 


C9 


80 






435 


CMP 


#S80 


FF7C 


FO 


3C 




FFBA 


436 


BEQ 


GTFR.ERR 


FF7E 










437 






FF7E 










438 


* TURN OFF FREE 


FLAG (BIT7) AND DELINK 


FF7E 










439 


* 




FF7E 


29 


7F 






440 


AND 


#$7F 


FF80 


A8 








441 


TAY 




FF81 


B9 


90 


FS 




442 


LDA 


ST.FLINK, Y 


FF84 


8D 


6E 


F6 




443 


STA 


ST. FREE 


FF87 










444 






FF87 










445 


* IF PREV SEG # 


IS NULL THEN LINK NEW 


FF87 










445 


* OF SEGMENT LIST 


FF87 










447 


* 




FF87 


EO 


00 






448 


CPX 


#0 


FF89 


DO 


11 




FF9C 


449 


BNE 


GTFROlO 


FF8B 


AD 


6F 


F6 




450 


LDA 


ST. ENTRY 


FF8E 


99 


90 


F6 




451 


STA 


ST.FLINK, Y 


FF91 


A9 


00 






452 


LDA 


#0 


FF93 


99 


70 


FE 




453 


STA 


ST. BLINK, Y 


FF96 


8C 


6F 


F8 




454 


STY 


ST. ENTRY 


FF99 


4C 


AA 


FF 


455 


JMP 


GTFR020 


FF9C 










455 


* 




FF9C 










457 


* OTHERWISE LINK 


NEW ENTRY TO PREV SEG 


FF9C 










458 


* 




FF9C 


BD 


90 


F6 




459 


GTFROlO LDA 


ST.FLINK,X 


FF9F 


99 


90 


F6 




460 


STA 


ST.FLINK, Y 


FFA2 


8A 








461 


TXA 




FFA3 


99 


70 


F6 




462 


STA 


ST. BLINK, Y 


FFA6 


98 








463 


TYA 




FFA7 


9D 


90 


Fe 




464 


STA 


ST.FLINK,X 


FFAA 










465 


* 




FFAA 










466 


* IF ST.FLINK (NEW) ONULL THEN 


FFAA 










467 


♦ ST.BLINK(ST 


.FLINK(NEW) ) :=NEWSEG # 


FFAA 


B9 


90 


Fe 




468 


GTFR020 LDA 


ST.FLINK, Y 


FFAD 


FO 


08 




FFB7 


469 


BEQ 


GTFR030 
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FFAF ; 


;B9 


90 


F8 


470 




LDA 


ST.FLINK, Y 


FFB2 ; 


: AA 






471 




TAX 




FFB3 : 


: 98 






472 




TYA 




FFB4 : 


: 9D 


70 


F8 


473 




STA 


ST. BLINK, X 


FFB7 : 








474 


* 






FFB7 : 








475 


* RETURN 


WITH NEW SEG # 


FFB7 ; 








476 








FFB7 ; 


; 98 






477 


GTFR030 


TYA 




FFB8 ; 


; 18 






478 




CLC 




FFB9 ; 


; 50 






479 




RTS 




FFBA; 








480 


* 






FFBA; 


; A9 


00 




481 


GTFR.ERR 


LDA 


#SEGTBLFULL 


FFBC; 


:20 


00 


00 


482 




JSR 


SYSERR 


FFBF: 








483 








FFBF; 








484 




LST 


ON 


FFBF; 






FFBF 


485 


ZZEND 


EQU 




FFBF; 






0751 


486 


ZZLEN 


EQU 


ZZEND-ZZORG 


FFBF; 






0000 


487 




IFNE 


ZZLEN-LENME^ 


S 








488 




FAIL 


2, "SOSORG 


FFBF; 








489 




FIN 





NORMAL EXIT 



FILE IS INCORRECT FOR MEMMGR" 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 313 of 456 



04 SYMBOL TABLE 
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BY SYMBOL 




X0009 


BADBKPG 


XOOOF 


BADCHGMODE 


XOOlO 


XOOOC 


BADSEGNUM 


XOOOE 


BADSRCHMODE 


57 


59 


BFS . LIM 


55 


BFS . PGCT 


3200 


6B52 


BLABUFMG 


6955 


BLACFM 


5E99 


68F4 


BLAFMGR 


?2CF8 


BLAGLOB 


?2AF8 


2000 


BLALODR 


?6E6E 


BLAMEMMG 


5466 


665E 


BLASCMGR 


6404 


BLASERR 


5A8B 


4F 


CFS.BASEl 


48 


CFS.BASE 


4C 


51 


CFS.NEXT 


46 


CFS.PGCT 


52 


62 


CHG . MODE 


5E 


CHG . NEW 


61 


63 


CHG . PGCT 


FC2F 


CHG . SEG 


FC47 


FC4C 


CHGS005 


FC5F 


CHGSOlO 


FC7C 


FC8 9 


CHGS020 


FC9C 


CHGS030 


FCAF 


FCD6 


CHGS04 6 


FCD9 


CHGS050 


FCE6 


FCF9 


CHGS056 


FCFD 


CHGSlOO 


FD17 


FD25 


CHGS200 


FD37 


CHGS210 


FD40 


FD5A 


CHGS500 


FD6A 


CHGS510 


FD7A 


FD97 


CHGS600 


FDAA 


CHGS610 


FDBF 


FED7 


CNVI 010 


FEEl 


CNVI 020 


FEEC 


FEC2 


CNVRT.IBP 


FF05 


CNVRT . XBP 


FFIB 


65 


F . BASE 


45 


F . ERR 


62 


69 


F . NUM 


63 


F . PGCT 


00 


FA2 3 


FIND . SEG 


FA3 9 


FINDOOl 


FA4 8 


FA5F 


FIND015 


FA6B 


FIND020 


FA72 


FA9E 


FIND060 


FAB 8 


FIND07 


FB37 


FB60 


FRSG030 


FB7C 


FRSG035 


FB95 


FBCO 


FRSG052 


FBD7 


FRSG055 


FBDF 


FB30 


FRSGI . EXIT 


FB04 


FRSGIOlO 


FBIF 


FF7 6 


GET . FREE 


FDC8 


GET . SEG . INFO 


FE2 7 


FE22 


GSI . ERR 


68 


GSI . ID 


64 


66 


GST .PGCT 


FE17 


GSIOIG 


61 


FE62 


GSN . ERRl 


63 


GSN . NUM 


FE39 


FFBA 


GTFR.ERR 


FF9C 


GTFROlO 


FFAA 


70400 


LENBFMI 


2266 


LENBFM 


031C 


056B 


LENDISK3 


0185 


LENDMGR 


61 


04CB 


LENIPL 


OAF 8 


LENLODR 


0751 


00 


LENPATCH 


0296 


LENSCMGR 


D5 


60 


M.RQCODE 


60 


M . TPARMX 


F96F 


F975 


MMGR030 


F97E 


MMGRO 6 


NF952 


F97B 


MMGR050 


FC2E 


NFRPG . EXIT 


FC05 


FB31 


NXTFRSEG 


BCOO 


ORGBFM 


B800 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28F8 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


F05E 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


079F 


PHYILIM 


0820 


PHY2BASE 


087F 


FE95 


REL . SEG 


FE67 


RELEASE . SEG 


F981 


FF74 


RGN . ERR 


FF4 6 


RGNOlO 


FF62 


FE7 6 


RLS . ALL 


FEBD 


RLS . ERR 


61 


FE7D 


RLSO.LOOP 


FE8B 


RLS006 


FEA3 


FEAD 


RLS030 


51 


RQ.BASE 


FA14 


FA19 


RQ . ERR2 


FAIE 


RQ . ERR3 


65 


66 


RQ . NUM 


42 


RQ. REGION 


F98B 


F9D5 


RQ020 


F9ED 


RQ030 


XOOOD 


XOOOB 


SEGTBLFULL 


61 


SRCHMODE 


F8D0 


F870 


ST. BLINK 


N0020 


ST.CNT 


NF8 6F 



BADPGCNT 


X0008 


BADSCNUM 


BFS . BASE 


5B 


BFS . BLINK 


BLABFM 


72E00 


BLABFMI 


BLADISK3 


64D9 


BLADMGR 


BLAINIT 


55C0 


BLAIPL 


BLAOMSG 


5466 


BLAPATCH 


BLAUMGR 


4D 


CFS . BASEO 


CFS. BLINK 


4A 


CFS. LIM 


CFS.PREV 


53 


CFS.PTR 


CHG . NUM 


5C 


CHG.PGCTX 


CHGS .ERR 


FD48 


CHGS .EXIT 


CHGS014 


FC86 


CHGS016 


CHGS040 


FCCC 


CHGS044 


CHGS052 


FCF3 


CHGS054 


CHGSllO 


FDIF 


CHGS120 


CHGS220 


FD44 


CHGS300 


CHGS 520 


FD8A 


CHGS530 


CHGS 620 


FFOO 


CNVI . ERRl 


CNVI 030 


FEF5 


CNVI 040 


CNVXOlO 


FFIE 


CNVX020 


F . ID 


67 


F . LIM 


FALSE 


FAEC 


FIND . ERR 


FIND005 


FA51 


FINDOlO 


FIND030 


FA8E 


FIND050 


FRSGOlO 


FB4F 


FRSG02 


FRSG040 


FBAD 


FRSG050 


FRSG060 


FC03 


FRSG070 


FRSGI020 


43 


FX . PGCT 


GET . SEG . NUM 


62 


GSI . BASE 


GSI . LIM 


61 


GSI . NUM 


GSN.BKPG 


FE61 


GSN . ERR 


GSNOlO 


FE5A 


GSN020 


GTFR020 


FFB7 


GTFR030 


LENBUFMG 


OlFD 


LENCFM 


LENFMGR 


701B2 


LENINIT 


LENMEMMG 


015A 


LENOMSG 


LENSERR 


040E 


LENUMGR 


MMGRO 10 


F972 


MMGRO 2 


MMGR 


F978 


MMGRO 4 


NXTFRPG 


FAFl 


NXTFRSEG. I 


ORGBFMI 


F552 


ORGBUFMG 


ORGDMGR 


FFBF 


ORGEND 


ORGINIT 


DFCO 


ORGIPL 


ORGOMSG 


DE66 


ORGPATCH 


ORGUMGR 


0780 


PHYIBASE 


PHY2LIM 


FF2 4 


REGION 


REQ . SEG 


F950 


RGN . BKPG 


RGN020 


FF72 


RGN040 


RLS . NUM 


FE93 


RLSO.EXIT 


RLSOlO 


FEA7 


RLS020 


RQ . ERRl 


F98A 


RQ . ERR 


RQ. ID 


63 


RQ.LIM 


RQ005 


F9BF 


RQOlO 


SEGNOTFND 


XOOOA 


SEGRQDN 


ST.BASEH 


F8B0 


ST. BASEL 


ST. ENTRY 


NF890 


ST.FLINK 
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04 SYMBOL TABLE 



SORTED BY SYMBOL 



AUGUST-2006 



NF8 6E ST. FREE 
07 ST.SIZ 

00 VRT.BASE 
0751 ZZLEN 
** SUCCESSFUL ASSEMBLY := 
** ASSEMBLER CREATED ON 3 
** TOTAL LINES ASSEMBLED 
** FREE SPACE PAGE COUNT 



F930 ST. ID 
F870 ST.TBL 

N0040 VRT.LIM 
F86E ZZORG 

NO ERRORS 
-APR-85 22:46 
1616 
75 



F910 ST.LIMH 
X0007 SYSERR 
40 ZPAGE 



F8F0 ST.LIML 

80 TRUE 
FFBF ZZEND 
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SOURCE 


FILE 


#01 


=>PRINT 


INCLUDE 


FILE 


#02 


=>S0SORG 


SOURCE 


FILE 


#03 


=>EQUATES 


SOURCE 


FILE 


#04 


=>PATH 


SOURCE 


FILE 


#05 


=>VOLUME 


SOURCE 


FILE 


#06 


=>CREATE 


SOURCE 


FILE 


#07 


=>FNDFIL 


SOURCE 


FILE 


#08 


=>ALLOC 


SOURCE 


FILE 


#09 


=>POSN.OPEN 


SOURCE 


FILE 


#10 


=>RE AD. WRITE 


SOURCE 


FILE 


#11 


=>CLOSE.EOF 


SOURCE 


FILE 


#12 


=>DESTROY 


SOURCE 


FILE 


#13 


=>SWAPOUT . IN 
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01 PRINT SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 2 



0000 




2 


* Ol-FEB-8 


2 






0000 




3 




REL 






0000 


0000 


4 




IBUFSIZ 1 




0000 


0000 


5 




SBUFSIZ 40 




0000 




6 




INCLUDE SOSORG 




0000 




1 










****************** 


* * * * 


*********** 


****** 


************************************************* 


0000 




2 


* SOS KERNEL MODULE ORIGINS 




0000 


lEOO 


3 


ORGLODR 


EQU 


$1E00 


ORIGIN OF SOS LOADER 


0000 


28F8 


4 


ORGINIT 


EQU 


$28F8 


ORIGIN OF INIT 


0000 


18FC 


5 


ORGGLOB 


EQU 


$18FC 


ORIGIN OF SYSGLOB 


0000 


B800 


6 


ORGBFMI 


EQU 


$B800 


ORIGIN OF BFM.INIT2 S BITMAPS 


0000 


BCOO 


7 


ORGBFM 


EQU 


$BCOO 


ORIGIN OF BFM 


0000 


DE66 


8 


ORGPATCH 


EQU 


$DE66 


ORIGIN OF PATCH AREA 


0000 


DE66 


9 


ORGOMSG 


EQU 


$DE66 


ORIGIN OF OPRMSG 


0000 


DFCO 


10 


ORGIPL 


EQU 


$DFCO 


ORIGIN OF IPL 


0000 


E48B 


11 


ORGUMGR 


EQU 


$E48B 


ORIGIN OF UMGR 


0000 


E899 


12 


0RGDISK3 


EQU 


$E899 


ORIGIN OF DISK3 


0000 


EE04 


13 


ORGSERR 


EQU 


$EE04 


ORIGIN OF SYSERR 


0000 


EED9 


14 


ORGDMGR 


EQU 


$EED9 


ORIGIN OF DEVMGR 


0000 


FOSE 


15 


ORGSCMGR 


EQU 


$F05E 


ORIGIN OF SCMGR 


0000 


F2F4 


16 


ORGFMGR 


EQU 


$F2F4 


ORIGIN OF FMGR 


0000 


F355 


17 


ORGCFM 


EQU 


$F355 


ORIGIN OF CFMGR 


0000 


F552 


18 


ORGBUFMG 


EQU 


$F552 


ORIGIN OF BUFMGR 


0000 


F86E 


19 


ORGMEMMG 


EQU 


$F86E 


ORIGIN OF MEMMGR 


0000 


FFBF 


20 


ORGEND 


EQU 


SFFBF 


END MARKER 


0000 




21 










****************** 






****** 




0000 




22 


* LENGTH 


OF SOS 


MODULES — THIS MUST AGREE WITH ZZLEN FOR EACH 


0000 


OAFS 


23 


LENLODR 


EQU 


ORGINIT-ORGLODR 


LENGTH OF SOS LOADER 


0000 


01B2 


24 


LENINIT 


EQU 


$01B2 


LENGTH OF INIT 


0000 


0400 


25 


LENBFMI 


EQU 


ORGBFM-ORGBFMI 


LENGTH OF BFM.INIT2 S BITMAPS 


0000 


2266 


26 


LENBFM 


EQU 


ORGPATCH-ORGBFM 


LENGTH OF BFM 


0000 


0000 


27 


LENPATCH 


EQU 


ORGOMSG-ORGPATCH 


LENGTH OF PATCH AREA 


0000 


015A 


28 


LENOMSG 


EQU 


ORGIPL-ORGOMSG 


LENGTH OF OPRMSG 


0000 


04CB 


29 


LENIPL 


EQU 


ORGUMGR-ORGIPL 


LENGTH OF IPL 


0000 


040E 


30 


LENUMGR 


EQU 


0RGDISK3-0RGUMGR 


LENGTH OF UMGR 


0000 


056B 


3 1 


LENDISK3 


EQU 


0RGSERR-0RGDISK3 


LENGTH OF DISK3 


0000 


00D5 


32 


LENSERR 


EQU 


ORGDMGR-ORGSERR 


LENGTH OF SYSERR 


0000 


0185 


33 


LENDMGR 


EQU 


ORGSCMGR-ORGDMGR 


LENGTH OF DEVMGR 


0000 


0296 


34 


LENSCMGR 


EQU 


ORGFMGR-ORGSCMGR 


LENGTH OF SCMGR 


0000 


0061 


35 


LENFMGR 


EQU 


ORGCFM-ORGFMGR 


LENGTH OF FMGR 


0000 


OlFD 


36 


LENCFM 


EQU 


ORGBUFMG-ORGCFM 


ORIGIN OF CFMGR 


0000 


031C 


37 


LENBUFMG 


EQU 


ORGMEMMG-ORGBUFMG 


; LENGTH OF BUFMGR 


0000 


0751 


38 


LENMEMMG 


EQU 


ORGEND-ORGMEMMG 


LENGTH OF MEMMGR 


0000 




39 










****************** 


* * * * 


*********** 




************************************************* 


0000 




40 


* SOS 


BLOAD 


ADDRESSES 




0000 


2000 


41 


BLALODR 


EQU 


$2000 


BLOAD ADDRESS OF SOS LOADER 


0000 


2AF8 


42 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLOAD ADDRESS OF INIT 


0000 


2CF8 


43 


BLAGLOB 


EQU 


$2CF8 


BLOAD ADDRESS OF SYSGLOB 


0000 


2E00 


44 


BLABFMI 


EQU 


$2E00 


BLOAD ADDRESS OF BFM.INIT2 S 


0000 


3200 


45 


BLABFM 


EQU 


$3200 


BLOAD ADDRESS OF BFM 


0000 


5466 


46 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLOAD ADDRESS OF PATCH AREA 


0000 


5466 


47 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


; BLOAD ADDRESS OF OPRMSG 


0000 


55C0 


48 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLOAD ADDRESS OF IPL 


0000 


5A8B 


49 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLOAD ADDRESS OF UMGR 


0000 


5E99 


50 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLOAD ADDRESS OF DISK3 


0000 


6404 


51 


BLASERR 


EQU 


BLADISK3+LENDISK3 


; BLOAD ADDRESS OF SYSERR 
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02 SOSORG SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



0000 


64D9 


52 


BLADMGR EQU 


BLASERR+LENSERR 


; BLOAD ADDRESS OF DEVMGR 


0000 


665E 


53 


BLASCMGR EQU 


BLADMGR+LENDMGR 


; BLOAD ADDRESS OF SCMGR 


0000 


68F4 


54 


BLAFMGR EQU 


BLASCMGR+LENSCMGR ; BLOAD ADDRESS OF FMGR 


0000 


6955 


55 


BLACFM EQU 


BLAFMGR+LENFMGR 


; BLOAD ADDRESS OF CFMGR 


0000 


6B52 


56 


BLABUFMG EQU 


BLACFM+LENCFM 


; BLOAD ADDRESS OF BUFMGR 


0000 


6E6E 


57 


BLAMEMMG EQU 


BLABUFMG+LENBUFMG ; BLOAD ADDRESS OF MEMMGR 


0000 




58 








****************** 


* * * * 


***************** 


***************** 


*************************** 


BCOO 


BCOO 


7 


ORG 


ORGBFM 


; BITMAPS $B800-$BBFF 


BCOO 


BCOO 


8 


ZZORG EQU 






BCOO 




9 


********************************* 


*************************** 


BCOO 




10 


* (C) COPYRIGHT 1981 BY 


APPLE COMPUTER INC. 


BCOO 




11 




ALL RIGHTS 


RESERVED 


BCOO 




12 








BCOO 




13 


MSB 


OFF 




BCOO 




14 


LSI 


VSYM 




BCOO 




15 


CHN 


EQUATES 




BCOO 




1 


* 






BCOO 


BCOO 


2 


ENTRY 


BFMGR 




BCOO 




3 


* 






BCOO 




4 


* BFM INITIALIZATION ENTRIES 




BCOO 




5 


* (INIT CODE FOUND IN INIT.SRC) 




BCOO 




6 


* 






BCOO 


OOlC 


7 


ENTRY 


BFMFCBl 


; FCB PAGE 1 ADDR 


BCOO 


OOID 


8 


ENTRY 


BFMFCB2 


; AND PAGE 2 


BCOO 


OOBA 


9 


ENTRY 


FCBZPP 




BCOO 


1400 


10 


ENTRY 


SISTER 




BCOO 


1000 


11 


ENTRY 


PATHBUF 




BCOO 


1100 


12 


ENTRY 


VCB 




BCOO 


DB9F 


13 


ENTRY 


WORKSPC 




BCOO 


0015 


14 


ENTRY 


PFIXPTR 




BCOO 


00B8 


15 


ENTRY 


BMAPAGE 




BCOO 


OOBA 


15 


ENTRY 


BMBPAGE 




BCOO 


0028 


17 


ENTRY 


FCBADDRH 




BCOO 


OOIE 


18 


ENTRY 


BMAMADR 




BCOO 


0024 


19 


ENTRY 


BMBMADR 




BCOO 




20 


* 






BCOO 




21 








BCOO 


0000 


22 


EXTRN 


LEVEL 


; FILE LEVEL (LOW BYTE) 


BCOO 


0000 


23 


EXTRN 


OPMSGRPLY 


; OPERATOR MESSAGE 


BCOO 


0000 


24 


EXTRN 


DATETIME 


; THANKS TOM. . . 


BCOO 


0000 


25 


EXTRN 


DMGR 


; THANKS BOB . . . 


BCOO 


0000 


25 


EXTRN 


REQBUF 




BCOO 


0000 


27 


EXTRN 


REQFXBUF 




BCOO 


0000 


28 


EXTRN 


GETBUFADR 




BCOO 


0000 


29 


EXTRN 


RELBUF 




BCOO 


0000 


30 


EXTRN 


BLKDLST 




BCOO 


0000 


31 


EXTRN 


SERR 




BCOO 


0000 


32 


EXTRN 


BACKMASK 




BCOO 




33 


* 






BCOO 




34 


* ERRORS 






BCOO 




35 


* 






BCOO 


0000 


36 


EXTRN 


SYSERR 




BCOO 




37 








BCOO 


0000 


38 


EXTRN 


BADPATH 


; INVALID PATHNAME SYNTAX 


BCOO 


0000 


39 


EXTRN 


FCBFULL 


; FILE CONTROL BLOCK FULL 


BCOO 


0000 


40 


EXTRN 


BADREFNUM 


; INVALID REFNUM 
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03 EQUATES SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 4 



BCOO 


0000 


41 




EXTRN 


PATHNOTFND 


PATHNAME NOT FOUND 


BCOO 


0000 


42 




EXTRN 


VNFERR 


VOLUME NOT FOUND 


BCOO 


0000 


43 




EXTRN 


FNFERR 


FILE NOT FOUND 


BCOO 


0000 


44 




EXTRN 


DUPERR 


DUPLICATE FILE NAME ERROR 


BCOO 


0000 


45 




EXTRN 


DUPVOL 


DUPLICATE VOLUME CAN'T BE LOGGED IN. 


BCOO 


0000 


46 




EXTRN 


OVRERR 


NOT ENOUGH DISK SPACE FOR PREALLOCATION 


BCOO 


0000 


47 




EXTRN 


DIRFULL 


DIRECTORY FULL ERROR 


BCOO 


0000 


48 




EXTRN 


CPTERR 


FILE INCOMPATIBLE SOS VERSION 


BCOO 


0000 


49 




EXTRN 


TYPERR 


NOT CURRENTLY SUPPORTED FILE TYPE 


BCOO 


0000 


50 




EXTRN 


EOFERR 


POSITION ATTEMPTED BEYOND END OF FILE 


BCOO 


0000 


51 




EXTRN 


POSNERR 


ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


BCOO 


0000 


52 




EXTRN 


ACCSERR 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES. 


BCOO 


0000 


53 




EXTRN 


BTSERR 


USER SUPPLIED BUFFER TOO SMALL 


BCOO 


0000 


54 




EXTRN 


FILBUSY 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY ALLOCATED 


BCOO 


0000 


55 




EXTRN 


NOTSOS 


NOT A SOS DISKETTE 


BCOO 


0000 


56 




EXTRN 


BADLSTCNT 


INVALID VALUE IN LIST PARAMETER 


BCOO 


0000 


57 




EXTRN 


XDISKSW 


DISK SWITCHED 


BCOO 


0000 


58 




EXTRN 


NOTBLKDEV 


NOT A BLOCK DEVICE 


BCOO 


0000 


59 




EXTRN 


XNOWRITE 


DISK/MEDIA IS HARDWARE WRITE PROTECTED 


BCOO 


0000 


60 




EXTRN 


XIOERROR 


INFORMATION ON BLOCK DEVICE NOT ACCESSABLE 


BCOO 


0000 


61 




EXTRN 


DIRERR 


DIRECTORY ENTRY COUNT INCONSISTENT WITH ACTUAL ENTRIES 


BCOO 


0000 


62 




EXTRN 


BITMAP ADR 


BIT MAP DISK ADDRESS IMPOSSIBLE 


BCOO 




63 


* 








BCOO 




64 


* 


FATAL ERRORS 






BCOO 




65 


* 








BCOO 


0000 


66 




EXTRN 


SYSDEATH 




BCOO 




67 


* 








BCOO 


0000 


68 




EXTRN 


VCBERR 


VOLUME CONTROL BLOCK NOT USABLE 


BCOO 


0000 


69 




EXTRN 


ALCERR 


ALLOCATION BLOCKS INVALID 


BCOO 


0000 


70 




EXTRN 


TOOLONG 


PATHNAME BUFFER OVERFLOW 
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03 EQUATES 


SOS 


1.1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 5 


BCOO 




72 


* 








BCOO 




73 


* CONSTANTS 






BCOO 




74 










BCOO 


002F 


75 


DLIMIT 


EQU 


$2F 


DELIMITER IS CURRENTLY AN ASCII '/' 


BCOO 


0001 


76 


SEEDTYP 


EQU 


1 




BCOO 


0002 


77 


SAPTYP 


EQU 


2 




BCOO 


0003 


78 


TRETYP 


EQU 


3 




BCOO 


OOOD 


79 


DIRTYP 


EQU 


$D 




BCOO 


OOOE 


80 


HEDTYP 


EQU 


$E 




BCOO 


0000 


81 


RDCMD 


EQU 


$0 




BCOO 


0001 


82 


WRTCMD 


EQU 


$1 




BCOO 


0009 


83 


RPTCMD 


EQU 


$9 




BCOO 


0002 


84 


STATCMD 


EQU 


$02 


REQUEST STATUS OF BLOCK DEVICE. (BIT = WRITE 


BCOO 


0000 


85 


STAT SUB 


EQU 


$0 




BCOO 


0020 


86 


PRETIME 


EQU 


$20 


COMMAND NEEDS CURRENT DATE/TIME STAMP 


BCOO 


0040 


87 


PREREF 


EQU 


$40 


COMMAND REQUIRES FOB ADDRESS AND VERIFICATION 


BCOO 


0080 


88 


PREPATH 


EQU 


$80 


COMMAND HAS PATHNAME TO PREPROCESS 


BCOO 


1400 


89 


SISTER 


EQU 


$1400 




BCOO 




90 


* 








BCOO 




91 


* VOLUME 


STATUS 


CONSTANTS (BITS) 




BCOO 




92 


* 








BCOO 


0040 


93 


DSWITCH 


EQU 


$40 


FOR DISK SWITCHED ERROR RECOVERY. 


BCOO 




94 


* 








BCOO 




95 


* FILE STATUS CONSTANTS 




BCOO 




96 


* 








BCOO 


0001 


97 


DATALC 


EQU 


$1 


DATA BLOCK NOT ALLOCATED. 


BCOO 


0002 


98 


IDXALC 


EQU 


$2 


INDEX NOT ALLOCATED 


BCOO 


0004 


99 


TOPALC 


EQU 


$4 


TOP INDEX NOT ALLOCATED 


BCOO 


0008 


100 


STPMOD 


EQU 


$8 


STORAGE TYPE MODIFIED 


BCOO 


0010 


101 


USEMOD 


EQU 


$10 


FILE USAGE MODIFIED 


BCOO 


0020 


102 


EOFMOD 


EQU 


$20 


END OF FILE MODIFIED 


BCOO 


0040 


103 


DATMOD 


EQU 


$40 


DATA BLOCK MODIFIED 


BCOO 


0080 


104 


IDXMOD 


EQU 


$80 


INDEX BLOCK MODIFIED 


BCOO 


0080 


105 


FCBMOD 


EQU 


$80 


HAS FCB/DIRECTORY BEEN MODIFIED? (FLUSH) 


BCOO 




106 


* 








BCOO 




107 


* FILE ATTRIBUTES CONSTANTS 




BCOO 




108 










BCOO 


0001 


109 


READEN 


EQU 


$1 


READ ENABLED 


BCOO 


0002 


110 


WRITEN 


EQU 


$2 


WRITE ENABLED 


BCOO 


0010 


111 


NLINEN 


EQU 


$10 


NEW LINE ENABLED 


BCOO 


0020 


112 


BKBITVAL 


EQU 


$20 


FILE NEEDS BACKUP IF SET (BKBITFLG) 


BCOO 


0040 


113 


RENAMEN 


EQU 


$40 


RENAME OK WHEN ON. 


BCOO 


0080 


114 


DSTROYEN 


EQU 


$80 


DESTROY OK WHEN ON. 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 320 of 456 



03 EQUATES 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



BCOO 




115 


* HEADER 


INDEX CONSTANTS 




BCOO 




117 


* 










BCOO 


0000 


118 


HNLEN 


EQU 


$0 




HEADER NAME LENGTH (OFFSET INTO HEADER) 


BCOO 




119 


*HNAME EQU $1 ; 


HEADER 


NAME 




BCOO 


0010 


120 


HPENAB 


EQU 


$10 




PASSWORD ENABLE BYTE 


BCOO 


0011 


121 


HPASS 


EQU 


$11 




ENCODED PASSWORD 


BCOO 


0018 


122 


HCRDT 


EQU 


$18 




HEADER CREATION DATE 


BCOO 




123 


* HCRTM 


EQU $1A 


; HEADER CREATION TIME 


BCOO 


OOlC 


124 


HVER 


EQU 


$1C 




SOS VERSION THAT CREATED DIRECTORY 


BCOO 


OOID 


125 


HCMP 


EQU 


$1D 




BACKWARD COMPATIBLE WITH SOS VERSION 


BCOO 


OOIE 


126 


HATTR 


EQU 


$1E 




HEADER ATTRIBUTES- PROTECT ETC. 


BCOO 




127 


* HENTLN 


EQU $1F 


; LENGTH OF EACH ENTRY 


BCOO 




128 


* HMENT 


EQU S20 


; MAXIMUM NUMBER OF ENTRIES/BLOCK 


BCOO 


0021 


129 


HCENT 


EQU 


$21 




CURRENT NUMBER OF FILES IN DIRECTORY 


BCOO 


0023 


130 


HRBLK 


EQU 


$23 




OWNER'S DIRECTORY ADDRESS 


BCOO 


0025 


131 


HRENT 


EQU 


$25 




OWNER'S DIRECTORY ENTRY NUMBER 


BCOO 


0026 


132 


HRELN 


EQU 


$26 




OWNER'S DIRECTORY ENTRY LENGTH 


BCOO 


0023 


133 


VBMAP 


EQU 


HRBLK 






BCOO 


0025 


134 


VTBLK 


EQU 


HRENT 




(USED FOR ROOT DIRECTORY ONLY) 


BCOO 




135 


* 










BCOO 




136 


* VOLUME 


CONTROL 


BLOCK 


INDEX CONSTANTS 


BCOO 




137 












BCOO 


0020 


138 


VCBSIZE 


EQU 


$20 




CURRENT VCB IS 32 BYTES PER ENTRY (VER 0) 


BCOO 


0000 


139 


VCBNML 


EQU 







VOLUME NAME LENGTH BYTE 


BCOO 


0001 


140 


VCBNAM 


EQU 


1 




VOLUME NAME 


BCOO 


0010 


141 


VCBDEV 


EQU 


$10 




VOLUME'S DEVICE 


BCOO 


0011 


142 


VCBSTAT 


EQU 


$11 




VOLUME STATUS. (80=FILES OPEN. 40=DISK SWITCHED 


BCOO 


0012 


143 


VCBTBLK 


3QU 


$12 




TOTAL BLOCKS ON THIS VOLUME 


BCOO 


0014 


144 


VCBTFRE 


iyU 


$14 




NUMBER OF UNUSED BLOCKS 


BCOO 


0016 


145 


VCBROOT 


EQU 


$16 




ROOT DIRECTORY (DISK) ADDRESS 


BCOO 




146 


*VCBMORG 


EQU $18 


; MAP 


ORGANIZATION (NOT SUPPORTED BY V 0) 


BCOO 




147 


*VCBMBUF 


EQU $19 


; BIT 


MAP BUF NUM 




BCOO 


OOIA 


148 


VCBDMAP 


EQU 


$1A 




FIRST (DISK) ADDRESS OF BITMAP (S) 


BCOO 


OOlC 


149 


VCBCMAP 


EQU 


$1C 




RELATIVE ADDRESS OF BIT MAP WITH SPACE (ADD TO 


BCOO 




150 


*VCBMNUM 


EQU $1D 


; RELATIVE BIT MAP CURRENTLY IN MEMORY 


BCOO 


OOIE 


151 


VCBOPNC 


EQU 


$1E 




CURRENT NUMBER OF OPEN FILES. 


BCOO 


OOIF 


152 


VCBSWAP 


EQU 


$1F 




$8X IF VOLUME SWAPPED; $00 IF UNSWAPPED WHERE X 


OF VCB ADR/ 16 














BCOO 




153 












BCOO 




154 


* FILE CONTROL BLOCK INDEX CONSTANTS 


BCOO 




155 












BCOO 


0000 


155 


FCBREFN 


EQU 







FILE REFERENCE NUMBER (POSITION SENSITIVE) 


BCOO 


0001 


157 


FCBDEVN 


EQU 


1 




DEVICE (NUMBER) ON WHICH FILE RESIDES 


BCOO 




158 


*FCBHEAD 


EQU 2 ; 


BLOCK 


ADDRESS OF FILE'S DIRECTORY HEADER 


BCOO 




159 


*FCBDIRB 


EQU 4 ; 


BLOCK 


ADDRESS OF FILE'S DIRECTORY 


BCOO 


0006 


160 


FCBENTN 


EQU 


6 




ENTRY NUMBER WITHIN DIRECTORY BLOCK 


BCOO 


0007 


161 


FCBSTYP 


EQU 


7 




STORAGE TYPE - SEED, SAPLING, TREE, ETC. 


BCOO 


0008 


162 


FCBSTAT 


EQU 


8 




STATUS - INDEX/DATA/EOF/USAGE/TYPE MODIFIED. 


BCOO 


0009 


163 


FCBATTR 


EQU 


9 




ATTRIBUTES - READ/WRITE ENABLE, NEWLINE ENABLE. 


BCOO 


OOOA 


164 


FCBNEWL 


EQU 


$A 




NEW LINE TERMINATOR (ALL 8 BITS SIGNIFICANT) . 


BCOO 


OOOB 


165 


FCBBUFN 


EQU 


$B 




BUFFER NUMBER 


BCOO 


OOOC 


166 


FCBFRST 


EQU 


$C 




FIRST BLOCK OF FILE 


BCOO 


OOOE 


167 


FCBIDXB 


EQU 


$E 




BLOCK ADDRESS OF INDEX (0 IF NO INDEX) 


BCOO 


0010 


168 


FCBDATB 


EQU 


$10 




BLOCK ADDRESS OF DATA 


BCOO 


0012 


169 


FCBMARK 


EQU 


$12 




CURRENT FILE MARKER. 


BCOO 


0015 


170 


FCBEOF 


EQU 


$15 




LOGICAL END OF FILE. 


BCOO 


0018 


171 


FCBUSE 


EQU 


$18 




ACTUAL NUMBER OF BLOCKS ALLOCATED TO THIS FILE. 



=LOW ORDER BYTE 
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03 EQUATES SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 7 

BCOO: OOIA 172 FCBSWAP EQU $1A ; $8N = SWAPPED, $00 = UNSWAPPED VOLUME ("N" = VCB ENTRY NUMBER) 

BCOO: OOIB 173 FCBLEVL EQU $1B ; LEVEL AT WHICH THIS FILE WAS OPENED 

BCOO: OOlC 174 FCBDIRTY EQU $1C ; FCB MARKED AS MODIFIED 
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03 EQUATES 


SOS 


1.1 BLOCK 


FILE 


MANAGER 


BCOO 




175 


* 






BCOO 




177 


* ZERO PAGE STUFF 


BCOO 




178 








BCOO 


OOAO 


179 


PAR 


EQU 


$A0 


BCOO 


OOAO 


180 


COMMAND 


EQU 


PAR 


BCOO 


OOAl 


181 


C . DNAMP 


EQU 


PAR+1 


BCOO 


OOAl 


182 


C.PATH 


EQU 


PAR+1 


BCOO 


OOAl 


183 


C . REFNUM 


EQU 


PAR+1 


BCOO 


00A2 


184 


C.ISNEWL 


EQU 


PAR+2 


BCOO 


00A2 


185 


C . OUTEOF 


EQU 


PAR+2 


BCOO 


00A2 


186 


CEASE 


EQU 


PAR+2 


BCOO 


00A2 


187 


C.MRKPTR 


EQU 


PAR+2 


BCOO 


00A2 


188 


C . OUTBUF 


EQU 


PAR+2 


BCOO 


00A3 


189 


C . NWPATH 


EQU 


PAR+3 


BCOO 


O0A3 


1 90 


C.FILIST 


EQU 


PAR+3 


BCOO 


00 A3 


191 


C . NEWL 


EQU 


PAR+3 


BCOO 


00 A3 


192 


C . OUTVOL 


EQU 


PAR+3 


BCOO 


00 A3 


193 


C.OUTREF 


EQU 


PAR+3 


BCOO 


00 A3 


194 


C.XLIST 


EQU 


PAR+3 


BCOO 


00 A3 


195 


C .MAXPTH 


EQU 


PAR+3 


BCOO 


00 A3 


196 


C.MARK 


EQU 


PAR+3 


BCOO 


00A3 


1 97 


C.NEWEOF 


EQU 


PAR+3 


BCOO 


00A4 


198 


C. BYTES 


EQU 


PAR+4 


BCOO 


00A5 


199 


C . FILSTLN 


EQU 


PAR+5 


BCOO 


00A5 


200 


C . OUTBLK 


EQU 


PAR+5 


BCOO 


00A5 


201 


C.OPLIST 


EQU 


PAR+5 


BCOO 


00A5 


202 


C . XLEN 


EQU 


PAR+5 


BCOO 


00A6 


203 


C . FILID 


EQU 


PAR+6 


BCOO 


00A6 


204 


C . OUTCNT 


EQU 


PAR+6 


BCOO 


00A7 


205 


C.OPLSTLN 


EQU 


PAR+7 


BCOO 


00A7 


206 


C.AUXID 


EQU 


PAR+7 


BCOO 


00A9 


207 


C.STOR 


EQU 


PAR+9 


BCOO 


OOAA 


208 


C.EOFLL 


EQU 


PAR+$A 


BCOO 


OOAB 


209 


C.EOFLH 


EQU 


PAR+$B 


BCOO 


00 AC 


210 


C.EOFHL 


EQU 


PAR+$C 


BCOO 


00 AD 


211 


DEBUPTR 


EQU 


PAR+$D 


BCOO 


00 AD 


212 


C.EOFHH 


EQU 


PAR+SD 


BCOO 




213 


* C. SPARE 


EQU PAR+$E 


BCOO 




214 








BCOO 


ooco 


215 


DEVICE 


EQU 


$C0 


BCOO 


ooco 


216 


DHPCMD 


EQU 


DEVICE 


BCOO 


ooci 


217 


UNITNUM 


EQU 


DEVICE+1 


BCOO 


00C2 


218 


DSTATREQ 


EQU 


DEVICE+2 


BCOO 


00C2 


219 


DBUFPL 


EQU 


DEVICE+2 


BCOO 


00C3 


220 


DBUFPH 


EQU 


DBUFPL+1 


BCOO 


00C3 


221 


DSTATBFL 


EQU 


DEVICE+3 


BCOO 


00C4 


222 


DSTATBFH 


EQU 


DSTATBFL+1 


BCOO 


00C4 


223 


RQCNTL 


EQU 


DEVICE+4 


BCOO 


00C5 


224 


RQCNTH 


EQU 


RQCNTL+1 


BCOO 


00C6 


225 


BLOKNML 


EQU 


DEVICE+6 


BCOO 


00C7 


226 


BLOKNMH 


EQU 


BLOKNML+1 


BCOO 


00C8 


227 


BRDPTR 


EQU 


DEVICE+8 


BCOO 




228 








BCOO 


OOCI 


229 


DVNAMP 


EQU 


DEVICE+1 


BCOO 


00C3 


230 


DVDNUM 


EQU 


DEVICE+3 


BCOO 




231 


* 







AUGUST-2006 



NOTE SAME AS BELOW 



TO PASS BACK BUSY, WRITE PROTECT, READ PROTECT. 



(AND 9) 



USED FOR 'VOLUME' TO CALL 
'GET.DNUM' IN DEVICE MANAGER. 
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03 EQUATES 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



BCOO: 
BCOO: 
BCOO: 
BCOO: 



14C3 
14C4 
14C9 



232 SISBPH 

233 SISDSTAT 

234 SSBRDPH 

235 * 



EQU 
EQU 
EQU 



SISTER+DBUFPH 

SISTER+DSTATBFH 

SISTER+BRDPTR+1 
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03 EQUATES SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 10 



BCOO 
BCOO 

BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 
BCOO 



OOBO 
OOBO 
OOBl 
OOBO 
00B2 
00B4 
00B2 
00B4 
00B5 
00B6 
00B8 
OOBA 
OOBC 
OOBE 

OOOF 
14B0 

14B3 
14A2 
14A4 
14B1 
14 A3 
14B3 
14B9 
14BB 
14BD 
14BF 



1000 
1100 
1200 



OOlC 
OOID 
00B8 
OOBA 
OOBA 



237 
238 

239 
240 
241 
242 
243 
244 
245 
245 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 



* ZERO PAGE TEMPORARIES 



Z TEMPS 


EQU 


$B0 




PATHNML 


EQU 


Z TEMPS 




PATHNMH 


EQU 


PATHNML+1 




USRBUF 


EQU 


ZTEMPS 




TPATH 


EQU 


ZTEMPS+2 




WRKPATH 


EQU 


ZTEMPS+4 




TINDX 


EQU 


ZTEMPS+2 




DRBUFPL 


EQU 


ZTEMPS+4 




DRBUFPH 


EQU 


DRBUFPL+1 




VCBPTR 


EQU 


ZTEMPS+6 




BMADR 


EQU 


ZTEMPS+8 




FCBPTR 


EQU 


ZTEMPS+SA 




DATPTR 


EQU 


ZTEMPS+$C 




POSPTR 
* 


EQU 


ZTEMPS+$E 




MAXTEMPS 


EQU 


$F 




SISTEMPS 


EQU 


SISTER+ZTEMPS 




SSTIDXH 


EQU 


SISTER+TINDX+1 




SISPATH 


EQU 


SISTER+C.PATH+1 




SSNWPATH 


EQU 


SISTER+C .NWPATH+1 




SISUSRBF 


EQU 


SISTER+USRBUF+1 




SISOUTBF 


EQU 


SISTER+C . OUTBUF+1 




SISTPATH 


EQU 


SISTER+TPATH+1 




SISBMADR 


EQU 


SISTER+BMADR+1 




SISFCBP 


3QU 


SISTER+FCBPTR+1 




SISDATP 


iyU 


SIS7ER+DATPTR+1 




SISPOSP 


EQU 


SISTER+POSPTR+1 




* ADDRESSES 
* 






PATHBUF 


EQU 


$1000 ; 


NOTE: THIS IS $100 


VCB 


EQU 


$1100 




GBUF 


EQU 


$1200 ; 


THRU $13FF 


* INITIALIZATION 


EQUATES 




BFMFCBl 


EQU 


$1C ; 


FCB PAGE 1 ADDR 


BFMFCB2 


EQU 


$1D ; 


FCB PAGE 2 ADDR 


BMAPAGE 


EQU 


<$B800 ; 


BIT MAP A ADDR 


BMBPAGE 


EQU 


<$BAOO ; 


BIT MAP B ADDR 


FCBZPP 


EQU 


FCBPTR 
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03 EQUATES SOS 1.1 BLOCK FILE MANAGER 



0000 




285 




DSECT 




0000 


0000 


287 




ORG 


$0 


0000 


0001 


288 


DATBLKL 


DS 


1 


0001 


0001 


289 


DATBLKH 


DS 


1 


0002 


0001 


290 


IDXADRL 


DS 


1 


0003 


0001 


291 


IDXADRH 


DS 


1 


0004 


0001 


292 


REQL 


DS 


1 


0005 


0001 


293 


REQH 


DS 


1 


0005 


0001 


294 


INDXBLK 


DS 


1 


0007 


0001 


295 


LEVELS 


DS 


1 


0008 


0001 


295 


TOTENT 


DS 


1 


0009 


0001 


297 


ENTCNTL 


DS 


1 


00 OA 


0001 


2 98 


ENTCNTH 


DS 


1 


OOOB 


0001 


2 99 


CNTENT 


DS 


1 


OOOC 


0001 


300 


NOFREE 


DS 


1 


OOOD 


0001 


301 


BMCNT 


DS 


1 


OOOE 


0001 


302 


SAPTR 


DS 


1 


OOOF 


0001 


303 


TREPTR 


DS 


1 


0010 


0002 


304 


TLINK 


DS 


2 


0012 


0002 


305 


FLINK 


DS 


2 


0014 


0001 


306 


PATHCNT 


DS 


1 


0015 


0002 


307 


PFIXPTR 


DS 


2 


0017 


0001 


308 


BMPTR 


DS 


1 


0018 


0001 


309 


BASVAL 


DS 


1 


0019 


0001 


310 


HALF 


DS 


1 


OOIA 




311 








OOIA 




312 


* 







AUGUST-2006 PAGE 11 

; (THE FOLLOWING DO NOT NEED TO BE ON ZERO PAGE. 7/15/80 JRH.) 
; DISK ADDRESS OF INDEX BLOCK 
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03 EQUATES 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 12 


OOIA 




314 


* 








OOIA 




315 


* BIT MAP 


INFO 


TABLES (A S B) 




OOIA 




316 










OOIA 


0006 


317 


BMTABSZ 


EQU 


$6 




OOIA 


0001 


318 


BMTAB 


DS 


1 




OOIB 


0001 


319 


BMBUFBNK 


DS 


1 




OOlC 


0001 


320 


BMASTAT 


DS 


1 




OOID 


0001 


321 


BMADEV 


DS 


1 




OOIE 


0001 


322 


BMAMADR 


DS 


1 




OOIF 


0002 


323 


BMADADR 


DS 


2 




0021 


0001 


324 


BMACMAP 


DS 


1 


SIMILAR TO VCBCMAP 


0022 


0001 


325 


BMBSTAT 


DS 


1 




0023 


0001 


326 


BMBDEV 


DS 


1 




0024 


0001 


327 


BMBMADR 


DS 


1 




0025 


0002 


328 




DS 


2 


BMBDADR 


0027 


0001 


329 




DS 


1 


BMBCMAP 


0028 




330 


* 








0028 


0001 


331 


FCBADDRH 


DS 


1 


FILE CONTROL BLOCK'S BUFFER ADDRESS. 


0029 


0001 


332 


FCBANKNM 


DS 


1 


AND BANK (SISTER PAGE) BYTE. 


002A 


0001 


333 


TPOSLL 


DS 


1 




002B 


0001 


334 


TPOSLH 


DS 


1 




002C 


0001 


335 


TPOSHI 


DS 


1 




002D 


0001 


336 


RWREQL 


DS 


1 




002E 


0001 


337 


RWREQH 


DS 


1 




002F 


0001 


338 


BULKCNT 


DS 


1 




0030 


0001 


339 


NLCHAR 


DS 


1 




0031 


0003 


340 


NPATHDEV 


DS 


3 


FOR NEW PATHNAME DEVICE AND DIRECTORY HEADER ADDRESS 


0034 


0001 


341 


lOACCESS 


DS 


1 


USED TO DETERMINE IF A CALL HAS BEEN MADE TO THE DISK DEVICE 


HANDLER 












0035 


0001 


342 


DEVNUM 


DS 


1 


CURRENT DEVICE TO BE ACCESSED. 


0036 


0001 


343 


TOTDEVS 


DS 


1 


USED FOR ACCESSING DRIVES IN NUMERIC ORDER 


0037 


0001 


344 


CMDTEMP 


DS 


1 


USED FOR TESTING REFNUM, TIME, AND DSKSWTCH (PRE) PROCESSING. 


0038 


0001 


345 


DATELO 


DS 


1 


DATE AND TIME MUST RESIDE ON ZERO PAGE. 


0039 


0001 


346 


DATEHI 


DS 


1 




003A 


0001 


347 


TIMELO 


DS 


1 




003B 


0001 


348 


TIMEHI 


DS 


1 




003C 




349 










003C 


0001 


350 


DUPLFLAG 


DS 


1 


USED FOR DIFFERENCE BETWEEN VNFERR AND DUPVOL BY SYNPATH 


003D 


0001 


351 


ZPGTEMP 


DS 


1 


A ONE-BYTE UNSTABLE TEMPORARY 


003E 


0001 


352 


VCBENTRY 


DS 


1 


POINTER TO CURRENT VCB ENTRY 


003F 




353 










BCOO 




354 




DEND 




BCOO 




355 


* 








BCOO 




355 




CHN 


PATH 
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04 PATH 



SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 13 



BCOO 








2 


* 








BCOO 








3 


* 








BCOO 








4 


* 








BCOO 


A5 


AO 




5 


BFMGR 


LOX 


COMMAND 


; WHAT CALL? 


BC02 








6 


* 








BC02 








7 


* 








BC02 








8 


* 








BC02 


BD 


C3 


BC 


9 




LOA 


OISPTOH, X 


; TRANSLATE INTO COMMAND ADDRESS 


BC05 


OA 






10 




ASL 


A 


; (BIT 7 INDICATES IT'S GOT A PATHNAME TO PREPROOESS) 


BC0 6 


85 


37 




11 




STA 


CMDTEMP 




BC08 


29 


3F 




12 




AND 


#$3F 


; (BIT 6 IS REFNUM PREPROOESS, 5 IS FOR TIME, SO STRIP 


BCOA 


AA 






13 




TAX 






BCOB 


BD 


9F 


BC 


14 




LOA 


CMDTABLE, X 


; MOVE ADDRESS FOR INDIRECT JUMP. 


BCOE 


8D 


El 


DB 


15 




STA 


CMDADR 




BCll 


BD 


AO 


BC 


16 




LOA 


CMDTABLE+1, X 


; (HIGH BYTE) 


BC14 


BD 


E2 


DB 


17 




STA 


CMDADR+1 




BC17 


A9 


11 




18 




LOA 


#<VOB 




BC19 


85 


B7 




19 




STA 


VOBPTR+1 


; INSURE DEFAULT HI ADDRESS TO VOB BEFORE CALLS 


BCIB 


A9 


20 




20 




LOA 


#BKBITVAL 


; INIT "BACKUP BIT FLAG" 


BCID 


80 


57 


09 


21 




STA 


BKBITFLG 


; TO SAY "FILE MODIFIED" 


BC20 


AO 


OF 




22 




LOY 


#MAXTEMPS 


; ZERO OUT SISTER PAGE FOR TEMPS 


BC22 


A9 


00 




23 




LOA 


#0 




BC24 


8D 


00 


00 


24 




STA 


SERR 


; MAKE GLOBAL ERROR SAY "NONE" 


BC27 


8D 


BB 


05 


25 




STA 


DSWGLOB 


; "DISK SWITCH GLOBAL" 


BC2A 


85 


30 




26 




STA 


DUPLFLAG 


; "DUPLICATE VOLUME ON LINE" 


BC2C 


80 


17 


05 


27 




STA 


CFLAG 


; SET "CREATE" TO NO 


BC2F 


80 


lA 


05 


28 




STA 


BLOKSAVE 




BC32 


8D 


IB 


05 


29 




STA 


BLOKSAVE+1 


; SET PARENT DIRECTORY TO NULL 


BC35 


99 


BO 


14 


30 


OLRSIS 


STA 


SISTEMPS, Y 




BC38 


88 






31 




OEY 






BC39 


10 


FA 


BC35 


32 




BPL 


OLRSIS 


; CARRY IS UNDISTURBED BY THIS LOOP 


BC3B 


90 


05 


BC42 


33 




BOO 


NOPATH 




BC3D 


20 


05 


BC 


34 




JSR 


SETPATH 


; GO PROCESS PATHNAME BEFORE CALLING COMMAND 


BC40 


BO 


55 


BC98 


35 




BOS 


ERRORSYS 


; BRANCH IF BAD NAME. 


BC42 


06 


37 




36 


NOPATH 


ASL 


CMDTEMP 


; TEST FOR REFNUM PREPROCESSING 


BC44 


90 


05 


BC4B 


37 




BOO 


NOPREREF 




BC46 


20 


75 


BE 


38 




JSR 


FINOFOB 


; GO SET UP POINTERS TO FOB AND VOB OF THIS FILE. 


BC49 


BO 


4D 


BC98 


39 




BCS 


ERRORSYS 


; BRANCH IF ANY ERRORS ARE ENCOUNTERED. 


BC4B 


06 


37 




40 


NOPREREF 


ASL 


CMDTEMP 


; LASTLY CHECK FOR NECESSITY OF TIME STAMP. 


BC4D 


90 


05 


BC54 


41 




BCC 


TSWVRFY 




BC4F 


A2 


38 




42 




LOX 


tOATELO 


; PASS Z PAGE ADDRESS OF WHERE TO RETURN DATE/TIME 


BC51 


20 


00 


00 


43 




JSR 


OATETIME 


; (NO ERROR POSIBLE) 


BC54 


A6 


AO 




44 


TSWVRFY 


LOX 


COMMAND 


; TEST FOR NECESSITY OF VOLUME VERIFICATION 


BC56 


A9 


EO 




45 




LOA 


#PREPATH+PREREF+PRETIME ; TO ENSURE VOB IS SET 


BC58 


30 


C3 


BC 


46 




AND 


OISPTOH, X 




BC5B 


FO 


23 


BC80 


47 




BEQ 


EXECUTE 




BC5D 


AO 


11 




48 




LOY 


#VCBSTAT 




BC5F 


Bl 


B6 




49 




LOA 


(VCBPTR) , Y 




BC61 


29 


40 




50 




AND 


#DSWITCH 


; WAS THE VOLUME PREVIOUSLY SWITCHED? 


BC63 


FO 


IB 


BC80 


51 




BEQ 


EXECUTE 




BC65 


88 






52 




OEY 




; GET DEVICE NUMBER 


BC66 


Bl 


B6 




53 




LOA 


(VCBPTR) , Y 




BC68 


85 


35 




54 




STA 


DEVNUM 




BC6A 


20 


OA 


09 


55 


OVERIFY 


JSR 


VERFYVOL 


; SEE IF PROPER VOLUME NOW ON LINE 


BC6D 


90 


09 


BC78 


56 




BCC 


CLROSWT 


; BRANCH IF YES 


BC6F 


20 


2F 


00 


57 




JSR 


USRREQ 


; OTHERWISE REQUEST IT BE PUT ON LINE 
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SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 14 


BC72 


90 


F5 


BC6A 


58 




BCC 


DVERIFY 


USER SEZ S/HE DID: CHECK IT OUT 


BC74 


A9 


00 




59 




LDA 


#VNFERR 


VOLUME NOT FOUND IF USER REFUSES 


BC76 


DO 


20 


BC98 


60 




BNE 


ERRORSYS 


; REPORT ERROR (BRANCH ALWAYS) 


BC78 


AO 


11 




61 


CLRDSWT 


LDY 


#VCBSTAT 


GET VOLUME 


BC7A 


Bl 


B6 




62 




LDA 


(VCBPTR) , Y 


STATUS 


BC7C 


29 


BP 




63 




AND 


#SFF-DSWITCH 


TURN OFF DISK SWITCH 


BC7E 


91 


B6 




64 




STA 


(VCBPTR) , Y 


SO WE WON'T VERIFY NEXT TIME 


BC80 


20 


9C 


EC 


65 


EXECUTE 


JSR 


GOCMD 


EXECUTE COMMAND 


BC83 


90 


16 


BC9B 


66 




BCC 


GOODOP 


BRANCH IF SUCCESSFUL 


BC85 


C9 


00 




67 




CMP 


#XDISKSW 


DISK SWITCH? 


BC87 


DO 


OF 


BC98 


68 




BNE 


ERRORSYS 


NO, REPORT SOME OTHER 


BC89 


AO 


11 




69 




LDY 


#VCBSTAT 


MARK VCB WITH SWITCH 


BC8B 


Bl 


B6 




70 




LDA 


(VCBPTR) , Y 




BC8D 


29 


BF 




71 




AND 


#$FF-DSWITCH 


TO ENSURE VOLUME VERIFIED 


BC8F 


10 


02 


BC93 


72 




BPL 


ERRCMD 


NO FILES OPEN SO DSWITCH CANT APPLY 


BC91 


09 


40 




73 




ORA 


#DSWITCH 




BC93 


91 


B6 




74 


ERRCMD 


STA 


(VCBPTR) , Y 




BC95 


4C 


00 


BC 


75 




JMP 


BFMGR 


TRY THE COMMAND AGAIN 


BC98 








75 


* 








BC98 


20 


00 


00 


77 


ERRORSYS 


JSR 


SYSERR 




BC9B 


60 






78 


GOODOP 


RTS 




GOOD RETURN 


BC9C 








79 










BC9C 


6C 


El 


DB 


80 


GOCMD 


JMP 


(CMDADR) 




BC9F 








81 


* 
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1.1 BLOCK FILE 
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BC9F 








83 


* 






BC9F 






BC9F 


84 


CMDTABLE EQU 






BC9F 


Fl 


CO 




85 


DW 


CREATE 




BCAl 


71 


DA 




86 


DW 


DESTROY 




BCA3 


68 


D9 




87 


DW 


RENAME 




BCA5 


10 


D9 




88 


DW 


SETINFO 




BCA7 


AF 


D8 




89 


DW 


GETINFO 




BCA9 


DE 


BF 




90 


DW 


VOLUME 




SCAB 


08 


BE 




91 


DW 


SETPREFX 




BCAD 


3D 


BE 




92 


DW 


GETPREFX 




BCAF 


BO 


CF 




93 


DW 


OPEN 




BCBl 


93 


D8 




94 


DW 


NEWLINE 




BCB3 


54 


Dl 




95 


DW 


READ 




BCB5 


58 


D3 




96 


DW 


WRITE 




BCB7 


D5 


D5 




97 


DW 


CLOSE 




BCB9 


49 


D6 




98 


DW 


FLUSH 




BCBB 


B2 


CC 




99 


DW 


SETMARK 




BCBD 


9B 


CC 




100 


DW 


GETMARK 




BCBF 


90 


D7 




101 


DW 


SETEOF 




BCCl 


7E 


D8 




102 


DW 


GETEOF 




BCC3 








103 








BCC3 






BCC3 


104 


DISPTCH EQU 






BCC3 


AO 






105 


DFB 


PREPATH+PRETIME+0 


; CREATE 


BCC4 


Al 






106 


DFB 


PREP ATH+P RET IME+1 


; DESTROY 


BCC5 


A2 






107 


DFB 


PREPATH+PRETIME+2 


; RENAME 


BCC5 


A3 






108 


DFB 


PREPATH+PRETIME+3 


; SETINFO 


BCC7 


84 






109 


DFB 


PREPATH+4 


GETINFO 


BCC8 


05 






110 


DFB 


5 


VOLUME 


BCC9 


06 






111 


DFB 


6 


SETPREFIX, PATHNAME MOVED 


BCCA 


07 






112 


DFB 


7 


GETPREFIX 


BCCB 


88 






113 


DFB 


PREPATH+8 


OPEN 


BCCC 


49 






114 


DFB 


PREREF+$9 


NEWLINE 


BCCD 


4A 






115 


DFB 


PREREF+$A 


READ 


BCCE 


4B 






116 


DFB 


PREREF+$B 


WRITE 


BCCF 


2C 






117 


DFB 


PRETIME+$C 


CLOSE 


BCDO 


2D 






118 


DFB 


PRETIME+$D 


FLUSH, REFNUM MAY BE ZERO 


BCDl 


4E 






119 


DFB 


PREREF+SE 


SETMARK 


BCD2 


4F 






120 


DFB 


PREREF+SF 


GETMARK 


BCD3 


50 






121 


DFB 


PREREF+$10 


SET EOF 


BCD4 


51 






122 


DFB 


PREREF+$11 


GET EOF 


BCD5 








123 
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BCD5 








125 


* 






BCD5 


A5 


Al 




126 


SETPATH 


LDA 


C . PATH 


BCD7 


85 


B2 




127 




STA 


TPATH 


BCD 9 


A5 


A2 




128 




LDA 


C.PATH+1 


BCDB 


85 


B3 




129 




STA 


TPATH+1 


BCDD 


AD 


A2 


14 


130 




LDA 


SISPATH 


BCEO 


8D 


B3 


14 


131 




STA 


SISTPATH 


BCE3 








132 


* DROP INTO 'SYNPATH' 


BCE3 








133 


* 






BCE3 


A9 


00 




134 


SYNPATH 


LDA 


#>PATHBUF 


BCE5 


85 


BO 




135 




STA 


PATHNML 


BCE7 


85 


B4 




136 




STA 


WRKPATH 


BCE9 


A9 


10 




137 




LDA 


#<PATHBUF 


BCEB 


85 


Bl 




138 




STA 


PATHNMH 


BCED 


85 


B5 




139 




STA 


WRKPATH+1 


BCEF 


A2 


00 




140 




LDX 


#0 


BCFl 


8A 






141 




TXA 




BCF2 


81 


BO 




142 




STA 


(PATHNML, X) 


BCF4 


A8 






143 




TAY 




BCF5 


Al 


B2 




144 




LDA 


(TPATH, X) 


BCF7 


30 


76 


BD6F 


145 




BMI 


ERRSYN 


BCF9 


FO 


74 


BD6F 


146 




BEQ 


ERRSYN 


BCFB 


85 


14 




147 




STA 


PATHCNT 


BCFD 


20 


01 


BE 


148 




JSR 


INCTPTH 


BDOO 


Al 


B2 




149 




LDA 


(TPATH, X) 


BD02 


C9 


2F 




150 




CMP 


#DLIMIT 


BD04 


FO 


79 


BD7F 


151 




BEQ 


BUMPATH 


BDO 6 


C9 


2E 




152 




CMP 


#S2E 


BD08 


DO 


69 


BD73 


153 




BNE 


ADPREFIX 


BDOA 


Al 


B2 




154 


DRIVENAM 


LDA 


(TPATH, X) 


BDOC 


C9 


2F 




155 




CMP 


#DLIMIT 


BDOE 


FO 


oc 


BDIC 


156 




BEQ 


PREVOLM 


BDIO 


C8 






157 




INY 




BDll 


91 


B4 




158 




STA 


(WRKPATH) , Y 


BD13 


20 


01 


BE 


159 




JSR 


INCTPTH 


BD16 


C6 


14 




160 




DEC 


PATHCNT 


BD18 


DO 


FO 


BDOA 


161 




BNE 


DRIVENAM 


BDIA 


FO 


05 


BD21 


162 




BEQ 


PREVOLMl 


BDIC 








163 









; FOR A REGULAR PATHNAME, 

; SET UP TEMP POINTER TO PROCESS 

; PATHNAME AND CHECK FOR SYNTAX ERRORS 



; (LEAVE CALL PARAMETERS ALONE!) 



; SET UP DEFAULT ADDRESS FOR 
; SYNTAXED PATHNAME - 

; LENGTH, NAME, LENGTH, NAME, ETC... 



; (ASSUMES FULL PATHNAME, NO PREFIX) . 

; USE INDEXED INDIRECT FOR SOURCE PATHNAME 

; SET BEGINNING OF PATH 

; TO ZERO TO INDICATE NOTHING PROCESSED. 

; GET TOTAL LENGTH OF SOURCE PATHNAME 



(THIS IS USED AS A 'COUNT-DOWN') 

INCREMENT SOURCE POINTER 

GET FIRST CHARACTER OF PATHNAME 

IS IT A FULL PATHNAME (NO PREFIX) ? 

YES, WE'RE READY TO DO IT. 

IS IT A DRIVE NAME ' . ' ? 

NO, ADD PREFIX TO BEGINNING 

MOVE DRIVE NAME FOR VOLUME CALL 

HAVE WE MOVED ENTIRE NAME? 

YES, PROCESS IT. 

(IF THIS IS THE FIRST, MAKE ROOM FOR LENGTH OF NAME) 
BUMP POINTER TO GIVEN NAME. 
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FILE 


MANAGER 


AUGUST-2005 PAGE 17 


BDIC 


20 


01 


BE 


165 


PREVOLM 


JSR 


INCTPTH 


; MAKE IT SO POINTING PAST DELIMITER. 


BDIF 


C6 


14 




165 




DEC 


PATHCNT 




BD21 


98 






167 


PREVOLMl 


TYA 




; SAVE LENGTH OF DRIVE NAME . 


BD22 


81 


B4 




158 




STA 


(WRKPATH, X) 




BD24 


A9 


00 




159 




LDA 


#>PATHBUF 


; POINT AT PATHNAME BUFFER FOR DEVICE ID CALL . 


BD2 6 


85 


CI 




170 




STA 


DVNAMP 




BD28 


A9 


10 




171 




LDA 


#<PATHBUF 




BD2A 


85 


C2 




172 




STA 


DVNAMP +1 




BD2C 


A9 


00 




173 




LDA 


#0 


; MAKE VIRTUAL POINT AT SWITCHED IN BANK. 


BD2E 


8D 


02 


14 


174 




STA 


SISTER+DVNAMP+1 




BD31 


20 


24 


BF 


175 




JSR 


SRCHDEV 


; GO IDENTIFY WHICH VOLUME 


BD34 


90 


OB 


BD41 


175 




BCC 


PREV0LM2 


; BRANCH IF NO ERROR 


BD3 6 


C9 


00 




177 




CMP 


#VNFERR 


; WAS IT REPORTED AS 'VOLUME NOT FOUND'? 


BD38 


DO 


37 


BD71 


178 




BNE 


SPTHERR 


; NO SOME OTHER ERROR WAS ENCOUNTERED . 


BD3A 


A6 


3C 




179 




LDX 


DUPLFLAG 


; YES, WAS IT NOT FOUND BECAUSE SOME OTHER 'OPEN 


SAME 


NAME? 














BD3C 


FO 


33 


BD71 


180 




BEQ 


SPTHERR 


; NO, IT SIMPLY WASN'T FOUND. 


BD3E 


A9 


00 




181 




LDA 


#DUPV0L 


; (CARRY IS SET) 


BD40 


50 






182 




RTS 






BD41 








183 


* 








BD41 


AO 


00 




184 


PREV0LM2 


LDY 


#0 


; (X CONTAINS AN INDEX TO VCB) 


BD43 


BD 


00 


11 


185 




LDA 


VCB, X 


; GET VOLUME NAME LENGTH. 


BD46 


99 


00 


10 


185 




STA 


PATHBUF, Y 




BD49 


E8 






187 


SPATH2 


I NX 




; MOVE VOLUME NAME INTO PATH NAME BUFFER IN 


BD4A 


C8 






188 




INY 




; PLACE OF DISK DEVICE NAME (' .Dl' OR SIMULAR) 


BD4B 


BD 


00 


11 


189 




LDA 


VCB, X 




BD4E 


99 


00 


10 


190 




STA 


PATHBUF , Y 




BD51 


CC 


00 


10 


191 




CPY 


PATHBUF 


; HAVE ALL CHARACTERS BEEN MOVED? 


BD54 


DO 


F3 


BD4 9 


1 92 




BNE 


SPATH2 




BD56 


A2 


00 




193 




LDX 


#0 


; RESET X FOR INDEXING 


BD58 


85 


BO 




194 




STX 


PATHNML 




BD5A 


A9 


10 




195 




LDA 


#<PATHBUF 




BD5C 


85 


Bl 




195 




STA 


PATHNMH 




BD5E 


A5 


14 




197 




LDA 


PATHCNT 


; IS THAT ALL THERE IS? 


BD60 


DO 


04 


BD56 


198 




BNE 


SPATH3 


; NO, MORE TO COME... 


BD62 


18 






199 




CLC 






BD63 


4C 


D5 


BD 


200 




JMP 


ENDPATH 




BD66 








201 










BD66 


C8 






202 


SPATH3 


INY 




; BUMP TO END OF NAME+1 


BD67 


84 


B4 




203 




STY 


WRKPATH 


; RESET WORKPATH POINTER TO CURRENT. 


BD59 


A9 


00 




204 




LDA 


#0 


; RESET PATHNAME BUFFER POINTER. 


BD6B 


AO 


10 




205 




LDY 


#<PATHBUF 




BD6D 


DO 


OA 


BD79 


205 




BNE 


NOPREFX 


; BRANCH ALWAYS . . . 


BD6F 








207 


* 








BD6F 


A9 


00 




208 


ERRSYN 


LDA 


#BADPATH 


; RETURN SYNTAX ERROR 


BD71 


38 






209 


SPTHERR 


SEC 






BD72 


50 






210 




RTS 






BD73 








211 










BD73 


AD 


15 


00 


212 


ADPREFIX 


LDA 


PFIXPTR 


; GET POINTER TO BEGINNING OF THE 


BD7 6 


AC 


15 


00 


213 




LDY 


PFIXPTR+1 


; PREFIX. 


BD7 9 


85 


BO 




214 


NOPREFX 


STA 


PATHNML 




BD7B 


84 


Bl 




215 




STY 


PATHNMH 


; IF NO PRESET PREFIX, THIS IS THE SAME AS 


BD7D 


DO 


08 


BD87 


215 




BNE 


FRSTCHAR 


; PATHBUF ADDRESS. (BRANCH ALWAYS TAKEN) 


BD7F 








217 


* 
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FILE 
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BD7F 








219 


* 








BD7F 


C6 


14 




220 


BUMPATH 


DEC 


PATHCNT 


FIRST ADJUST COUNT 


BD81 


18 






221 




CLC 




(JUST IN CASE OF LAST CHARACTER) 


BD82 


FO 


52 


BDD6 


222 




BEQ 


ENDPATH 


(MUST OF HAD TRAILING SPACES) 


BD84 


20 


01 


BE 


223 




JSR 


INCTPTH 




BD87 


AO 


00 




224 


FRSTCHAR 


LDY 


#0 


INIT COUNT FOR THIS PORTION OF THE 


BD8 9 


98 






225 




TYA 




PATHNAME. ALSO PRESET LENGTH TO ZERO IN 


BD8A 


81 


B4 




226 




STA 


(WRKPATH, X) 


CASE OF TRAILING SPACES. 


BD8C 


Al 


B2 




227 




LDA 


(TPATH,X) 


GET CHARACTER. 


BD8E 


29 


7F 




228 




AND 


#$7F 


IGNORE HIGH BIT. 


BD90 


C9 


20 




229 




CMP 


#$20 


IS IT A LEADING SPACE? 


BD92 


FO 


EB 


BD7F 


230 




BEQ 


BUMPATH 


IF SO, IGNORE IT. 


BD94 


C9 


5B 




231 




CMP 


#$5B 


IS IT GREATER THAN (UPPER CASE) A 'Z'? 


BD96 


90 


06 


BD9E 


232 




BCC 


ALFAl 


NO, MAKE SURE IT'S AN ALPHA CHARACTER 


BD98 


29 


5F 




233 




AND 


#S5F 


YES, ASSUME IT'S LOWER CASE, AND UPSHIFT 


BD 9A 


C9 


5B 




234 




CMP 


#$5B 


WAS IT TRULY LOWER CASE? 


BD9C 


BO 


Dl 


BD6F 


235 




BCS 


ERRSYN 


NO, GIVE ERROR. 


BD9E 








236 


* 








BD9E 


C9 


41 




237 


ALFAl 


CMP 


#$41 


IS IT LESS THAN 'A'? 


BDAO 


90 


CD 


BD6F 


238 




BCC 


ERRSYN 


YES! IT'S CRAP. . . 


BDA2 


BO 


22 


BDC6 


239 




BCS 


SAVPATH 


NO, IT'S GOOD. SAVE IT. 


BDA4 








240 










BDA4 


Al 


B2 




241 


NXTCHAR 


LDA 


(TPATH, X) 


GET THE NEXT CHARACTER. 


BDA6 


29 


7F 




242 




AND 


#S7F 


THESE CHARACTERS MAY BE ALPHA, NUMERIC, 


BDA8 


C9 


5B 




243 




CMP 


#$5B 


OR A PERIOD - ONLY THE FIRST HAD TO BE ALPHA 


BDAA 


90 


06 


BDB2 


244 




BCC 


ALFA2 


BRANCH IF LESS THAN 'Z' 


BDAC 


29 


5F 




245 




AND 


#$5F 


UPSHIFT LOWER CASE. 


BDAE 


C9 


5B 




246 




CMP 


#$5B 


NOW IS IT VALID? 


BDBO 


BO 


BD 


BD6F 


247 




BCS 


ERRSYN 


NOPE . 


BDB2 








248 










BDB2 


C9 


41 




249 


ALFA2 


CMP 


#$41 


IS IT GREATER THAN 'A'? 


BDB4 


BO 


10 


BDC6 


250 




BCS 


SAVPATH 


YUP, IT IS WORTH SAVIN. 


BDB6 


C9 


3A 




251 




CMP 


#$3A 


>9? 


BDB8 


BO 


04 


BDBE 


252 




BCS 


TSTDLIM 


YES 


BDBA 


C9 


30 




253 




CMP 


#$30 


NO, <0? 


BDBC 


BO 


08 


BDC6 


254 




BCS 


SAVPATH 


NO, IT'S VALID NUMERIC. 


BDBE 


C9 


2F 




255 


TSTDLIM 


CMP 


#DLIMIT 


IS IT THE DELIMITER? 


BDCO 


FO 


14 


BDD6 


256 




BEQ 


ENDPATH 


YES. CARRY SET INDICATES MORE TO COME. 


BDC2 


C9 


2E 




257 




CMP 


#$2E 


IS IT A ' . ' (PERIOD) ? 


BDC4 


DO 


A9 


BD6F 


258 




BNE 


ERRSYN 


NO, IT'S AN ERROR (#@S##@!) 


BDC6 


18 






259 


SAVPATH 


CLC 






BDC7 


C8 






260 




INY 




BUMP NAME LENGTH 


BDC8 


91 


B4 




261 




STA 


(WRKPATH) , Y 




BDCA 


C6 


14 




262 




DEC 


PATHCNT 


IF ZERO, THAT WAS THE LAST CHARACTER 


BDCC 


FO 


08 


BDD6 


263 




BEQ 


ENDPATH 


(CARRY CLEAR INDICATES END OF PATH) 


BDCE 


E5 


B2 




264 




INC 


TPATH 


BUMP POINTER TO SOURCE PATHNAME. 


BDDO 


DO 


D2 


BDA4 


265 




BNE 


NXTCHAR 




BDD2 


E5 


B3 




266 




INC 


TPATH+1 


HIGH ORDER, WHEN NECESSARY. 


BDD4 


DO 


CE 


BDA4 


267 




BNE 


NXTCHAR 


BRANCH ALWAYS. 
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FILE 
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BDD6 








269 


* 










BDD6 


98 






270 


ENDPATH 


TYA 




GET CURRENT NAME LENGTH 




BDD7 


81 


B4 




271 




STA 


(WRKPATH, X) 


AND PUT IT IN FRONT OF NAME 




BDD9 


90 


12 


BDED 


272 




BCC 


LSTNAME 


BRANCH IF THAT WAS THE LAST OF 


PATH 


BDDB 


C9 


10 




273 




CMP 


#$10 


WAS THE NAME ILLEGALLY LONG? 




BDDD 


BO 


IF 


BDEE 


274 




BCS 


ERRSYNl 


YES, REPORT IT. 




BDDF 


AO 


00 




275 




LDY 


#0 






BDEl 


38 






276 




SEC 




ADJUST WORK POINTER TO END OF 


PREVIOUS NAME 


BDE2 


55 


B4 




277 




ADC 


WRKPATH 






BDE4 


85 


B4 




278 




STA 


WRKPATH 


REPLACE OLD POINTER. 




BDE6 


90 


97 


BD7E 


279 




BCC 


BUMPATH 


DO NEXT NAME. 




BDE8 


A9 


00 




280 




LDA 


#TOOLONG 


THIS IS A NEVER ERROR! 




BDEA 


20 


00 


00 


281 




JSR 


SYSDEATH 


(NEVER RETURNS) . 




BDED 








282 












BDED 


FO 


07 


BDF6 


283 


LSTNAME 


BEQ 


TSTVALD 






BDEF 


C9 


10 




284 




CMP 


#$10 


MAKE SURE LAST ISN'T TOO LONG 




BDFl 


BO 


OB 


BDEE 


285 




BCS 


ERRSYNl 






BDF3 


C8 






286 




INY 




PUT A ZERO AT END OF PROCESSED 


PATHNAME 


BDF4 


A9 


00 




287 




LDA 


#0 






BDF6 


91 


B4 




288 


TSTVALD 


STA 


(WRKPATH) , Y 






BDF8 


Al 


BO 




289 




LDA 


(PATHNML, X) 


SURE THERE IS A PATHNAME 




BDFA 


FO 


02 


BDFE 


2 90 




BEQ 


ERRSYNl 


IF NOT, REPORT ERROR. 




BDFC 


18 






2 91 




CLC 




INDICATE NO ERROR. 




BDED 


60 






2 92 




RTS 








BDEE 








2 93 












BDEE 


4C 


6F 


BD 


294 


ERRSYNl 


JMP 


ERRSYN 






BEOl 








295 


* 










BEOl 


E6 


B2 




296 


INCTPTH 


INC 


TPATH 


POINT AT NEXT CHARACTER 




BE03 


DO 


02 


BE07 


297 




BNE 


INCPTHl 






BEOS 


E6 


B3 




298 




INC 


TPATH+1 






BE07 


60 






299 


INCPTHl 


RTS 








BEOS 








300 
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BEOS 


20 


D5 


BC 


302 


SETPREFX 


JSR 


SETPATH 


CALL IS MADE HERE SO A 'NUL' PATH MAY BE DETECTED 


BEOB 


90 


OE 


BEIB 


303 




BCC 


SETPRFXl 


BRANCH IF PATHNAME OK 


BEOD 


AA 






304 




TAX 




SAVE ERROR CODE 


BEOE 


AO 


00 




305 




LDY 


#0 




BEIO 


Bl 


Al 




306 




LDA 


(C .PATH) , Y 


TEST FOR A NUL PATHNAME 


BE12 


FO 


02 


BEl 6 


307 




BEQ 


RESETPFX 


BRANCH IF PREFIX TO BE RESET. 


BE14 


8A 






308 




TXA 




RESTORE ERROR CODE 


BE15 


60 






309 




RTS 






BE15 


8D 


15 


00 


310 


RESETPFX 


STA 


PFIXPTR 




BE19 


18 






311 




CLC 






BEIA 


60 






312 




RTS 






BEIB 


A5 


BO 




313 


SETPRFXl 


LDA 


PATHNML 


MAKE SURE NAME STARTED WITH A '/' DELIMITER. 


BEID 


DO 


DF 


BDFE 


314 




BNE 


ERRSYNl 


BRANCH IF IT DID. 


BEIF 


A4 


B4 




315 




LDY 


WRKPATH 


FIND THE END OF THE INPUT PREFIX 


BE21 


18 






316 




CLC 




ADD LAST LOCAL NAME LENGTH TO FIND TRUE END. 


BE22 


Bl 


BO 




317 




LDA 


(PATHNML) , Y 




BE24 


DO 


04 


BE2A 


318 




BNE 


SETPRFX3 




BE2 6 


88 






319 




DEY 






BE27 


98 






320 




TYA 






BE28 


DO 


03 


BE2D 


321 




BNE 


SETPRFX4 




BE2A 


65 


B4 




322 


SETPRFX3 


ADC 


WRKPATH 




BE2C 


AS 






323 




TAY 






BE2D 


4 9 


FF 




324 


SETPRFX4 


EOR 


#SFF 


GET COMPLIMENT TO FIND BEGINNING ADDRESS. 


BE2F 


8D 


15 


GO 


325 




STA 


PFIXPTR 


OF NEW PREFIX IN THE PREFIX BUFFER 


BE32 


85 


B4 




326 




STA 


WRKPATH 


(PREFIX ALWAYS ENDS AT THE LAST BYTE OF BUFFER) 


BE34 


Bl 


BO 




327 


MOVPRFX 


LDA 


(PATHNML) , Y 




BE36 


91 


B4 




328 




STA 


(WRKPATH) , Y 


MOVE IN NEW PREFIX 


BE3 8 


88 






329 




DEY 






BE39 


10 


F9 


BE34 


330 




BPL 


MOVPRFX 




BE3B 


18 






331 




CLC 




AND WE'RE FINISHED! 


BE3C 


60 






332 




RTS 




NO ERRORS POSIBLE FROM THIS ROUTINE. 


BE3D 








333 
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BE3D 








335 


* 








BE3D 


18 






336 


GETPREFX 


CLC 




CALCULATE HOW BIG A BUFFER IS NEEDED TO 


BE3E 


AD 


15 


00 


337 




LDA 


PFIXPTR 


PASS THE PREFIX BACK TO THE USER. 


BE41 


4 9 


FF 




338 




EOR 


#$FF 


(EVEN IF NO PREFIX, 1 BYTE IS NEEDED TO SH01i)f LENGTH) 


BE43 


69 


02 




339 




ADC 


#2 


ADD 2 FOR LEADING AND ENDING "/". 


BE45 


C5 


A3 




340 




CMP 


C .MAXPTH 


IS THERE ENOUGH SPACE IN USER'S BUFFER? 


BE47 


90 


03 


BE4C 


341 




BCC 


SENDPRFX 


BRANCH IF YES 


BE4 9 


A9 


00 




342 




LDA 


#BTSERR 


TELL USER BUFFER IS TOO SMALL. 


BE4B 


50 






343 




RTS 




(CARRY IS SET TO INDICATE ERROR.) 


BE4C 








344 


* 








BE4C 


AO 


00 




345 


SENDPRFX 


LDY 


#0 


SAVE TOTAL LENGTH OF STRING TO BE RETURNED 


BE4E 


91 


Al 




346 




STA 


(C.PATH) , Y 




BE50 


A8 






347 




TAY 






BE51 


88 






348 




DEY 




DISCOUNT TRAILING DELIMITER. 


BE52 


FO 


IC 


BE70 


349 




BEQ 


NULPREFX 


BRANCH IF PREFIX IS SET TO NUL. 


BE54 


C8 






350 




INY 






BE55 


AE 


15 


00 


351 




LDX 


PFIXPTR 


GET BEGINNING ADDRESS OF PREFIX AGAIN 


BE58 


CA 






352 




DEX 






BE59 


86 


B4 




353 




STX 


WRKPATH 




BE5B 


A9 


10 




354 




LDA 


#<PATHBUF 




BE5D 


85 


B5 




355 




STA 


WRKPATH+1 




BE5F 


A9 


2F 




356 


SNDLMIT 


LDA 


#DLIMIT 


PLACE DELIMITER BEFORE, BETlflfEEN, AND AFTER LOCAL NAMES 


BE 61 


91 


Al 




357 




STA 


(C. PATH) , Y 




BE53 


88 






358 


SNDPRFXl 


DEY 






BE64 


FO 


OD 


BE73 


359 




BEQ 


GOTPRFX 


BRANCH IF ALL OF PREFIX IS TRANSFERED. 


BE66 


Bl 


B4 




360 




LDA 


(WRKPATH) , Y 




BE58 


91 


Al 




361 




STA 


(C.PATH) , Y 


ASSUME IT'S A CHARACTER. 


BE6A 


29 


FO 




3 62 




AND 


#$F0 


NOW TEST TO SEE IF IT WAS A LOCAL LENGTH. 


BE5C 


FO 


Fl 


BE5F 


363 




BEQ 


SNDLMIT 


BRANCH IF IT WAS. 


BE6E 


DO 


F3 


BE63 


364 




BNE 


SNDPRFXl 


GO MOVE NEXT CHAR IF IT WASN'T (ALWAYS TAKEN). 


BE70 


98 






365 


NULPREFX 


TYA 




RETURN NUL STRING. 


BE71 


91 


Al 




366 




STA 


(C.PATH) ,Y 




BE73 


18 






367 


GOTPRFX 


CLC 




INDICATE NO ERROR. 


BE74 


60 






368 




RTS 
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BE75 








370 


* 








BE75 


AD 


28 


00 


371 


FINDFCB 


LDA 


FCBADDRH 


INITIALIZE INDIRECT POINTER TO 


BE78 


85 


BB 




372 




STA 


FCBPTR+1 


FILE CONTROL BLOCK (ALLOCATED WHEN SYSTEM 


BE7A 


A9 


00 




373 




LDA 


#0 


WAS FIRST BOOTED) . 


BE7C 


85 


BA 




374 




STA 


FCBPTR 


NOTE: ALWAYS STARTS ON PAGE BOUNDARY. 


BE7E 


A5 


29 




375 




LDA 


FCBANKNM 


SET SISTE PAGE BYTE TOO... 


BE80 


BD 


BB 


14 


376 




STA 


SISFCBP 




BE83 


A4 


Al 




377 




LDY 


C . REFNUM 


GET REQUESTED REFERENCE 


BE85 


30 


7A 


BFOl 


378 




BMI 


ERRNOTBLK 


BRANCH IF IT'S NOT A BLOCK DEVICE REFERENCE 


BE87 


88 






379 




DEY 




(SHOULD BE IN THE RANGE OF 1-16 BEFORE DECREMENT 


BE88 


CO 


10 




380 




CPY 


#$10 


IS IT A VALID REFNUM? 


BE 8 A 


BO 


71 


BEFD 


381 




BCS 


REEFER 


NO, THE USER'S SMOKIN DOPE! 


BE8C 


98 






382 




TYA 




TO FIND ASSOCIATED FILE CONTROL STUFF, 


BE8D 


OA 






383 




ASL 


A 


MULTIPLY (REFNUM-1) BY 32. 


BE8E 


OA 






384 




ASL 


A 




BE8F 


OA 






385 




ASL 


A 




BE90 


OA 






385 




ASL 


A 




BE91 


OA 






387 




ASL 


A 




BE92 


90 


02 


BE96 


388 




BCC 


SVFCBLO 


BRANCH IF IT'S WITHIN FIRST HALF OF FCB 


BE94 


E6 


BB 




389 




INC 


FCBPTR+1 


BUMP TO SECOND HAVE (REFNUM>8) 


BE96 


85 


BA 




390 


SVFCBLO 


STA 


FCBPTR 


SAVE LOW ADDRESS OF REFERENCED FCB 


BE98 


A5 


Al 




391 




LDA 


C . REFNUM 


NOW VERIFY THAT FILE IS OPEN. 


BE 9 A 


AO 


00 




392 




LDY 


#FCBREFN 




BE9C 


Dl 


BA 




393 




CMP 


(FCBPTR) , Y 


SHOULD BE EQUAL ! 


BE9E 


DO 


59 


BEF9 


394 




BNE 


ERRNOREF 


BRANCH IF THEY ' RE NOT 


BEAO 


AO 


OB 




395 


FNDFCBUF 


LDY 


#FCBBUFN 


IT'S A LEGAL FILE, NOW SET UP 


BEA2 


Bl 


BA 




396 




LDA 


(FCBPTR) , Y 


; INDIRECT POINTERS TO DATA 


BEA4 


A2 


BC 




397 


GTBUFFRS 


LDX 


#DATPTR 


(AND INDEX) BUFFER (S) IN ZERO PAGE 


BEA6 


20 


00 


00 


398 




JSR 


GETBUFADR 


GET BUFFER ADDRESS UNLESS 


BE A 9 


BO 


55 


BFOO 


399 




BCS 


REEFERl 


BOB HAS BEEN SMOKIN DOPE . . . 


BEAR 


A9 


02 




400 




LDA 


#2 


(ASSUME AN INDEX BLOCK BUFFER IS ALSO PRESENT) 


BEAD 


65 


BD 




401 




ADC 


DATPTR+1 




BEAF 


85 


B3 




402 




STA 


TINDX+1 




BEBl 


A5 


BC 




403 




LDA 


DATPTR 




BEB3 


85 


B2 




404 




STA 


TINDX 




BEB5 


AD 


BD 


14 


405 




LDA 


SISDATP 




BEB8 


8D 


B3 


14 


406 




STA 


SSTIDXH 




BEBB 


AO 


01 




407 




LDY 


#FCBDEVN 




BEBD 


Bl 


BA 




408 




LDA 


(FCBPTR) , Y 


MAKE SURE DEVICE 


BEBF 


8D 


B4 


DB 


409 




STA 


D . DEV 


NUMBER TEMPS MATCH 


BEC2 


85 


35 




410 




STA 


DEVNUM 


CURRENT FILE'S DEVICE 


BEC4 


A9 


00 




411 




LDA 


#0 


LOOK AT ALL VOLUMES LOGGED IN 


BEC6 


AA 






412 


FNDFVOL 


TAX 






BEC7 


BD 


10 


11 


413 




LDA 


VCB+VCBDEV, X 


GET VOLUMES DEVICE NUMBER 


BECA 


Dl 


BA 




414 




CMP 


(FCBPTR) , Y 


HVE WE FOUND A MATCH. 


BECC 


DO 


20 


BEEE 


415 




BNE 


FNDFVl 




BECE 


AO 


lA 




416 




LDY 


#FCBSWAP 


SWAP BYTES 


BEDO 


BD 


IF 


11 


417 




LDA 


VCB+VCBSWAP, X 


MISMATCH 


BED 3 


Dl 


BA 




418 




CMP 


(FCBPTR) , Y 


MEANS FILE BELONGS 


BEDS 


DO 


15 


BEEC 


419 




BNE 


FNDFV. 1 


TO ANOTHER VOLUME 


BED 7 


BD 


00 


11 


420 




LDA 


VCB, X 


IS THIS AN OPEN DEVICE? 


BEDA 


FO 


10 


BEEC 


421 




BEQ 


FNDFV. 1 


NO, TRY ANOTHER VOLUME 


BEDC 


20 


05 


BF 


422 




JSR 


FVOLFOUND 


YES, SAVE VCB ADDRESS 


BEDF 


BD 


IF 


11 


423 




LDA 


VCB+VCBSWAP, X 


SWAPPED? 


BEE2 


FO 


IC 


BFOO 


424 




BEQ 


REEFERl 


NO, RETURN CALMLY TO USER 


BEE 4 


20 


51 


DC 


425 




JSR 


SWAP IN 


YES, SWAP ME IN 
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BEE 7 


: 90 


17 


BEOO 


426 




BCC 


REEFERl 


; RETURN WITHOUT ERROR 


BEE 9 


:A9 


00 




427 




LDA 


#XIOERROR 


; USER REFUSED TO MOUNT PROPER VOLUME 


BEEB 


: 60 






428 




RTS 






BEEC 








429 










BEEC 


:A0 


01 




430 


FNDEV. 1 


LDY 


#FCBDEVN 


; RELOAD Y WITH DEVICE INDEX 


BEEE 


:8A 






431 


FNDFVl 


TXA 






BEEF 


:18 






432 




CLC 






BEFO 


: 69 


20 




433 




ADC 


#VCBSIZE 




BEF2 


: 90 


D2 


BEC6 


434 




BCC 


ENDFVOL 


; LOOP UNTIL FOUND 


BEE 4 


:A9 


00 




435 




LDA 


#VCBERR 


; OTHERWISE DIE A SYSTEM DEATH! 


BEE 6 


:20 


00 


00 


436 




JSR 


SYSDEATH 
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BEF9 ; 






438 


* 










BEF9; 


:A9 


00 


439 


ERRNOREF 


LDA 


#0 


; DROP A ZERO INTO THIS FCB 


TO 


BEFB ; 


: 91 


BA 


440 




STA 


(FCBPTR) , Y 


; SHOW FREE FCB 




BEFD : 






441 












BEFD: 


: A9 


00 


442 


REEFER 


LDA 


#BADREFNUM 


; TELL USER THAT REQUESTED 


REFNUM 


BEFF ; 


: 38 




443 




SEC 




; IS ILLEGAL (OUT OF RANGE) 


FOR THIS 


BFOO ; 


; 60 




444 


REEFERl 


RTS 








BFOl ; 






445 


* 










BFOl ; 


:A9 


00 


446 


ERRNOTBLK 


LDA 


#NOTBLKDEV 


; TELL USER THAT SPECIFIED 


DEVICE IS 


BF03 ; 


; 38 




447 




SEC 








BF04 ; 


: 60 




448 




RTS 








BF05: 






449 


-1, 










BF05: 






BF05 450 


SVCBADR 


EQU 








BF05 ; 


:86 


B6 


451 


FVOLFOUND 


STX 


VCBPTR 






BF07 ; 


:A9 


11 


452 




LDA 


#VCB/256 






BF0 9 : 


:85 


B7 


453 




STA 


VCBPTR+1 






BFOB; 


:18 




454 




CLC 




; INDICATE LEGAL REFNUM 




BFOC; 


: 60 




455 




RTS 
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BFOD 








457 


* NAME 


GETDNUM 


BFOD 








458 


* FUNCTION 


GET 


DEVICE NUMBER 


BFOD 








459 


* INPUT 


DVNAMP SETUP 


BFOD 








460 


* OUTPUT 


DEVNUM IN 'SCRTCH' 


BFOD 








461 




'BPL 


' IF NOT BLOCK DI 


BFOD 








462 




'BOS 


' IF NO DEVICE 


BFOD 








463 


* VOLATILE 


ALL 


REGS 


BFOD 








464 


* 






BFOD 






BFOD 


465 


GETDNUM 


EQU 




BFOD 


A9 


E4 




466 




LDA 


#>SCRTCH+1 


BFOF 


85 


C3 




467 




STA 


DVDNUM 


BFll 


A9 


DB 




468 




LDA 


#SCRHIGH 


BF13 


85 


C4 




469 




STA 


DVDNUM+1 


BF15 


A9 


00 




470 




LDA 


#0 


BF17 


8D 


C4 


14 


471 




STA 


SISTER+DVDNUM+1 


BFIA 


85 


B7 




472 




STA 


VCBPTR+1 


BFIC 


A9 


04 




473 




LDA 


#4 


BFIE 


85 


CO 




474 




STA 


DHPCMD 


BF20 


20 


3E 


CF 


475 




JSR 


RPEATIOO 


BF23 


60 






476 




RTS 





SET UP POINTER TO SCRATCH AREA 
TO RECIEVE DEVICE NUMBER. 



PLACE A ZERO IN BANK BYTE SINCE 
IT'S NOT IN A BANK. 

THE 'GET.DNUM' COMMAND. 

CALL BOB FOR THE INFO. 
RETURN WITH DEVMGR CCS 
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BF24 








478 


* 






BF24 








479 


* NAME 


SROHDEV 


BF24 








480 


* FUNCTION 


SEARCH FOR A VOLUME 


BF24 








481 








BF24 






BF2 4 


482 


SROHDEV 


EQU 




BF24 


20 


OD 


BF 


483 




JSR 


GETDNUM 


BF27 


BO 


54 


BF7D 


484 




BOS 


VOLERRl 


BF2 9 


10 


D5 


BFOl 


485 




BPL 


ERRNOTBLK 


BF2B 


A9 


00 




485 




LDA 


#0 


BF2D 


8D 


78 


BF 


487 




STA 


NFOPEN 


BF30 


AA 






488 


VOLOOK 


TAX 




BF31 


BD 


11 


11 


489 




LDA 


VCB+VCBSTAT, X 


BF34 


DO 


03 


BF39 


4 90 




BNE 


VLOOKOO 


BF36 


8E 


78 


BF 


4 91 




STX 


NFOPEN 


BF39 






BF39 


4 92 


VLOOKOO 


EQU 




BF39 


BD 


IF 


11 


493 




LDA 


VCB+VCBSWAP, X 


BF3C 


DO 


08 


BF46 


494 




BNE 


VNOTEQ 


BF3E 


BD 


10 


11 


495 




LDA 


VCB+VCBDEV, X 


BF41 


4D 


E4 


DB 


496 




EOR 


SCRTCH+1 


BF44 


FO 


05 


BF4B 


497 




BEQ 


VLOOKO 


BF4 6 


BD 


00 


11 


4 98 


VNOTEQ 


LDA 


VCB, X 


BF4 9 


DO 


48 


BF93 


4 99 




BNE 


VL00K2 


BF4B 


5D 


00 


11 


500 


VLOOKO 


EOR 


VCB, X 


BF4E 


FO 


40 


BF90 


501 




BEQ 


VLOOKl 


BF50 


20 


05 


BF 


502 




JSR 


SVCBADR 


BF53 


BD 


11 


11 


503 




LDA 


VCB+VCBSTAT, X 


BF56 


10 


4B 


BFA3 


504 




BPL 


VL00K3 


BF5 8 


AD 


E4 


DB 


505 




LDA 


SCRTCH+1 


BF5B 


85 


35 




506 




STA 


DEVNUM 


BF5D 


8A 






507 




TXA 




BF5E 


48 






508 




PHA 




BF5F 


20 


OA 


C9 


509 




JSR 


VERFYVOL 


BF62 


90 


15 


BF79 


510 




BCC 


VNOSWIT 


BF64 


C9 


00 




511 




CMP 


#VNFERR 


BF66 


FO 


24 


BF8C 


512 




BEQ 


VL00K7 


BF68 


20 


65 


C4 


513 




JSR 


TSTSOS 


BF6B 


BO 


IB 


BF88 


514 




BCS 


KNOTSOS 


BF6D 


A2 


00 




515 




LDX 


#0 


BF6F 


20 


02 


08 


516 




JSR 


SNSWITl 


BF72 


BO 


OB 


BF7F 


517 




BCS 


VNOSWITl 


BF74 


68 






518 




PLA 




BF75 


A6 


B6 




519 




LDX 


VCBPTR 


BF77 


60 






520 




RTS 




BF78 








521 


* 






BF78 






0001 


522 


NFOPEN 


DS 


1 


BF7 9 








523 


* 






BE 7 9 


18 






524 


VNOSWIT 


CLC 




BE 7 A 


68 






525 




PLA 




BF7B 


AA 






526 




TAX 




BF7C 


60 






527 




RTS 




BF7D 








528 


; RETURN TO CALLER X=POINTER TO 


BF7D 








529 


* 






BF7D 


38 






530 


VOLERRl 


SEC 




BF7E 


60 






531 




RTS 




BF7F 


C9 


00 




532 


VNOSWITl 


CMP 


#DUPVOL 


BF81 


DO 


09 


BF8C 


533 




BNE 


VL00K7 



; GET DEVNUM 

; BRANCH IF ANY ERROR OTHER THAN NOTBLOCKDEV 

; BRANCH IF NOT A BLOCK DEVICE 

; NOW SEARCH FOR A VOL WITH THE 

; INIT TEMP VCB POINTER 

; SAME DEVNUM AS SCRTCH 

; ANY FILES OPEN? 

; BRANCH IF SOME FILE OPEN 

; ELSE SAVE THE VCB ENTRY PTR 

; VOLUME SWAPPED OUT? 

; YES, CANT BE THE ACTIVE VOL 



; BRANCH IF MATCH. 

; IS THIS A FREE VCB? 

; BRANCH IF NOT FREE, OTHEWISE TAKE NEXT BRANCH. 

; TEST FOR A VOLUME NAME LENGTH 

; BRANCH IF VCB FREE 

; SAVE CURRENT ADDRESS OF VCB. 

; TEST FOR ANY OPEN FILES. 

; LOG THE VOLUME IN JUST TO BE SURE 

; SET UP 

; DEVICE NUMBER ARGUMENT 

; SAVE PTR TO VCB 

; ON STACK 

; COMPARES VCBPTR TO DEVNUM CONTENTS 

; SEE IF NOTHING IN DRIVE 

; BRANCH IF NOTHING IN DRIVE 

; IS THE VOLUME AN UNRECOGNIZED SOS OR (UCSD OR DOS)? 

; DEFINITELY NOT SOS FORMAT 

; START VCB SCAN AT BEGINNING 

; FIND A FREE VCB AND LOG IN THE NEW GUY 

; CAN'T LOG IN NEW GUY — KEEP OLD 

; PASS BACK X AS NEW VCB 



; TEMP VCB PTR FOR VCB W/ NO FILES OPEN 

; RETURN IT TO USER 

; REMEMBER OLD VCB PTR 

; AND PASS BACK TO USER 



; RETURN SOME VOLUME ERROR 



; REPORT OTHER ERROR FROM LOGGING IN NEW VOL AS VNF 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 341 of 456 



SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



BF83 


AA 






534 




TAX 






BF84 


68 






535 




PLA 




MAKE STACK CORRECT 


BF85 


8A 






536 




TXA 




RESTORE ERROR CODE 


BF8 6 


38 






537 




SEC 






BF87 


60 






538 




RTS 




IF DUPLICATE VOLUME ERROR, RETURN FACT TO USER 


BF88 


68 






539 


KNOTSOS 


PLA 




MAKE STACK CORRECT 


BF8 9 


A9 


00 




540 




LDA 


#NOTSOS 


FOR THE PASCAL FOLK 


BF8B 


60 






541 




RTS 




NOTSOS MEANS UCSD OR DOS OR BAD SOS VOLUME 


BF8C 








542 


* 








BF8C 


68 






543 


VL00K7 


PLA 




THROW AWAY OLD VCB PTR 


BF8D 


4C 


D2 


BF 


544 




JMP 


NOVOLM 


AND REPORT VOLUME NOT FOUND 


BF90 








545 


* 








BF90 


20 


05 


BE 


546 


VLOOKl 


JSR 


SVCBADR 


SAVE .ADDRESS OF FREE VCB. 


BF93 


8A 






547 


VL00K2 


TXA 




BUMP TO NEXT VOLUME ENTRY. 


BF94 


18 






548 




CLC 






BF95 


69 


20 




549 




ADC 


#VCBSIZE 




BF97 


90 


97 


BF30 


550 




BCC 


VOLOOK 


BRANCH IF MORE TO CHECK. 


BF99 


A6 


B7 




551 




LDX 


VCBPTR+1 


FREE VCB YET FOUND? 


BF9B 


DO 


06 


BFA3 


552 




BNE 


VL00K3 


BRANCH IF YES 


BF9D 


AE 


78 


BF 


553 




LDX 


NFOPEN 


SAVE POSSIBLE FREE VCB 


BFAO 


20 


05 


BF 


554 




JSR 


SVCBADR 


AND SAVE PTR PERMANENTLY 


BFA3 


A5 


B7 




555 


VL00K3 


LDA 


VCBPTR+1 


VJAS A FREE VCB FOUND? 


BFA5 


FO 


2B 


BFD2 


556 




BEQ 


NOVOLM 


BRANCH IE VOLUME CAN'T BE LOGGED IN. 


BFA7 


AD 


E4 


DB 


557 




LDA 


SCRTCH+1 


GET DEVICE NUMBER 


BFAA 


85 


35 




558 




STA 


DEVNUM 


SAVE DEVICE NUMBER. 


BFAC 


A9 


01 




559 




LDA 


#1 


FAKE OUT 'LOKVOL' 


BFAE 


8D 


E3 


DB 


560 




STA 


SCRTCH 


TO THINK TO LOOK ONLY ONCE. 


BFBl 


85 


36 




561 




STA 


TOTDEVS 




BFB3 


A9 


11 




562 




LDA 


#<VCB 




BFB5 


85 


B7 




563 




STA 


VCBPTR+1 




BFB7 


85 


Bl 




564 




STA 


PATHNMH 


(TO MAKE HARMLESS) 


BFB9 


A9 


00 




555 




LDA 


#0 




BFBB 


8D 


Bl 


14 


566 




STA 


SISTER+PATHNMH 




BFBE 


A6 


B6 




567 




LDX 


VCBPTR 




BFCO 


86 


BO 




568 




STX 


PATHNML 




BFC2 


9D 


00 


11 


569 




STA 


VCB, X 


FORCE CURRENT VOLUME OFF LINE, THEN LOG WHATS THERE 


BFC5 


20 


AA 


C7 


570 




JSR 


FREEVCB 


GO READ ROOT DIRECTORY. 


BFC8 


BO 


OB 


BFD5 


571 




BCS 


RTVOLNAM 


RETURN ANY ERRORS 


BFCA 


A6 


B6 




572 




LDX 


VCBPTR 


MAKE SURE VOLUME WAS LOGGED IN 


BFCC 


BD 


00 


11 


573 




LDA 


VCB, X 




BFCF 


FO 


01 


BFD2 


574 




BEQ 


NOVOLM 


RETURN ERROR 


BFDl 


60 






575 




RTS 




ELSE RETURN NORMALLY 


BFD2 


A9 


00 




576 


NOVOLM 


LDA 


#VNFERR 


TELL USER 'NO VOLUME' 


BFD4 


38 






577 




SEC 






BFD5 


AA 






578 


RTVOLNAM 


TAX 




SAVE REAL ERROR WHILE DUPLICATE IS CHECKED 


BED 6 


A5 


3C 




579 




LDA 


DUPLFLAG 




BED 8 


FO 


02 


BEDC 


580 




BEQ 


RTVl 


BRANCH IF NOT DUPLICATE 


BEDA 


A2 


00 




581 




LDX 


#DUPVOL 




BEDC 


8A 






582 


RTVl 


TXA 




RECALL ERROR 


BEDD 


60 






583 




RTS 






BFDE 








584 


* 








BFDE 








585 




CHN 


VOLUME 
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BFDE 








2 


**************** 


************************ 


BFDE 








3 


* NAME : VOLUME 




BFDE 








4 


* FUNCTION: RETURN VOLUME INFO 




BFDE 








5 


* INPUT : DEVICE NAME 




BFDE 








6 


* OUTPUT : THE 


INFO 




BFDE 








7 


* VOLATILE: ALL 


REGS 




BFDE 








8 


**************** 


************************ 


BFDE 








9 


* 






BFDE 






BFDE 


10 


VOLUME EQU 






BFDE 


A5 


Al 




11 


LDA 


C . DNAMP 


TRANSFER DEVICE NAME 


BFEO 


85 


CI 




12 


STA 


DVNAMP 


NAME FOR DMGR 


BFE2 


A5 


A2 




13 


LDA 


C. DNAMP +1 




BFE4 


85 


C2 




14 


STA 


DVNAMP +1 




BFE6 


AD 


A2 


14 


15 


LDA 


SISTER+C.DNAMP+1 


AND XTND 


BFE9 


8D 


C2 


14 


16 


STA 


SISTER+DVNAMP+1 




BFEC 


20 


OD 


BF 


17 


JSR 


GETDNUM 


GET DEVNUM 


BFEF 


90 


01 


BFF2 


18 


BCC 


VOL 7 


=>SOME KINDA ERROR 


BFFl 


50 






19 


RTS 




RETURN ERROR 


BFF2 


30 


05 


BFF9 


20 


V0L7 BMI 


V0L2 


=>IT'S GOOD. . . 


BFF4 


A9 


00 




21 


LDA 


#NOTBLKDEV 


NOT BLOCKED 


BFF6 


4C 


CC 


CO 


22 


JMP 


VOLERR 


=>RETURN THE ERROR 


BFF9 








23 








BFF9 








24 


* UNCONDITIONALLY READ ROOT DIRECTORY: 


BFF9 








25 








BFF9 






BFF9 


26 


V0L2 EQU 






BFF9 


AD 


E4 


DB 


27 


LDA 


SCRTCH+1 




BFFC 


85 


35 




28 


STA 


DEVNUM 


SETUP DEV NUMBER 


BFFE 


A9 


02 




29 


LDA 


#2 


BLKNUM=2 


COOO 


A2 


00 




30 


LDX 


#0 




C002 


20 


IE 


C9 


31 


JSR 


GETROTO 


GET IT PLEASE 


€005 


A9 


00 




32 


LDA 


tVNFERR 


ERROR CODE 


C007 


90 


01 


COOA 


33 


BCC 


VOLS 


BRANCH IF NO ERROR ON READ 


C009 


50 






34 


RTS 




=>ERROR, PASS IT ON. 


COOA 








35 


* 






COOA 


A9 


00 




35 


VOL 8 LDA 


#>VCB 


SET VCBPTR TO THE 


COOC 


85 


B5 




37 


STA 


VCBPTR 


FIRST OF THEM 


COOE 


A9 


11 




38 


LDA 


#<VCB 




COlO 


85 


B7 




39 


STA 


VCBPTR+1 




C012 








40 


* 






C012 








41 


* IS THIS VOLUME 


SOS OR OTHER? 




C012 








42 


* 






C012 


20 


65 


C4 


43 


JSR 


TSTSOS 


WHICH KIND? 


C015 


90 


03 


COIA 


44 


BCC 


VLOGGED 


=>IT'S SOS 


C017 


4C 


CE 


CO 


45 


JMP 


VNOTSOS 


=>NOT SOS 


COIA 








45 


* 






COIA 








47 


* IS THIS SOS VOLUME LOGGED IN? 




COIA 








48 








COIA 






COIA 


49 


VLOGGED EQU 






COIA 


20 


F2 


C8 


50 


JSR 


CMPVCB 


DOES VOLNAME MATCH? 


COID 


90 


07 


C026 


51 


BCC 


VFOUND 


=>YES, WE KNOW ABOUT IT. 


COIF 


20 


E9 


CO 


52 


JSR 


VNXTVCB 


BUMP TO NEXT 


C022 


90 


F5 


COIA 


53 


BCC 


VLOGGED 


=>TRY ' EM ALL . . . 


C024 


BO 


31 


C057 


54 


BCS 


VNEW 


=>NOT FOUND, IT'S NEW (BRANCH 


C025 








55 


* 






C025 








55 


* 






C026 








57 


* IT'S BEEN LOGGED IN BEFORE: 
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C026 








58 


* IS IT SWAPPED IN OR OUT? 




C026 








59 


* 






C026 






C026 


60 


VFOUND EQU 






C026 


AO 


IF 




61 


LDY 


#VCBSWAP 


INDEX TO IT 


C028 


Bl 


B6 




62 


LDA 


(VCBPTR) , Y 


SWAPPED? 


C02A 


10 


13 


C03F 


63 


BPL 


VFOUNDl 


=>IN. RETURN THE INFO 


C02C 








64 


* 






C02C 








65 


* SWAPPED OUT. 


BEFORE WE SWAP IT 




C02C 








66 


* IN, MAKE SURE IT BELONGS ON 




C02C 








67 


* THIS DEVICE 






C02C 








68 


* 






C02C 


AO 


10 




69 


LDY 


#VCBDEV 


INDEX TO IT 


C02E 


Bl 


B6 




70 


LDA 


(VCBPTR) , Y 


GET ITS DEVICE 


C030 


C5 


35 




71 


CMP 


DEVNUM 


CORRECT DEVICE? 


C032 


FO 


05 


C039 


72 


BEQ 


VSWAPIN 


=>YES 


C034 


A9 


00 




73 


LDA 


#DUPVOL 


IF FOR ANOTHER DEV, 


C036 


4C 


CC 


CO 


74 


JMP 


VOLERR 


THEN IT'S AN ERROR! 


C039 








75 


* 






C039 








75 


* NOW SWAP-IN THIS VOLUME: 




C039 








77 


* 






C039 






C039 


78 


VSWAPIN EQU 






C039 


20 


51 


DC 


79 


JSR 


SWAP IN 


SWAP IT IN 


C03C 


4C 


9E 


CO 


80 


JMP 


VINFO 


AND RETURN THE INFO 


C03F 








81 








C03F 


AO 


10 




82 


VFOUNDl LDY 


#VCBDEV 




C041 


Bl 


B6 




83 


LDA 


(VCBPTR) , Y 


SAME DEVICES? 


C043 


C5 


35 




84 


CMP 


DEVNUM 




C045 


FO 


57 


CO 9E 


85 


BEQ 


VINFO 


YES; RETURN THE INFORMATION 


C047 


AO 


\ \ 




86 


LDY 


#VCBSTAT 




C049 


Bl 


B6 




87 


LDA 


(VCBPTR) , Y 


OPEN FILES? 


C04B 


10 


04 


C051 


88 


BPL 


VF0UND2 


BRANCH IF NOT 


C04D 


A9 


00 




89 


LDA 


#DUPVOL 




C04F 


DO 


7B 


COCC 


90 


BNE 


VOLERR 


ELSE REPORT DUPLICATE VOLUME ERROR (BRANCH 


C051 


AO 


00 




91 


VF0UND2 LDY 


#VCBNML 


MOVE THE LOGIN TO THIS NEW DEVICE 


C053 


A9 


00 




92 


LDA 


#0 


BY UNLOGGING THE OLD 


C055 


91 


B6 




93 


STA 


(VCBPTR) , Y 


AND LOGGING IN THE NEW (DROP INTO VNEW) 


C057 








94 


**************************************** 


C057 








95 








C057 








96 


* IT'S A BRAND 


NEW VOLUME. 




C057 








97 


* GUESS WE'LL 


HAVE TO LOG IT IN: 




C057 








98 


* 






C057 






C057 


99 


VNEW EQU 






C057 


A5 


35 




100 


LDA 


DEVNUM 


PASS A REG TO SWAPOUT 


C059 


20 


F5 


DB 


101 


JSR 


SWAP OUT 


SWAP ANY ACTIVE VOL ON THIS DEVICE 


C05C 


90 


03 


C061 


102 


BCC 


VNEWl 


BRANCH ON NO ERROR 


COSE 


A9 


00 




103 


LDA 


#XIOERROR 




C060 


60 






104 


RTS 






C061 


A9 


00 




105 


VNEWl LDA 


#>VCB 


FIND AN EMPTY VCB 


C063 


85 


B6 




106 


STA 


VCBPTR 




C065 


A9 


11 




107 


LDA 


#<VCB 




C067 


85 


B7 




108 


STA 


VCBPTR+1 




C069 


AO 


00 




109 


VFREE LDY 


#VCBNML 




C06B 


Bl 


B6 




110 


LDA 


(VCBPTR) , Y 


EMPTY VCB? 


C06D 


FO 


2C 


C09B 


111 


BEQ 


VLOGIN 


ITS FREE, USE IT 


C05F 


AO 


10 




112 


LDY 


#VCBDEV 




C071 


Bl 


B6 




113 


LDA 


(VCBPTR) , Y 


OR ONE WITH SAME DEVICE 
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C073 


C5 


35 




114 




CMP 


DEVNUM 




C075 


DO 


10 


C087 


115 




BNE 


VFREEX 


BRANCH IF NO DEVICE MATCH 


C077 


AO 


11 




116 




LDY 


#VCBSTAT 




C079 


Bl 


B6 




117 




LDA 


(VCBPTR} , Y 


AND NO OPEN FILES 


C07B 


10 


IE 


C09B 


118 




BPL 


VLOGIN 


BRANCH IF OK TO REUSE THIS VCB 


C07D 


A5 


35 




119 




LDA 


DEVNUM 


THEN WE MUST SWAP OUT THIS VOLUME 


C07F 


20 


F6 


DB 


120 




JSR 


SWAPOUT 




C082 


90 


03 


C087 


121 




BCC 


VFREEX 


SWAPOUT PROCEEDED OK 


C084 


A9 


00 




122 




LDA 


#XIOERROR 


ELSE REPORT ERROR 


C086 


50 






123 




RTS 






C087 


20 


E9 


CO 


124 


VFREEX 


JSR 


VNXTVCB 


TRY NEXT 


C08A 


90 


DD 


C069 


125 




BCC 


VFREE 


MORE TO COME 


C08C 








126 


* RAN OUT 


OF MT 


' S ... FIND W/0 FILES 


C08C 


AO 


11 




127 


VNFIL 


LDY 


#VCBSTAT 




COSE 


Bl 


B6 




128 




LDA 


(VCBPTR) , Y 




CO 90 


10 


9 


C09B 


129 




BPL 


VLOGIN 




C092 


20 


E9 


CO 


130 




JSR 


VNXTVCB 




C095 


90 


F5 


CO 8C 


131 




BCC 


VNFIL 




C097 








132 


* ALL OPEN 




REPORT VCBFULL 




C097 


A9 


00 




133 




LDA 


#FCBFULL 




C099 


DO 


31 


cocc 


134 




BNE 


VOLERR 




C09B 






C09B 


135 


VLOGIN 


EQU 






C09B 


20 


8F 


C8 


136 




JSR 


LOGVCB 


AND LOGIN THIS ONE 


C09E 








137 


********** 


* * * * * 


************************* 


C09E 








138 










C09E 








139 


* RETURN ALL THE NICE INFO: 




C09E 








140 


* 








C09E 






CO 9E 


141 


VINFO 


EQU 






C09E 


A9 


00 




142 




LDA 


#0 




COAO 


AO 


14 




143 




LDY 


#VCBTFRE 


FETCH VOLUME FREE BLOCK COUNT 


C0A2 


91 


B6 




144 




STA 


(VCBPTR) , Y 


FORCE RESCAN OF ALL 


C0A4 


C8 






145 




INY 




BITMAPS 


C0A5 


91 


B6 




145 




STA 


(VCBPTR) , Y 


TO MAKE SURE VCB INFO CURRENT 


C0A7 


85 


04 




147 




STA 


REQL 


FREE BLOCKS 


C0A9 


85 


05 




148 




STA 


REQH 




COAB 


20 


4C 


C9 


149 




JSR 


TSFRBLK 




COAE 








150 


* 








COAE 


A6 


B6 




151 




LDX 


VCBPTR 


GET VCB INDEX 


COBO 


AO 


00 




152 




LDY 


#0 




C0B2 






C0B2 


153 


VINFOl 


EQU 






C0B2 


BD 


12 


11 


154 




LDA 


VCB+VCBTBLK, X 


MOVE TOTAL 


COBS 


91 


A5 




155 




STA 


(C.OUTBLK) ,Y 


BLOCKS AVAIL 


C0B7 


E8 






155 




I NX 






COBB 


C8 






157 




INY 






C0B9 


CO 


04 




158 




CPY 


#4 


AND FREE ONES TOO 


COBB 


DO 


F5 


C0B2 


159 




BNE 


VINFOl 




COBD 








160 


* 








COBD 


AO 


00 




161 




LDY 


#0 


NOW DO VOLNAME 


COBF 


Bl 


B6 




162 




LDA 


(VCBPTR) , Y 




COCl 


A8 






163 




TAY 






C0C2 






C0C2 


164 


VINF02 


EQU 






C0C2 


Bl 


B6 




165 




LDA 


(VCBPTR) , Y 




C0C4 


91 


A3 




166 




STA 


(C.OUTVOL) , Y 




C0C6 


88 






167 




DEY 






C0C7 


10 


F9 


C0C2 


168 




BPL 


VINF02 




C0C9 


18 






169 




CLC 
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COCA: 90 01 COCD 170 BCC 
COCC: 171 * 

COCC: COCC 172 VOLERR EQU 

C0CC:38 173 SEC 

COCD: COCD 174 VOLRET EQU 

COCD: 50 175 RTS 
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10 



COCE: 
COCE: 
COCE: 
COCE: 
COCE: 
COCE: 
COCE:AO 
CODOrBl B6 
C0D2:C5 35 
C0D4:D0 OA 
C0D6:A0 11 
C0D8:B1 B6 
CODArlO 04 C 
C0DC:09 40 
C0DE:91 B6 
COEO: 

COEO: C 
C0E0:20 E9 CO 
C0E3:90 E9 C 
C0E5: 

C0E5:A9 00 
C0E7:D0 E3 C 



COEO 



177 
178 
179 
180 
181 
182 
183 
184 
185 
185 
187 
188 
189 
190 
191 
192 
193 
194 
195 
195 
197 
198 



THIS ISN'T A SOS VOLUME. MARK 
THE ACTIVE VOL THIS DEVICE 
SO THAT IT GETS CHECKED LATER: 



EQU 
LDY 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
ORA 
STA 

EQU 
JSR 
BCC 

LDA 
BNE 



#VCBDEV 
(VCBPTR) , Y 
DEVNUM 
VNS2 

#VCBSTAT 
(VCBPTR) , Y 
VNS2 

#DSWITCH 
(VCBPTR) , Y 



VNXTVCB 
VNOTSOS 



#NOTSOS 
VOLERR 



IS VCB FOR THIS 
DEVICE? 



INDEX TO IT 

GET STATUS 
=>NOT ACTIVE. 
SET 'SWITCHEROO' 
PUT IT BACK 



GET NEXT VCB 
=>TRY 'EM ALL. 



GIVE THE ERROR 
(BRANCH ALWAYS) 



C0E9 : 

C0E9 : 

C0E9: 

C0E9: 

C0E9: 

C0E9: 

C0E9: 

C0E9: 

C0E9: 

C0E9 : A5 

COEB: 18 

COEC: 69 

C0EE:85 

C0F0:60 

COFl: 



20 
B6 



NAME 

FUNCTION 
INPUT 
OUTPUT 



200 
201 
202 
203 

204 * 

205 * 

20 5 * VOLAT 

207 * 

208 VNXTVCB 

209 
210 
211 
212 
213 
214 



VNXTVCB 

BUMP VCBPTR TO NEXT VCB 
NOTHING 
VCBPTR UPDATED 
'BCC IF MORE TO GO 
'BCS' IF DONE 
AC 



EQU 
LDA 
CLC 
ADC 
STA 
RTS 
CHN 



#VCBSIZE 
VCBPTR 



CARRY SET IF END OF PAGE 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 347 of 456 



06 CREATE SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 33 



COFl 






COFl 


2 


CREATE 


EQU 






COFl 


EE 


17 


C5 


3 




INC 


CFLAG 


SAY WE ARE IN CREATE (DIR EXTEND) 


C0F4 


20 


93 


C4 


4 




JSR 


LOOKFILE 


CHECK FOR DUPLICATE / GET FREE ENTRY 


C0F7 


BO 


04 


COFD 


5 




BCS 


TSTFNF 


ERROR CODE IN ACC MAY BE 'FILE NOT FOUND' 


C0F9 


A9 


00 




6 




LDA 


#DUPERR 


TELL EM A FILE OF THAT NAME ALREADY EXISTS 


COFB 


38 






7 


CRERRl 


SEC 




INDICATE ERROR ENCOUNTERED 


COFC 


60 






8 




RTS 




RETURN ERROR IN ACC . 


COFD 








9 


* 








COFD 


C9 


00 




10 


TSTFNF 


CMP 


#FNFERR 


'FILE NOT FOUND' IS WHAT WE WANT 


COFF 


DO 


FA 


COFB 


11 




BNE 


CRERRl 


PASS BACK OTHER ERROR. 


ClOl 


A5 


OC 




12 




LDA 


NOFREE 


TEST FOR DIRECTORY SPACE 


C103 


DO 


04 


C109 


13 




BNE 


GREAT 1 


BRANCH IF VALID FREE ENTRY WAS FOUND. 


C105 


A9 


00 




14 




LDA 


#DIRFULL 


RETURN DIRECTORY FULL ERROR 


C107 


38 






15 




SEC 






C108 


60 






15 




RTS 






C109 








17 


* 








C109 


AO 


09 




18 


GREAT 1 


LDY 


#$9 


SET UP DEFAULT PARAMETERS FOR CREATE 


ClOB 


A9 


00 




19 




LDA 


#0 


IN THE SPACE DIRECTLY FOLLOWING THE 


ClOD 


99 


A5 


00 


20 


ZERCALL 


STA 


C.FILID, Y 


CALL SPECIFCATION AND THEN 


Clio 


88 






21 




DEY 




CHECK FOR ADDITIONAL PARAMETERS FROM 


cm 


10 


FA 


ClOD 


22 




BPL 


ZERCALL 


USER'S CALL SPEC VIA 'C.CLIST' 


C113 


A9 


01 




23 




LDA 


#SEEDTYP 


DEFAULT TYPE IS 'SEED' TREE INDEX 


C115 


85 


A9 




24 




STA 


C . STOR 




C117 


A4 


A5 




25 




LDY 


C . XLEN 


GET THE LENGTH OF THE CALL XTENSION LIST 


C119 


FO 


10 


C12B 


26 




BEQ 


CRENAM 


IF ZERO THEN USE DEFAULTS 


CllB 


88 






27 




DEY 




(SINCE THE POINTER IS AT BYTE 0) 


cue 


CO 


09 




28 




CPY 


#$9 


MAKE SURE WE DON ' T HAVE TOO MANY PARAMETERS 


CUE 


90 


03 


C123 


29 




BCC 


MOVPARM 


MOVE 'EM IF REASONABLE COUNT. 


C120 


A9 


00 




30 




LDA 


#BADLSTCNT 


INVALID LIST COUNT 


C122 


60 






31 




RTS 




RETURN ERROR. 


C123 








32 










C123 


Bl 


A3 




33 


MOVPARM 


LDA 


(C .XLIST) , Y 


MOVE IN THE USER SPECIFIED 


C125 


99 


A6 


00 


34 




STA 


C.FILID, Y 


PARAMETERS. VALIDITY IS CHECKED 


C128 


88 






35 




DEY 




AT VARIOUS POINTS FURTHER ALONG IN 


C129 


10 


F8 


C123 


36 




BPL 


MOVPARM 


THIS PROCESS. 


C12B 


AO 


00 




37 


CRENAM 


LDY 


#0 


MOVE LOCAL FILE NAME TO ENTRY BUFFER. 


C12D 


Bl 


BO 




38 




LDA 


(PATHNML) , Y 


GET LENGTH OF LOCAL NAME 


C12F 


A8 






39 




TAY 






C130 


Bl 


BO 




40 


CRENAMl 


LDA 


(PATHNML) , Y 




C132 


99 


BA 


DB 


41 




STA 


DFIL+D.STOR, Y 




C135 


88 






42 




DEY 




(MOVE ALL, INCLUDING LENGTH BYTE.) 


C135 


10 


F8 


C130 


43 




BPL 


CRENAMl 




C138 


A5 


A6 




44 




LDA 


C.FILID 


MOVE FILE AND AUX ID. 


C13A 


8D 


CA 


DB 


45 




STA 


DFIL+D.FILID 




C13D 


A5 


A7 




46 




LDA 


C.AUXID 




C13F 


8D 


D9 


DB 


47 




STA 


DFIL+D.AUXID 




C142 


A5 


A8 




48 




LDA 


C . AUXID+1 




C144 


8D 


DA 


DB 


49 




STA 


DFIL+D.AUXID+1 




C147 


A9 


C3 




50 




LDA 


#READEN+WRITEN+RENAMEN+DSTROYEN 


C149 


8D 


D8 


DB 


51 




STA 


DFIL+D.ATTR 




C14C 


AD 


B5 


DB 


52 




LDA 


D . HEAD 


SAVE FILE'S HEADER ADDRESS TOO. 


C14F 


8D 


DF 


DB 


53 




STA 


DFIL+D.DHDR 




C152 


AD 


B6 


DB 


54 




LDA 


D.HEAD+1 




C155 


8D 


EO 


DB 


55 




STA 


DFIL+D.DHDR+1 




C158 


20 


87 


D5 


56 




JSR 


TWRPROTl 


CAN WE WRITE TO THIS DISKETTE? 


C15B 


BO 


9E 


COFB 


57 




BCS 


CRERRl 
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6 CREATE 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



C15D:A5 A9 
C15F:C9 04 



58 
59 



LDA 
CMP 



C.STOR 

#4 



NOW TEST STORAGE TYPE FOR TREE TYPE FILES 

NOTE: THIS IS HARD CODED SINCE ALL TREES ARE LESS THAN 4 



C161:90 03 C166 
C153:4C E3 C2 



60 
61 



BCC SEED 
JMP NOTREE 



BRANCH IF SOME TYPE OF TREE (SEED, SAPLING...) 
GO TEST FOR SOME OTHER TYPE (SUCH AS DIRECTORY) . 
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6 CREATE 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 35 


C165 








63 


* 








C166 


A2 


01 




64 


SEED 


LDX 


#SEEDTYP 


START OUT ASSUMING A SEED FILE 


C168 


A5 


AD 




65 




LDA 


C.EOFHH 


TEST FOR OUT OF RANGE PREALLOCATION 


CI 6A 


FO 


04 


C170 


66 




BEQ 


SEEDl 


(HOPEFULLY BRANCH ALWAYS) 


C16C 


A9 


00 




67 


OVFLOW 


LDA 


#OVRERR 


REPORT UNABLE TO SATISFY REQUEST. 


C16E 


38 






68 




SEC 




INDICATE ERROR 


C16F 


60 






69 




RTS 






C170 








70 


* 








C170 


A5 


AC 




71 


SEEDl 


LDA 


C.EOFHL 


CALCULATE THE NUMBER OF 


C172 


8D 


Dl 


DB 


72 




STA 


DFIL+D.EOF+2 


BLOCKS NEEDED FOR PRE -ALLOCATION 


C175 


4A 






73 




LSR 


A 




C176 


A8 






74 




TAY 




Y HOLDS THE NUMBER OF INDEX BLOCKS NEEDED 


C177 


85 


01 




75 




STA 


DATBLKH 




C179 


A5 


AB 




76 




LDA 


C . EOFLH 


(CARRY UNDISTURBED FROM LAST SHIFT) 


C17B 


8D 


DO 


DB 


77 




STA 


DFIL+D.EOF+1 




C17E 


6A 






78 




ROR 


A 


WE NOW HAVE THE LOW ORDER COUNT OF NEEDED 


C17F 


85 


00 




79 




STA 


DATBLKL 




C181 


A5 


AA 




80 




LDA 


C.EOFLL 




C183 


8D 


CF 


DB 


81 




STA 


DFIL+D.EOF 


(CARRY IN TACT FROM LOW COUNT) 


C185 


DO 


02 


C18A 


82 




BNE 


INCDATA 


BUMP THE COUNT ON DATA BLOCKS IF REQUEST 


C188 


90 


07 


C191 


83 




BCC 


TSTSAP 


IS NOT A MULTIPLE OF 512. 


C18A 


E6 


00 




84 


INCDATA 


INC 


DATBLKL 




C18C 


DO 


03 


C191 


85 




BNE 


TSTSAP 




C18E 


C8 






86 




INY 




MUST INCREASE NUMBER OF INDEXES ALSO. 


C18F 


E6 


01 




87 




INC 


DATBLKH 




C191 


98 






88 


TSTSAP 


TYA 




IF NON ZERO, THEN IT'S AT LEAST A SAPLING 


C192 


DO 


10 


C1A4 


89 




BNE 


SAPLING 




C194 


A5 


00 




90 




LDA 


DATBLKL 


TO QUALIFY AS AN HONEST SEED, 


C196 


DO 


04 


C19C 


91 




BNE 


TSTSEED 


THEN ONE OR LESS DATA BLOCKS REQUESTED 


C198 


E6 


00 




92 




INC 


DATBLKL 


(MUST BE AT LEAST ONE BLOCK ALLOCATED 


C19A 


DO 


14 


CIBO 


93 




BNE 


CREALC 


TYPE IS SEED. BRANCH ALWAYS 


C19C 


C9 


01 




94 


TSTSEED 


CMP 


#1 


IF GREATER THAN ONE, IT'S NOT A SEED. 


C19E 


FO 


10 


CIBO 


95 




BEQ 


CREALC 


IT IS A SEED. CONTINUE CREATION 


ClAO 


E8 






96 




I NX 




THE TYPE IS SAPLING. 


ClAl 


C8 






97 




INY 




ONE INDEX BLOCK IS NEEDED. 


C1A2 


DO 


oc 


CIBO 


98 




BNE 


CREALC 


BRANCH ALWAYS 
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6 CREATE 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


C1A4 








100 


* 






C1A4 


E8 






101 


SAPLING 


I NX 




C1A5 


C9 


01 




102 




CMP 


#1 


C1A7 


DO 


04 


ClAD 


103 




BNE 


TREE 


C1A9 


A5 


00 




104 




LDA 


DATBLKL 


ClAB 


FO 


03 


CIBO 


105 




BEQ 


CREALC 


ClAD 


C8 






106 


TREE 


INY 




ClAE 








107 


* 






ClAE 


E8 






108 




I NX 




ClAF 


C8 






109 




INY 




CIBO 


84 


06 




110 


CREALC 


STY 


INDXBLK 


C1B2 


8A 






111 




TXA 




C1B3 


OA 






112 




ASL 


A 


C1B4 


OA 






113 




ASL 


A 


C1B5 


OA 






114 




ASL 


A 


C1B6 


OA 






115 




ASL 


A 


C1B7 


OD 


BA 


DB 


116 




OKA 


DFIL+D . STOR 


CIBA 


8D 


BA 


DB 


117 




STA 


DFIL+D . STOR 


CIBD 


86 


07 




118 




SIX 


LEVELS 


CIBF 


98 






119 




TYA 




CICO 


18 






120 




CLC 




ClCl 


65 


00 




121 




ADC 


DATBLKL 


C1C3 


8D 


CD 


DB 


122 




STA 


DFIL+D. USAGE 


C1C6 


85 


04 




123 




STA 


REQL 


C1C8 


A5 


01 




124 




LDA 


DATBLKH 


CICA 


69 


00 




125 




ADC 


#0 


CICC 


8D 


CE 


DB 


126 




STA 


DFIL+D. USAGE+1 


CICF 


85 


05 




127 




STA 


REQH 


ClDl 


AE 


B4 


DB 


128 




LDX 


D . DEV 


C1D4 


20 


4C 


C9 


129 




JSR 


TSFRBLK 


C1D7 


BO 


93 


C16C 


130 




BCS 


OVFLOW 


C1D9 


20 


9C 


CA 


131 




JSR 


ALCIBLK 


CIDC 


BO 


57 


C235 


132 




BCS 


CRERR 


CIDE 


8D 


CB 


DB 


133 




STA 


DFIL+D. FRST 


ClEl 


85 


02 




134 




STA 


IDXADRL 


C1E3 


8C 


CC 


DB 


135 




STY 


DFIL+D. FRST+1 


C1E6 


84 


03 




136 




STY 


IDXADRH 


C1E8 


20 


C4 


C2 


137 




JSR 


ZERGBUF 


CIEB 


20 


OA 


CB 


138 




JSR 


GTTINDX 


CIEE 


20 


Dl 


C2 


139 




JSR 


ZTMPIDX 


ClFl 


A6 


07 




140 




LDX 


LEVELS 


C1F3 


CA 






141 




DEX 




C1F4 


FO 


4A 


C240 


142 




BEQ 


ENDCRE 


C1F6 


CA 






143 




DEX 




C1F7 


FO 


3E 


C237 


144 




BEQ 


SAPFILE 


C1F9 


A4 


06 




145 




LDY 


INDXBLK 


CIFB 


88 






146 




DEY 




CIFC 


84 


04 




147 




STY 


REQL 


CIFE 


84 


06 




148 




STY 


INDXBLK 


C200 


20 


6E 


CA 


149 




JSR 


ALCIDXS 


C203 


BO 


30 


C235 


150 




BCS 


CRERR 


C205 


20 


8C 


CC 


151 




JSR 


WRTDFRST 


C208 


BO 


2B 


C235 


152 




BCS 


CRERR 


C20A 


A9 


00 




153 




LDA 


#0 


C20C 


85 


OF 




154 




STA 


TREPTR 



AUGUST-2006 



TYPE IS AT LEAST SAPLING. 

NO MORE THAN ONE INDEX BLOCK FOR A SAPLING 

MUST BE SURE THIS IS REAL MAX SAPLING (128K FILE) 
BRANCH IF IT IS. 

ACCOUNT FOR ADDITIONAL 2ND LEVEL INDEX 

TYPE IS TREE (2 LEVEL INDEX) 

ADD AN EXTRA INDEX BLOCK FOR TOP INDEX 

STORE INDEX BLOCK COUNT 

PUT STORAGE TYPE IN DIRECTORY ENTRY 



SAVE NUMBER OF INDEX LEVELS FOR PREALLOCATION . 
NOW FIGURE THE TOTAL NUMBER OF 

BLOCKS NEEDED (DATA + INDEX BLOCKS) 

(MIGHT AS WELL RECORD IT IN DIR 
WHILE WE 'RE AT IT. ) 

UPDATE HI BYTE TOO 



PASS ALONG THE DEVICE WE'RE TALKIN ABOUT. 

'TEST FREE BLOCKS' FINDS OUT IF ENOUGH FREE SPACE EXISTS 
BRANCH IF NOT ENOUGH SPACE. 
GO ALLOCATE FIRST BLOCK 

(RETURNS ACC=LOW Y=HIGH) 

SAVE AS ADDRESS FOR INCORE INDEX ALSO. 



GO CLEAN OUT GBUF 

GET TEMPORARY SPACE FOR AN INDEX BLOCK 
AND ZERO IT OUT. 

TEST FOR NUMBER OF LEVELS NEEDED. 

BRANCH IF SEED FILE. 

IS IT A SAPLING PRE -ALLOCATION . 

LOAD NUMBER OF INDEX BLOCKS NEEDED 
REMOVE THE ONE JUST ALLOCATED. 



GO ALLOCATE INDEXES FOR LOWER INDEX BLOCKS. 

GO WRITE TREE TOP INDEX BLOCK. 
BRANCH IF UNABLE TO DO THIS. 
INIT INDEX POINTER 
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6 CREATE 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



C20E 


A4 


OF 




C210 


Bl 


B2 




C212 


85 


02 




C214 


E6 


B3 




C216 


Bl 


B2 




C218 


85 


03 




C21A 


06 


B3 




C21C 


06 


06 




C21E 


FO 


17 




C220 


A9 


00 




C222 


85 


04 




C224 


20 


6D 


02 


C227 


BO 


OO 




C229 


20 


78 


00 


C22C 


BO 


07 




C22E 


E6 


OF 




C230 


20 


90 


00 


C233 


90 


D9 




C235 


38 






C235 


60 






C237 








C237 








C237 








C237 


A5 


00 




C239 


85 


04 




C23B 


20 


6D 


02 


C23E 


BO 


F5 




C240 


20 


78 


00 


C243 


BO 


FO 




C245 


A2 


03 




C247 


B5 


38 




C249 


9D 


D2 


DB 


C24C 


OA 






C24D 


10 


F8 




C24F 


EE 


A9 


DB 


C252 


DO 


OD 




C254 


EE 


AA 


DB 


C257 


A2 


03 




C259 


B5 


38 




C25B 


9D 


DB 


DB 


C25E 


OA 






C25F 


10 


F8 




C261 


AE 


B4 


DB 


C264 


20 


E4 


OB 


C267 


BO 


79 




C269 


20 


FO 


03 


C26C 


60 






C25D 









0237 



020E 



0235 



0247 



02E2 



156 FILLTREE 
157 

158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 

174 ORERR 
175 

176 * 

177 * 

178 SAPFILE 

179 LSTSAP 
180 

181 
182 

183 ENDORE 

184 
185 

186 TRETIME 

187 

188 

189 

190 ENDORE 
191 

192 
193 

194 ENDORX 

195 

196 

197 

198 ENDORE 1 

199 

200 

201 
202 
203 * 



LDY 


TREPTR 




LDA 


(TINDX) , Y 




STA 


IDXADRL 




INC 


TINDX+1 




LDA 


(TINDX) , Y 




STA 


IDXADRH 




DEC 


TINDX+1 




DEC 


INDXBLK 




BEQ 


LSTSAP 




LDA 


#0 




STA 


REQL 




JSR 


SAPINDX 




BCS 


CRERR 




JSR 


WRTINDX 




BCS 


CRERR 




INC 


TREPTR 




JSR 


RDFRST 




BCC 


FILLTREE 




SEC 






RTS 






EQU 






LDA 


DATBLKL 




STA 


REQL 




JSR 


SAPINDX 




BCS 


CRERR 




JSR 


WRTINDX 




BCS 


CRERR 




LDX 


#3 




LDA 


DATELO, X 




STA 


DFIL+D . CREDT 


X 


DEX 






BPL 


TRETIME 




INC 


H . FCNT 




BNE 


ENDCREl 




INC 


H . FCNT + 1 




LDX 


#3 




LDA 


DATELO, X 




STA 


DFIL+D. MODDT 


X 


DEX 






BPL 


ENDCRX 




LDX 


D.DEV 




JSR 


UPBMAP 




BCS 


CRERR2 




JSR 


DREVISE 




RTS 







GET ADDRESS OF LOWER BLOOK 

BUMP TO PAGE 2 TO GET HI ADDRESS. 
GET HIGH ADDRESS. 

OLEAN UP AFTER SELF . . . 

IS THIS THE LAST BLOOK ALLOCATED? 

YES, ALLOCATE PARTIAL FILLED INDEX BLOOK 

ALLOCATE ALL 256 INDEXES 

AND WRITE ZEROED DATA BLOCKS. 
STOP IF ERROR ENCOUNTERED. 
WRITE INDEX BLOCK 
HOPEFULLY NEVER TAKEN. 

READ IN TOP INDEX AGAIN. 
BRANCH IF NO ERROR. 
JUST IN CASE IT WAS CLEAR. 
RETURN ERROR. 



; GET NUMBER OF DATA BLOCKS (LOW BYTE) REQUESTED. 

; GO ALLOCATE DATA BLOCKS AND WRITE EM. 

; GO WRITE INDEX BLOOK. (FOR SEED THIS IS DATA.) 

; MOVE CREATION TIME FOR THIS ENTRY 

; ADD ONE TO TOTAL NUMBER OF FILES IN SPECIFIED DIRECTORY 



ENSURE MOD 
DATE /TIME 
IS 

INITIALIZED 

UPDATE APPROPRIATE BIT MAP 

BRANCH ON BITMAP UPDATE ERR 
UPDATE DIRECTORY LAST 
RETURN ERRORS OR OK RESULT 
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06 CREATE SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 38 



C26D 


20 


Dl 


02 


205 


SAPINDX 


JSR 


ZTMPIDX 


ZERO OUT ANY STUFF LEFT OVER. 


C270 


A5 


04 




206 




LDA 


REQL 


PRESERVE REQUEST OOUNT 


C272 


85 


10 




207 




STA 


TLINK 




C274 


20 


6E 


OA 


208 




JSR 


ALCIDXS 


GO ALLOCATE REQUESTED NUMBER OF BLOCKS . 


C277 


BO 


BO 


0235 


209 




BOS 


CRERR 




C279 


AO 


00 




210 




LDY 


#0 


THEN WRITE ZEROS TO DATA BLOCKS. 


C27B 


84 


OE 




211 




STY 


SAPTR 


USE AS POINTER TO INDEX BLOCK 


C27D 


Bl 


B2 




212 




LDA 


(TINDX) , Y 


GET DATA BLOCK ADDRESS (LOW BYTE) . 


C27F 


85 


06 




213 




STA 


BLOKNML 




C281 


E6 


B3 




214 




INO 


TINDX+1 




C283 


Bl 


B2 




215 




LDA 


(TINDX) , Y 


GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 


C285 


85 


07 




216 




STA 


BLOKNMH 




C287 


C6 


B3 




217 




DEO 


TINDX+1 


(RESET BUFFER ADDRESS) 


C289 


20 


54 


00 


218 




JSR 


WRTGBUF 


WRITE DATA BLOCK 


C28C 


BO 


A7 


0235 


219 




BOS 


ORERR 




C28E 


A5 


10 




220 




LDA 


TLINK 


GET NUMBER REQUESTED AGAIN 


C290 


85 


04 




221 




STA 


REQL 




C292 


A4 


OE 




222 


DATINIT 


LDY 


SAPTR 


GET POINTER TO INDEX BLOCK AGAIN. 


C294 


C8 






223 




INY 




ANTICIPATE DOIN' THE NEXT DATA BLOCK 


C295 


C6 


04 




224 




DEO 


REQL 


DO WE INDEED HAVE ANOTHER BLOCK TO WRITE. 


C2 97 


FO 


23 


02B0 


225 




BEQ 


DATDONE 


NO, ALL DONE (CARRY CLEAR) . 


C2 99 


84 


OE 




226 




STY 


SAPTR 


USE AS POINTER TO INDEX BLOCK 


C2 9B 


Bl 


B2 




227 




LDA 


(TINDX) , Y 


GET DATA BLOCK ADDRESS (LOW BYTE) . 


C2 9D 


85 


06 




228 




STA 


BLOKNML 




C2 9F 


E6 


B3 




229 




INO 


TINDX+1 


BUMP HI ADDR OF INDEX BUFFER TO ACCESS HIGH ADDR 


C2A1 


AA 






230 




TAX 




WAS LOW ADDRESS A ZERO? 


C2A2 


DO 


09 


02AD 


231 




BNE 


DATITl 


IF NOT, NO NEED TO CHECK VALIDITH OF HI BYTE 


C2A4 


Dl 


B2 




232 




OMP 


(TINDX) , Y 




C2A6 


DO 


05 


02AD 


233 




BNE 


DATITl 


BOTH BYTES CAN'T BE ZERO. 


C2A8 


A9 


00 




234 




LDA 


#ALOERR 




C2AA 


20 


00 


00 


235 




JSR 


SYSDEATH 




C2AD 


Bl 


B2 




236 


DATITl 


LDA 


(TINDX) , Y 


GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 


C2AF 


85 


07 




237 




STA 


BLOKNMH 




C2B1 


C6 


B3 




238 




DEO 


TINDX+1 


(RESET BUFFER ADDRESS) 


C2B3 


A9 


12 




239 




LDA 


#GBUF/256 




C2B5 


85 


03 




240 




STA 


DBUFPH 


RESET TO ADDR TO GBUF JUST TO BE SURE. 


C2B7 


20 


BD 


02 


241 




JSR 


REPEATIO 


WRITE DATA BLOCK 


C2BA 


90 


D6 


0292 


242 




BOO 


DATINIT 




C2BC 


60 






243 


DATDONE 


RTS 




RETURN STATUS (CARRY SET IF ERROR) 


C2BD 








244 










C2BD 






02BD 


245 


REPEATIO 


EQU 






C2BD 


A9 


09 




245 




LDA 


#RPTOMD 




C2BF 


85 


OO 




247 




STA 


DHPOMD 




C2C1 


4C 


3A 


OF 


248 




JMP 


RPEATIOl 




C2C4 








249 


* 








C2C4 


AO 


00 




250 


ZERGBUF 


LDY 


#0 


ZERO OUT THE GENERAL PURPOSE BUFFER 


C2C6 


98 






251 




TYA 






C2C7 


99 


00 


12 


252 


ZGBUF 


STA 


GBUF, Y 


WIPE OUT BOTH PAGES 


C2CA 


99 


00 


13 


253 




STA 


GBUF+$100, Y 


WITH SAME LOOP. 


C2CD 


08 






254 




INY 






C2CE 


DO 


F7 


0207 


255 




BNE 


ZGBUF 




C2D0 


60 






256 




RTS 






C2D1 








257 










C2D1 








258 










C2D1 


AO 


00 




259 


ZTMPIDX 


LDY 


#0 


ZERO OUT TEMPORARY INDEX BLOCK 


C2D3 


98 






260 




TYA 
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6 CREATE 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



C2D4:91 B2 
C2D6:C8 

C2D7:D0 FB 
C2D9:E6 B3 
C2DB:91 B2 
C2DD:C8 
C2DE:D0 FB 
C2E0:C6 B3 
C2E2 : 60 



C2D4 



261 ZINDXl 
262 

263 
264 

2 65 ZINDX2 

266 

267 

268 

269 CRERR2 



STA 
INY 
BNE 
INC 
STA 
INY 
BNE 
DEC 
RTS 



(TINDX) , Y 

ZINDXl 
TINDX+1 
(TINDX) , Y 

ZINDX2 
TINDX+1 



; THIS HAS TO BE DONE A 

; TIME SINCE IT'S INDIRECT. 



RESTORE PROPER ADDRESS 
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06 CREATE SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



C2E3 


C9 


OD 




271 


NOTREE 


CMP 


#DIRTYP 


IS A DIRECTORY TO BE CREATED? 


C2E5 


FO 


03 


C2EA 


272 




BEQ 


ISDIR 


YES, DO SO . . . 


C2E7 


4C 


61 


04 


273 




JMP 


NOTDIR 


NO, TRY NEXT TYPE. 


C2EA 








274 










C2EA 


A5 


AD 




275 


ISDIR 


LDA 


C.EOFHH 


CAN'T CREATE A DIRECTORY LARGER THAN 


C2EC 


05 


AC 




276 




ORA 


C.EOFHL 


127 BLOCKS (THAT'S HUGE!) 


C2EE 


FO 


04 


02F4 


277 




BEQ 


ISOIRl 


BRANCH IF WITHIN LIMITS, OTHEWISE 


C2F0 


A9 


00 




278 


DIROVR 


LDA 


#OVRERR 


REQUESTED DIRECTORY SIZE CAN'T BE 


C2F2 


38 






279 




SEC 




CREATED. SET CARRY TO INDICATE ERROR. 


C2F3 


50 






280 




RTS 






C2F4 








281 


* 








C2F4 


A5 


AB 




282 


ISDIRl 


LDA 


C.EOFLH 


CALCULATE HOW MANY BLOCKS WILL 


C2F6 


4A 






283 




LSR 


A 


BE NEEDED FOR THIS NEW DIRECTORY. 


C2F7 


A8 






284 




TAY 




(SAVE INITIAL COUNT IN Y) 


C2F8 


A5 


AA 




285 




LDA 


C . EOFLL 


IF REQUESTED EOF IS NOT AN EVEN BLOCK 


C2FA 


DO 


02 


02FE 


286 




BNE 


DADDl 


SIZE, THEN ROUND UP. 


C2FC 


90 


01 


02FF 


287 




BOO 


TSDIRSZ 


BRANCH IF ROUNING UNNECESSARY. 


C2FE 


C8 






288 


DADDl 


INY 




ADD ONE TO BLOCK COUNT. 


C2FF 


98 






289 


TSDIRSZ 


TYA 




TEST TO BE SURE SIZE IS GREATER THAN ZERO 


C300 


FO 


FC 


02FE 


290 




BEQ 


OAODl 


IF ZERO THEN SIZE=1 


C302 


8D 


CD 


DB 


291 




STA 


DFIL+D. USAGE 


SAVE NUMBER OF BLOCKS TO BE USED. 


C305 


85 


04 




2 92 




STA 


REQL 




C307 


OA 






293 




ASL 


A 


NOW SAVE ADJUSTED END OF FILE 


C308 


8D 


DO 


DB 


294 




STA 


DFIL+D. EOF+1 




C30B 


A9 


00 




2 95 




LDA 


#0 




C30D 


80 


CF 


DB 


296 




STA 


OFIL+D.EOF 




C310 


80 


01 


DB 


297 




STA 


DFIL+D. EOF+2 




C313 


85 


05 




298 




STA 


REQH 


REQUESTED NUMBER OF BLOCKS NEVER EXCEEDS 128. 


C315 


20 


4C 


09 


299 




JSR 


TSFRBLK 


TEST TO BE SURE ENOUGH DISK SPACE IS FREE. 


C318 


BO 


D6 


02FO 


300 




BOS 


DIROVR 


BRANCH IF REQUEST TOO LARGE. 


C31A 


20 


C4 


02 


301 




JSR 


ZERGBUF 


CLEAR CRAP FROM GBUF . 


C31D 


20 


90 


OA 


302 




JSR 


ALCIBLK 


GET ADDRESS OF FIRST (HEADER) BLOCK. 


C320 


BO 


CO 


02E2 


303 




BOS 


CRERR2 




C322 


80 


CB 


DB 


304 




STA 


DFIL+D. FRST 




C325 


85 


10 




305 




STA 


TLINK 




C327 


8C 


CO 


DB 


306 




STY 


OFIL+D.FRST+1 




C32A 


84 


11 




307 




STY 


TLINK+1 


(TLINK IS FOR REVERSE LINICAGE.) 


C32C 


AD 


CF 


03 


308 




LDA 


SOSTMPL 


STORE SOS STAMP IN NEW DIRECTORY 


C32F 


8D 


00 


12 


309 




STA 


GBUF 




C332 


AD 


DO 


03 


310 




LDA 


SOSTMPH 




C335 


80 


01 


12 


311 




STA 


GBUF+1 




C338 


AO 


04 




312 




LDY 


#4 


MOVE OTHER VARIOUS THINGS 


C33A 


DO 


06 


0342 


313 




BNE 


DRSTUFl 


BRANCH ALWAYS 


C33C 


B9 


B7 


DB 


314 


DRSTUF 


LDA 


D.ENTBLK, Y 


MOVE OWNING ENTRY'S 


C33F 


99 


27 


12 


315 




STA 


GBUF+HRBLK+ 4 , Y 


BLOCK ADDRESSES AND NUMBER TO NEW HEADER. 


C342 


B9 


Dl 


03 


316 


DRSTUFl 


LDA 


SOSVER, Y 


MOVE VERSION, OOMPATABLITY, 


C345 


99 


20 


12 


317 




STA 


GBUF+HVER+4, Y 


ATTRIBUTES, AND ENTRY SIZE 


C348 


88 






318 




OEY 






C349 


10 


Fl 


033C 


319 




BPL 


DRSTUF 




C34B 


AD 


A7 


DB 


320 




LDA 


H.ENTLN 


OVER WRITE LAST BYTE MOVED IN ABOVE LOOP WITH 


C34E 


80 


2A 


12 


321 




STA 


GBUF+HRELN+4 


THE PARENT DIRECTORY ENTRY LENGTH. 


C351 


AO 


BA 


DB 


322 




LDA 


DFIL+D. STOR 


SET HEADER TYPE AND NAME 


C354 


A8 






323 




TAY 






C355 


09 


EG 




324 




ORA 


#HEDTYP*16 




C357 


80 


04 


12 


325 




STA 


GBUF+HNLEN+4 




C35A 


98 






326 




TYA 




(AND WHILE WE'RE AT IT SET DIRECTORY TYPE) 
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6 CREATE 




SOS 


1 . 1 BLOOK 


FILE 


MANAGER 


AUGUST-2006 PAGE 41 


C35B 


09 


DO 




327 




ORA 


#DIRTYP*16 




C35D 


BD 


BA 


DB 


328 




STA 


DFIL+D . STOR 




C360 








329 










C360 


B9 


BA 


DB 


330 


MVHNAME 


LDA 


DFIL+D . STOR, Y 




C363 


99 


04 


12 


331 




STA 


GBUF+HNLEN+4 , Y 


; MOVE HEADER NAME 


C366 


88 






332 




DEY 






C367 


DO 


F7 


O360 


333 




BNE 


MVHNAME 




C369 


A2 


03 




334 




LDX 


#3 


; GET CURRENT DATE . 


C36B 


B5 


38 




335 


ORETIME 


LDA 


DATELO, X 




C36D 


9D 


IC 


12 


336 




STA 


GBUF+HORDT+4, X 


; SAVE AS HEADER CREATION TIME 


C370 


9D 


D2 


DB 


337 




STA 


DFIL+D . OREDT, X 


; AND DATE OF FILE CREATE. 


C373 


CA 






338 




DEX 






C374 


10 


F5 


C36B 


339 




BPL 


ORETIME 




C376 


A9 


76 




340 




LDA 


#$76 




C378 


8D 


14 


12 


341 




STA 


GBUF+HPENAB+4 


; DUMMY PASSWORD 


C37B 


C6 


04 




342 




DEO 


REQL 


; TEST FOR ONE BLOCK DIRECTORY 


C37D 


FO 


2D 


03 AO 


343 




BEQ 


DIROREND 


; IT IS, FINISH UP. 


C37F 


20 


B4 


03 


344 




JSR 


DIRWRT 


; GO WRITE FIRST DIRECTORY BLOOK AND ALLOCATE 


C382 


BO 


4A 


030E 


345 




BOS 


DERROR 


; PASS BACK ERROR. 


C384 


20 


04 


02 


346 




JSR 


ZERGBUF 


; CLEAN OUT GENERAL BUFFER AGAIN. 


C387 


A5 


10 




347 


ORNXTDIR 


LDA 


TLINK 


; MOVE LAST BLOCK ADDRESS 


CBS 9 


8D 


00 


12 


348 




STA 


GBUF 


; AS BACKWARD LINK. 


C38C 


A5 


11 




349 




LDA 


TLINK+1 




C38E 


8D 


01 


12 


350 




STA 


GBUF+1 




C391 


A5 


12 




351 




LDA 


FLINK 


; MAKE FORWARD LINK INTO CURRENT ADDRESS 


C393 


85 


10 




352 




STA 


TLINK 




C395 


A5 


13 




353 




LDA 


FLINK+1 




C397 


85 


11 




354 




STA 


TLINK+1 




C399 


C5 


04 




355 




DEC 


REQL 


; IS THIS THE LAST BLOOK? 


C39B 


FO 


OF 


C3AC 


356 




BEQ 


DIROREND 




C39D 


20 


B4 


C3 


357 




JSR 


DIRWRT 


; WRITE THIS BLOOK AND ALLOCATE NEXT. 


C3A0 


BO 


20 


030E 


358 




BOS 


DERROR 




C3A2 


A9 


00 




359 




LDA 


#0 


; ZERO OUT FORWARD LINK 


C3A4 


BD 


02 


12 


360 




STA 


GBUF+2 




C3A7 


BD 


03 


12 


361 




STA 


GBUF+3 




C3AA 


FO 


DB 


0387 


362 




BEQ 


ORNXTDIR 


; BRANCH ALWAYS 


C3AC 








363 


* 








C3AC 


20 


03 


03 


364 


DIROREND 


JSR 


D I RWRT 1 


; WRITE LAST BLOOK OF THIS DIRECTORY 


C3AF 


BO 


ID 


030E 


365 




BOS 


DERROR 




C3B1 


40 


4F 


02 


366 




JMP 


ENDOREO 


; FINISH UP WRITING OWNER DIRECTORY STUFF. 


C3B4 








367 










C3B4 


20 


90 


OA 


36B 


DIRWRT 


JSR 


ALOIBLK 


; GET ADDRESS OF NEXT BLOCK. 


C3B7 


BO 


15 


030E 


369 




BOS 


DERROR 




C3B9 


BD 


02 


12 


370 




STA 


GBUF+2 




C3BC 


BC 


03 


12 


371 




STY 


GBUF+3 


; SAVE LINK ADDRESS 


C3BF 


85 


12 




372 




STA 


FLINK 




C3C1 


84 


13 




373 




STY 


FLINK+1 




C3C3 


A5 


10 




374 


DIRWRTl 


LDA 


TLINK 


; GET ADDRESS OF CURRENT BLOOK 


C3C5 


85 


C6 




375 




STA 


BLOKNML 




C3C7 


A5 


11 




376 




LDA 


TLINK+1 




C3C9 


85 


07 




377 




STA 


BLOKNMH 




C3CB 


40 


54 


00 


378 




JMP 


WRTGBUF 


; GO WRITE IT OUT 
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6 CREATE 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 PAGE 42 


C3CE 








380 


* 








C3CE 






C3CE 


381 


ERRGBUF 


EQU 


^, 




C3CE 


60 






382 


DERROR 


RTS 






C3CF 








383 










C3CF 








384 










C3CF 


00 






385 


SOSTMPL 


DFB 


$0 


; THE FOLLOWING TWO BYTES ARE THE ' SOS STAMP ' 


C3D0 


00 






386 


SOSTMPH 


DFB 


$0 




C3D1 








387 


* 








C3D1 


00 


00 


00 27 


388 


SOSVER 


DFB 


0, 0, 0, $27, 13 




C3D6 








389 


* 








C3D6 








390 


* 








C3D6 






C3D6 


391 


RNDTAB 


EQU 






C3D6 


A9 


12 




392 


ENTCALC 


LDA 


#GBUF/256 


; SET HIGH ADDRESS OF DIRECTORY ENTRY INDEX POINTER 


C3D8 


85 


B5 




393 




STA 


DRBUFPH 




C3DA 


A9 


04 




394 




LDA 


#4 


; CALCULATE ADDRESS OF ENTRY BASED 


C3DC 


AE 


B9 


DB 


395 




LDX 


D . ENTNUM 


; ON THE ENTRY NUMBER 


C3DF 


18 






396 


ECALCO 


CLC 






C3E0 


CA 






397 


ECALCl 


DEX 




; ADDR=GBUF+ { (ENTNUM-1) *ENTLEN) 


C3E1 


FO 


09 


C3EC 


398 




BEQ 


ECALC2 




C3E3 


6D 


A7 


DB 


399 




ADC 


H . ENTLN 




C3E6 


90 


F8 


C3E0 


400 




BCC 


ECALCl 




C3E8 


E6 


B5 




401 




INC 


DRBUFPH 


; BUMP HI ADDRESS 


C3EA 


BO 


F3 


C3DF 


402 




BCS 


ECALCO 


; BRANCH ALWAYS. 


C3EC 








403 










C3EC 


85 


B4 




404 


ECALC2 


STA 


DRBUFPL 


; SAVE NEWLY CALCULATED LOW ADDRESS 


C3EE 


60 






405 




RTS 
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6 CREATE 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


C3EF 


50 






407 


DERR0R2 


RTS 




C3F0 








408 


* 






C3F0 


A5 


38 




409 


DREVISE 


LDA 


DATELO 


C3F2 


FO 


OA 


C3FE 


410 




BEQ 


DREVISEl 


C3F4 


A2 


03 




411 




LDX 


#3 


C3F6 


B5 


38 




412 


MODTIME 


LDA 


DATELO, X 


C3F8 


9D 


DB 


DB 


413 




STA 


DFIL+D .MODDT, X 


C3FB 


CA 






414 




DEX 




C3FC 


10 


F8 


C3F6 


415 




BPL 


MODTIME 


C3FE 








416 


* 






C3FE 


AD 


D8 


DB 


417 


DREVISE 1 


LDA 


DFIL+D .ATTR 


C401 


CD 


57 


D9 


418 




ORA 


BKBITFLG 


C404 


8D 


D8 


DB 


419 




STA 


DFIL+D .ATTR 


C407 


AD 


B4 


DB 


420 




LDA 


D . DEV 


C40A 


85 


35 




421 




STA 


DEVNUM 


C40C 


AD 


B7 


DB 


422 




LDA 


D . ENTBLK 


C40F 


85 


C6 




423 




STA 


BLOKNML 


C411 


AD 


B8 


DB 


424 




LDA 


D.ENTBLK+l 


C414 


85 


C7 




425 




STA 


BLOKNMH 


C415 


20 


58 


CC 


426 




JSR 


RDGBUF 


C419 


BO 


B3 


C3CE 


427 




BCS 


ERRGBUF 


C41B 


20 


D6 


C3 


428 




JSR 


ENTCALC 


C41E 


AC 


A7 


DB 


429 




LDY 


H . ENTLN 


C421 


88 






430 




DEY 




C422 


B9 


BA 


DB 


431 


MVDENT 


LDA 


DFIL+D . STOR, Y 


C425 


91 


B4 




432 




STA 


(DRBUFPL) , Y 


C427 


88 






433 




DEY 




C428 


10 


F8 


C422 


434 




BPL 


MVDENT 


C42A 


AD 


B5 


DB 


435 




LDA 


D . HEAD 


C42D 


C5 


C6 




436 




CMP 


BLOKNML 


C42F 


DO 


07 


C438 


437 




BNE 


SVENTDIR 


C431 


AD 


B6 


DB 


438 




LDA 


D . HEAD+1 


C434 


C5 


C7 




439 




CMP 


BLOKNMH 


C436 


FO 


14 


C44C 


440 




BEQ 


UPHEAD 


C438 


20 


54 


CC 


441 


SVENTDIR 


JSR 


WRTGBUF 


C43B 


BO 


B2 


C3EF 


442 




BCS 


DERR0R2 


C43D 


AD 


B5 


DB 


443 




LDA 


D . HEAD 


C440 


85 


C6 




444 




STA 


BLOKNML 


C442 


AD 


B6 


DB 


445 




LDA 


D . HEAD+1 


C445 


85 


C7 




446 




STA 


BLOKNMH 


C447 


20 


58 


CC 


447 




JSR 


RDGBUF 


C44A 


BO 


A3 


C3EF 


448 




BCS 


DERR0R2 


C44C 


AO 


01 




449 


UPHEAD 


LDY 


#1 


C44E 


B9 


A9 


DB 


450 


UPHEDl 


LDA 


H.FCNT, Y 


C451 


99 


25 


12 


451 




STA 


GBUF+HCENT+4, Y 


C454 


88 






452 




DEY 




C455 


10 


F7 


C44E 


453 




BPL 


UPHEDl 


C457 


AD 


A6 


DB 


454 




LDA 


H.ATTR 


C45A 


8D 


22 


12 


455 




STA 


GBUF+HATTR+4 


C45D 


20 


54 


CC 


456 




JSR 


WRTGBUF 


C460 


60 






457 


DERRORl 


RTS 




C461 








458 


* 







AUGUST-2006 



IF NO CLOCK, 

THEN DON'T TOUCH MOD 1/0 

MOVE LAST MODIFICATION DATE/TIME TO ENTRY BEING UPDATED 



MARK ENTRY AS BACKUPABLE 

BIT 5 = BACKUP NEEDED BIT 

GET DEVICE NUMBER OF DIRECTORY 
TO BE REVISED. 

AND ADDRESS OF DIRECTORY BLOCK 
THAT CONTAINS THE ENTRY. 



READ BLOCK INTO GENERAL PURPOSE BUFFER. 



FIX UP POINTER TO ENTRY LOCATION WITHIN GBUF . 
NOW MOVE 'D.' STUFF TO DIRECTORY. 



IS THE ENTRY BLOCK THE SAME AS THE 
ENTRY'S HEADER BLOCK? 
NO, SAVE ENTRY BLOCK 
MAYBE, TEST HIGH ADDRESSES 

BRANCH IF THEY ARE THE SAME BLOCK. 
WRITE UPDATED DIRECTORY BLOCK 
RETURN ANY ERROR. 
GET ADDRESS OF HEADER BLOCK 



; READ IN HEADER BLOCK FOR MODIFICATION 

; UPDATE CURRENT NUMBER OF FILES IN THIS DIRECTORY 

; (CURRENT ENTRY COUNT) 

; ALSO UPDATE HEADER'S ATTRIBUTES. 

; GO WRITE UPDATED HEADER 

; IMPLICITLY RETURN ANY ERRORS 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 358 of 456 



6 CREATE 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


C461 ; 








460 


* 






C461 ; 


:A9 


00 




461 


NOTDIR 


LDA 


#TYPERR 


C463 : 


: 38 






4 62 


TSTERR 


SEC 




C4 64 : 


: 60 






4 63 




RTS 




C465; 








4 64 








C465; 








4 65 








C465 ; 


; AD 


00 


12 


466 


TSTSOS 


LDA 


GBUF 


C468 ; 


; CD 


CF 


C3 


467 




CMP 


SOSTMPL 


C46B; 


:D0 


F5 


C463 


468 




BNE 


TSTERR 


C46D ; 


; AD 


01 


12 


469 




LDA 


GBUF+1 


C470 ; 


; CD 


DO 


C3 


470 




CMP 


SOSTMPH 


C473 : 


:D0 


EE 


C463 


471 




BNE 


TSTERR 


C475: 


:AD 


04 


12 


472 




LDA 


GBUF+4 


C478: 


:29 


EG 




473 




AND 


#$EG 


C47A: 


:C9 


EG 




474 




CMP 


#HEDTYP*16 


C47C; 


;D0 


E5 


C463 


475 




BNE 


TSTERR 


C47E; 


:18 






475 




CLC 




C47F; 


: 60 






477 




RTS 




C480; 








478 


* 






C480; 








479 




CHN 


FNDFIL 



AUGUST-2G06 PAGE 44 

; NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 

; DO NOTHING. 

; TEST SOS STAMP 

; TEST FOR HEADER 

; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 

; INDICATE NO ERROR 
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C480 








2 


* 








C480 








3 


* 








C480 


20 


93 


C4 


4 


FINDFILE 


JSR 


LOOKFILE 


; SEE IF FILE EXISTS 


C483 


BO 


OD 


C492 


5 




BOS 


NOFIND 


; BRANCH IF AN ERROR WAS ENCOUNTERED 


C485 


AC 


A7 


DB 


6 


MOVENTRY 


LDY 


H . ENTLN 


; MOVE ENTIRE ENTRY INFO TO A SAFE AREA 


C488 


Bl 


B4 




7 


MOVENTl 


LDA 


(DRBUFPL) , Y 




C48A 


99 


BA 


DB 


8 




STA 


DFIL+D.STOR, Y 




C48D 


88 






9 




DEY 






C48E 


10 


F8 


C488 


10 




BPL 


MOVENTl 




C490 


A9 


00 




11 




LDA 


#0 


; TO INDICATE ALL IS WELL 


C492 


60 






12 


NOFIND 


RTS 




; RETURN CONDITION CODES. 
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C493 








14 


* 








C493 








15 


* 








C493 


20 


92 


C6 


16 


LOOKFILE 


JSR 


PREPROOT 


FIND VOLUME AND SET UP OTHER BORING STUFF 


C4 96 


BO 


57 


C4EF 


17 




BCS 


FNDERR 


PASS BACK ANY ERROR ENCOUNTERED 


C498 


AO 


00 




18 




LDY 


#0 


TEST TO SEE IF ONLY ROOT WAS SPECIFIED. 


C4 9A 


Bl 


BO 




19 




LDA 


(PATHNML) , Y 




C49C 


DO 


2F 


C4CD 


20 




BNE 


LOOKFILO 


BRANCH IF MORE THAN ROOT . 


C49E 


A9 


12 




21 




LDA 


#GBUF/256 


OTHERWISE, REPORT A BADPATH ERROR 


C4A0 


85 


B5 




22 




STA 


DRBUFPH 


(BUT FIRST CREATE A PHANTOM ENTRY FOR OPEN) 


C4A2 


A9 


04 




23 




LDA 


#4 




C4A4 


85 


B4 




24 




STA 


DRBUFPL 




C4A6 


AO 


IF 




25 




LDY 


#D.AUXID 


FIRST MOVE IN ID, AND DATE STUFF. 


C4A8 


Bl 


B4 




26 


PHANTMl 


LDA 


(DRBUFPL) , Y 




C4AA 


99 


BA 


DB 


27 




STA 


DFIL, Y 




C4AD 


88 






28 




DEY 






C4AE 


CO 


17 




29 




CPY 


#D.CREDT-1 




C4B0 


DO 


F6 


C4A8 


30 




BNE 


PHANTMl 




C4B2 


B9 


B5 


C4 


31 


PHANTM2 


LDA 


ROOTSTUF -D . FILID, Y 


C4B5 


99 


BA 


DB 


32 




STA 


DFIL, Y 




C4B8 


88 






33 




DEY 






C4B9 


CO 


OF 




34 




CPY 


#D.FILID-1 




C4BB 


DO 


F5 


C4B2 


35 




BNE 


PHANTM2 




C4BD 


A9 


DO 




36 




LDA 


#DIRTYP*$10 


FAKE DIRECTORY FILE 


C4BF 


8D 


BA 


DB 


37 




STA 


DFIL+D . STOR 




C4C2 


A9 


00 




38 




LDA 


#BADPATH 


(CARRY IS SET) 


C4C4 


60 






39 




RTS 






C4C5 








40 


* 








C4C5 


00 


02 


00 04 


41 


ROOTSTUF 


DFB 


0,2, 0,4 




C4C9 


00 


00 


08 00 


42 




DFB 


0, 0, 8, 




C4CD 








43 


* 








C4CD 


A9 


00 




44 


LOOKFILO 


LDA 


#0 


RESET FREE ENTRY INDICATOR 


C4CF 


85 


oc 




45 




STA 


NOFREE 




C4D1 


38 






46 




SEC 




INDICATE THAT THE DIRECTORY TO BE SEARCHED HAS 


BLOCK 
















C4D2 


A9 


00 




47 


LOOKFILl 


LDA 


#0 


RESET ENTRY COUNTER 


C4D4 


85 


08 




48 




STA 


TOTENT 




C4D6 


20 


4D 


C6 


49 




JSR 


LOOKNAM 


LOOK FOR NAME POINTED TO BY 'PATHNML' 


C4D9 


90 


16 


C4F1 


50 




BCC 


NAMFOJMP 


BRANCH IF NAME WAS FOUND. 


C4DB 


A5 


09 




51 




LDA 


ENTCNTL 


HAVE WE LOOKED AT ALL OF THE 


C4DD 


E5 


08 




52 




SBC 


TOTENT 


ENTRIES IN THIS DIRECTORY? 


C4DF 


90 


08 


C4E9 


53 




BCC 


DCRENTH 


MAYBE, CHECK HI COUNT. 


C4E1 


DO 


11 


C4F4 


54 




BNE 


L00KFIL2 


NO, READ NEXT DIRECTORY BLOCK 


C4E3 


C5 


OA 




55 




CMP 


ENTCNTH 


HAS THE LAST ENTRY BEEN LOOKED AT (ACC=0) 


C4E5 


FO 


35 


C51C 


56 




BEQ 


ERRFNF 


YES, GIVE 'FILE NOT FOUND' ERROR. 


C4E7 


DO 


OB 


C4F4 


57 




BNE 


L00KFIL2 


BRANCH ALWAYS. 


C4E9 


C6 


OA 




58 


DCRENTH 


DEC 


ENTCNTH 


SHOULD BE AT LEAST 1 


C4EB 


10 


07 


C4F4 


59 




BPL 


L00KFIL2 


(THIS SHOULD BE BRANCH ALWAYS...) 


C4ED 


A9 


00 




60 


ERRDIR 


LDA 


#DIRERR 


REPORT DIRECTORY MESSED UP . 


C4EF 


38 






61 


FNDERR 


SEC 




INDICATE ERROR HAS BEEN ENCOUNTERED. 


C4F0 


60 






62 




RTS 






C4F1 


4C 


Dl 


C5 


63 


NAMFOJMP 


JMP 


NAMFOUND 


AVOID BRANCH OUT OF RANGE 


C4F4 








64 


* 
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C4F4 


85 


09 




66 


L00KFIL2 


STA 


ENTONTL 


KEEP RUNNING COUNT 


C4F6 


A9 


12 




67 




LDA 


#GBUF/256 


RESET INDIRECT POINTER 


C4F8 


85 


B5 




68 




STA 


DRBUFPH 




C4FA 


AD 


02 


12 


69 




LDA 


GBUF+2 


GET LINK TO NEXT DIRECTORY BLOCK 


C4FD 


DO 


05 


C504 


70 




BNE 


NXTDIRO 


(IF THERE IS ONE) 


C4FF 


CD 


03 


12 


71 




CMP 


GBUF+3 


ARE BOTH ZERO, I.E. NO LINK? 


C502 


FO 


E9 


C4ED 


72 




BEQ 


ERRDIR 


IF SO, THEN NOT ALL ENTRIES WERE ACCOUNTED 


C504 


85 


C6 




73 


NXTDIRO 


STA 


BLOKNML 




C505 


AD 


03 


12 


74 




LDA 


GBUF+3 




C5D9 


85 


C7 




75 




STA 


BLOKNMH 




C50B 


20 


58 


CC 


76 




JSR 


RDGBUF 


GO READ THE NEXT LINKED DIRECTORY IN. 


C50E 


90 


C2 


C4D2 


77 




BOC 


LOOKFILl 


BRANCH IF NO ERROR. 


C510 


60 






78 




RTS 




RETURN ERROR (IN ACCUMULATOR) . 


C511 


4C 


BO 


05 


79 


TELFREEX 


JMP 


TELFREE 




C514 








80 


* 








C514 


4C 


CO 


05 


81 


FNFOX 


JMP 


FNFO 


AVOID BRANCH OUT OF RANGE 


C517 








82 


* 








C517 






0001 


83 


OFLAG 


DS 


1 


AM I CREATING? 


C518 






0002 


84 


TTSAVE 


DS 


2 


CURRENT BLOCK ADDR 


C51A 






0002 


85 


BLOKSAVE 


DS 


2 


PARENT DIR ADDR 


C51C 








86 










C51C 


A5 


OC 




87 


ERRFNF 


LDA 


NOFREE 


WAS ANY FREE ENTRY FOUND? 


C51E 


DO 


F4 


0514 


88 




BNE 


FNFOX 




C520 


AD 


02 


12 


89 




LDA 


GBUF+2 


TEST LINK 


C523 


DO 


EC 


0511 


90 




BNE 


TELFREEX 




C525 


CD 


03 


12 


91 




CMP 


GBUF+3 


IF BOTH ARE ZERO, THEN GIVE UP 


C528 


DO 


E7 


0511 


92 




BNE 


TELFREEX 


BRANCH IF NOT LAST DIR BLOCK 


C52A 


AD 


17 


05 


93 




LDA 


OFLAG 


DOING A CREATE? 


C52D 


FO 


E5 


0514 


94 




BEQ 


FNFOX 


NO, SIMPLY REPORT NOT FOUND 


C52F 








95 


* 








C52F 








96 


* EXTEND 


THE DIRECTORY BY A BLOCK 




C52F 








97 


* 








C52F 


AD 


lA 


05 


98 




LDA 


BLOKSAVE 


BUT NOT 


C532 


OD 


IB 


05 


99 




ORA 


BLOKSAVE+1 


IF A ROOT DIRECTORY! 


C535 


FO 


DD 


0514 


100 




BEQ 


FNFOX 


FORU BLOCKS HARD CODED 


C537 


AD 


76 


OC 


101 




LDA 


TTLINK 


FETCH CURRENT DIRECTORY 


C53A 


85 


10 




102 




STA 


TLINK 


ADDR (GBUF) 


C53C 


AD 


77 


CC 


103 




LDA 


TTLINK+1 


AND ALLLOCATE A NEW 


C53F 


85 


11 




104 




STA 


TLINK+1 


BY LINKING TO CURRENT 


C541 


20 


B4 


C3 


105 




JSR 


DIRWRT 




C544 


BO 


7A 


C5C0 


106 




BOS 


FNFO 


RATS! NO SPACE SAY "DIRFULL" 


C545 








107 


* 








C545 








108 


* SAVE CURRENT 


BLOCK ADDR 




C546 








109 


* 








C546 


AD 


76 


OC 


110 




LDA 


TTLINK 




C549 


8D 


18 


05 


111 




STA 


TTSAVE 




C54C 


AD 


77 


00 


112 




LDA 


TTLINK+1 




C54F 


8D 


19 


05 


113 




STA 


TTSAVE+1 




C552 








114 










C552 








115 


* FETCH 


DESCENDENT 




C552 








116 


* 








C552 


AD 


02 


12 


117 




LDA 


GBUF+2 




C555 


85 


C6 




118 




STA 


BLOKNML 




C557 


AD 


03 


12 


119 




LDA 


GBUF+3 




C55A 


85 


C7 




120 




STA 


BLOKNMH 




C55C 


20 


C4 


02 


121 




JSR 


ZERGBUF 


INIT THE NEW DIR BLOCK 
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C55F ; 








122 


* 






C55F ; 








123 


* AND INSERT BAOK POINTER 




C55F : 








124 


* TO "OURRENT BLOOK" 




C55F : 








125 








C55F ; 


: AD 


18 


C5 


126 


LDA 


TTSAVE 




C562 ; 


: 8D 


00 


12 


127 


STA 


GBUF 




C565 ; 


: AD 


19 


05 


128 


LDA 


TTSAVE+1 




C568 ; 


; 80 


01 


12 


129 


STA 


GBUF+1 




C56B ; 


;20 


54 


00 


130 


JSR 


WRTGBUF 




C56E ; 


;B0 


5D 


050D 


131 


BOS 


ERTS 




C570 ; 








132 


* 






C570 : 








133 


* UPDATE DIR'S 


HEADER IN PARENT 




C570 : 








134 








C570 : 


: AD 


lA 


05 


135 


LDA 


BLOKSAVE 




C573 : 


: 85 


06 




136 


STA 


BLOKNML 


; PREPARE TO READ PARENT 


C575 ; 


: AE 


IB 


05 


137 


LDX 


BLOKSAVE+1 




C578 ; 


; 86 


07 




138 


STX 


BLOKNMH 




C57A; 


;20 


58 


00 


139 


JSR 


RDGBUF 


; FETOH PARENT 


C57D; 


;A0 


13 




140 


LDY 


#D . USAGE 


; BUMP BLOOKS USED BY HEADER 


C57F; 


;B1 


AD 




141 


LDA 


(DEBUPTR) , Y 




C581 ; 


; 38 






142 


SEO 






C582 ; 


: 69 


00 




143 


ADO 


#0 


; BY JUST ONE BLOOK 


C584 : 


: 91 


AD 




144 


STA 


(DEBUPTR) , Y 




C586 ; 


: 08 






145 


INY 






C587 : 


:B1 


AD 




146 


LDA 


(DEBUPTR) , Y 


; TWO BYTE BLOOKS USED 


C589; 


; 69 


00 




147 


ADO 


#0 




C58B ; 


; 91 


AD 




148 


STA 


(DEBUPTR) , Y 




C58D : 


: AO 


16 




149 


LDY 


#D.E0F+1 


; INCREASE EOF BY $200 


C58F : 


: Bl 


AD 




150 


LDA 


(DEBUPTR) , Y 




C591 : 


: 18 






151 


OLO 






C592 : 


: 69 


02 




152 


ADO 


#2 




C594 ; 


; 91 


AD 




153 


STA 


(DEBUPTR) , Y 




C596; 


;C8 






154 


INY 






C597 ; 


;B1 


AD 




155 


LDA 


(DEBUPTR) , Y 




C599 ; 


; 69 


00 




156 


ADO 


#0 




C59B ; 


; 91 


AD 




157 


STA 


(DEBUPTR) , Y 




C59D: 


:20 


54 


00 


158 


JSR 


WRTGBUF 


; REWRITE PARENT DIR BLOOK 


C5A0 : 


: AD 


19 


05 


159 


LDA 


TTSAVE+1 


; REFETOH OURRENT DIR BLOOK 


C5A3 : 


: 85 


07 




160 


STA 


BLOKNMH 




C5A5 : 


: AD 


18 


05 


161 


LDA 


TTSAVE 




C5A8 ; 


; 85 


06 




162 


STA 


BLOKNML 




C5AA; 


; 20 


58 


00 


163 


JSR 


RDGBUF 


; BAOK FROM THE SHADOWS AGAIN 


C5AD ; 


; 40 


10 


05 


164 


JMP 


ERRFNF 


; VOILA! WE HAVE EXTENDED THE DIRECTORY! 


C5B0 ; 








165 


* 






C5B0 ; 


; 8D 


B7 


DB 


166 


TELFREE STA 


D.ENTBLK 




C5B3 : 


: AD 


03 


12 


167 


LDA 


GBUF+3 




C5B6 : 


: 8D 


B8 


DB 


168 


STA 


D.ENTBLK+1 


; ASSUME FIRST ENTRY OF NEXT BLOCK 


C5B9; 


:A9 


01 




169 


LDA 


#1 


IS FREE FOR USE. 


C5BB; 


:8D 


B9 


DB 


170 


STA 


D . ENTNUM 




C5BE; 


:85 


OO 




171 


STA 


NOFREE 


; MARK D. ENTNUM AS VALID (FOR CREATE) 


C5C0; 


:A0 


00 




172 


FNFO LDY 


#0 


; TEST FOR 'FILE NOT FOUND' VERSUS 'PATH 


C5C2 : 


:B1 


BO 




173 


LDA 


(PATHNML) , Y 




C5C4 : 


:A8 






174 


TAY 






C5C5: 


:C8 






175 


INY 






C5C6; 


;B1 


BO 




176 


LDA 


(PATHNML) , Y 


; IF NON-ZERO THEN 'PATH NOT FOUND' 


C5C8; 


:38 






177 


ERRPATHl SEO 




; IN EITHER CASE, INDICATE ERROR. 
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C5C9:F0 03 
C5CB:A9 00 
C5CD: 60 
C5CE:A9 00 
C5D0:60 



C5CE 



178 
179 

180 ERTS 

181 FNFl 
182 



FNFl 

#PATHNOTFND 



BEQ 
LDA 
RTS 

LDA #FNFERR 
RTS 



; REPORT NO SUCH PATH. 
; REPORT FILE NOT FOUND. 
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MANAGER AUGUST-2006 PAGE 50 


C5D1 








184 


* 








C5D1 


Bl 


BO 




185 


NAMFOUND 


LDA 


(PATHNML) , Y 


(Y=0) 


C5D3 


38 






186 




SEC 






C5D4 


65 


BO 




187 




ADC 


PATHNML 


TEST FOR LAST NAME IN PATH 


C5D6 


A8 






188 




TAY 




IF ZERO, THEN THAT WAS LAST NAME 


C5D7 


18 






189 




CLC 




TO INDICATE SUCCESS 


C5D8 


B9 


00 


10 


190 




LDA 


PATHBUF, Y 




C5DB 


FO 


59 


C636 


191 




BEQ 


FILFOUND 




C5DD 








192 


*NOW CHANGE THE 


PATHNAME POINTER TO POINT AT THE NEXT NAME IN THE PATH 


C5DD 


84 


BO 




193 




STY 


PATHNML 




C5DF 


A5 


B4 




194 




LDA 


DRBUFPL 


SAVE PARENTS 


C5E1 


85 


AD 




195 




STA 


DEBUPTR 


ENTRY POINTER 


C5E3 


A5 


B5 




196 




LDA 


DRBUFPH 




C5E5 


85 


AE 




197 




STA 


DEBUPTR+1 


IN CASE ENTRY ON PAGE 2 


C5E7 


A5 


C6 




198 




LDA 


BLOKNML 


ADDRESS (DIR EXTEND) 


C5E9 


8D 


lA 


C5 


199 




STA 


BLOKSAVE 




C5EC 


A5 


C7 




200 




LDA 


BLOKNMH 




C5EE 


8D 


IB 


C5 


201 




STA 


BLOKSAVE+1 




C5F1 


AO 


00 




202 




LDY 


#D.STOR 


BE SURE THIS IS A DIRECTORY ENTRY 


C5F3 


Bl 


B4 




203 




LDA 


(DRBUFPL) , Y 


HIGH NIBBLE WILL TELL 


C5F5 


29 


FO 




204 




AND 


#$F0 




C5F7 


C9 


DO 




205 




CMP 


#DIRTYP*16 


IS IT A SUB-DIRECTORY? 


C5F9 


DO 


CD 


C5C8 


206 




BNE 


ERRPATHl 


REPORT THE USER'S MISTAKE 


C5FB 


AO 


11 




207 




LDY 


#D . ERST 


GET ADDRESS OF FIRST SUB-DIRECTORY BLOCK 


C5FD 


Bl 


B4 




208 




LDA 


(DRBUFPL) , Y 




C5FF 


85 


C6 




209 




STA 


BLOKNML 


(NO CHECKING IS DONE HERE FOR A VALID 


C601 


C8 






210 




INY 




BLOCK NUMBER. . . ) 


C602 


8D 


B5 


DB 


211 




STA 


D . HEAD 


SAVE AS FILE'S HEADER BLOCK TOO. 


C605 


Bl 


B4 




212 




LDA 


(DRBUFPL) , Y 




C607 


85 


C7 




213 




STA 


BLOKNMH 




C609 


8D 


B6 


DB 


214 




STA 


D.HEAD+1 




C60C 


20 


58 


CC 


215 




JSR 


RDGBUF 


READ SUB-DIRECTORY INTO GBUF 


C60F 


BO 


11 


C622 


216 




BCS 


FNDERRl 


RETURN IMMEDIATELY ANY ERROR ENCOUNTERED. 


C511 


AD 


25 


12 


217 




LDA 


GBUF+HCENT+4 


GET THE NUMBER OF FILES 


C514 


85 


09 




218 




STA 


ENTCNTL 


CONTAINED IN THIS DIRECTORY 


C616 


AD 


26 


12 


219 




LDA 


GBUF+HCENT+5 




C619 


85 


OA 




220 




STA 


ENTCNTH 




C61B 


AD 


21 


12 


221 




LDA 


GBUF+HCMP+4 


TEST BACKWARD COMPATIBILITY 


C61E 


FO 


04 


C624 


222 




BEQ 


MOVHEAD 




C620 


A9 


00 




223 


ERRCOMP 


LDA 


#CPTERR 


TELL THEM THIS DIRECTORY IS NOT COMPATABLE 


C622 






C622 


224 


NONAME 


EQU 






C622 


38 






225 


FNDERRl 


SEC 






C623 


60 






226 




RTS 






C524 


20 


2A 


C6 


227 


MOVHEAD 


JSR 


MOVHEDO 


MOVE INFO ABOUT THIS DIRECTORY 


C627 


4C 


CD 


C4 


228 




JMP 


LOOKFILO 


DO NEXT LOCAL PATHNAME 


C62A 








229 










C62A 


A2 


OA 




230 


MOVHEDO 


LDX 


#$A 


MOVE INFO ABOUT THIS DIRECTORY 


C62C 


BD 


IC 


12 


231 


MOVHEDl 


LDA 


GBUF+HCRDT+4,X 




C62F 


9D 


AO 


DB 


232 




STA 


H.CREDT, X 




C632 


CA 






233 




DEX 






C633 


10 


F7 


C62C 


234 




BPL 


MOVHEDl 




C535 


60 






235 




RTS 






C636 








236 


* 
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C636 








238 


* 








C636 








239 


* 








C636 






C636 


240 


FILFOUND 


EQU 






C636 


AD 


A8 


DB 


241 


ENTADR 


LDA 


H . MAXENT 


FIGURE OUT WHICH IS ENTRY NUMBER THIS IS. 


C639 


38 






242 




SEC 






C63A 


E5 


OB 




243 




SBC 


CNTENT 


MAX ENTRIES - COUNT ENTRIES + 1 = ENTRY NUMBER 


C63C 


69 


00 




244 




ADC 


#0 


(CARRY IS/WAS SET) 


C63E 


8D 


B9 


DB 


245 




STA 


D . ENTNUM 




C641 


A5 


C6 




246 




LDA 


BLOKNML 




C543 


8D 


B7 


DB 


247 




STA 


D.ENTBLK 




C646 


A5 


C7 




248 




LDA 


BLOKNMH 


AND INDICATE BLOCK NUMBER OF THIS DIRECTORY. 


C648 


8D 


B8 


DB 


249 




STA 


D.ENTBLK+1 




C64B 


18 






250 




CLC 






C64C 


60 






251 




RTS 






C64D 








252 


-1, 








C64D 


AD 


A8 


DB 


253 


LOOKNAM 


LDA 


H . MAXENT 


RESET COUNT OF FILES PER BLOCK 


C650 


85 


OB 




254 




STA 


CNTENT 




C552 


A9 


12 




255 




LDA 


#GBUF/256 




C554 


85 


B5 




255 




STA 


DRBUFPH 




C655 


A9 


04 




257 




LDA 


#4 




C658 


85 


B4 




258 


LOKNAMl 


STA 


DRBUFPL 


RESET INDIRECT POINTER TO GBUF 


C65A 


BO 


25 


C681 


259 




BOS 


L0KNAM2 


BRANCH IF THIS BLOCK CONTAINS A HEADER 


C65C 


AO 


00 




2 60 




LDY 


#D . STOR 




C65E 


Bl 


B4 




2 61 




LDA 


(DRBUFPL) , Y 


GET LENGTH OF NAME IN DIRECTORY 


C660 


DO 


OB 


C66D 


2 62 




BNE 


ISNAME 


BRANCH IF THERE IS A NAME. 


C662 


A5 


oc 




263 




LDA 


NOFREE 


TEST TO SEE IF A FREE ENTRY HAS BEEN DECLARED. 


C654 


DO 


IB 


C681 


264 




BNE 


L0KNAM2 


YES BUMP TO NEXT ENTRY 


C666 


20 


36 


C6 


2 65 




JSR 


ENTADR 


SET ADDRESS FOR CURRENT ENTRY 


C669 


E6 


OC 




2 66 




INC 


NOFREE 


INDICATE A FREE SPOT HAS BEEN FOUND 


C66B 


DO 


14 


C681 


267 




BNE 


L0KNAM2 


BRANCH ALWAYS . 


C66D 








268 










C66D 


29 


OF 




2 69 


ISNAME 


AND 


#$F 


STRIP TYPE (THIS IS CHECKED BY 'FILFOUND') 


C56F 


E6 


08 




270 




INC 


TOTENT 


(BUMP COUNT OF VALID FILES FOUND) 


C671 


Dl 


BO 




271 




CMP 


(PATHNML) , Y 


ARE BOTH NAMES OF THE SAME LENGTH? 


C673 


DO 


OC 


C681 


272 




BNE 


L0KNAM2 


NO, BUMP TO NEXT ENTRY 


C675 


A8 






273 




TAY 






C676 


Bl 


B4 




274 


OMPNAME 


LDA 


(DRBUFPL) , Y 


COMPARE NAMES LETTER BY LETTER 


C678 


Dl 


BO 




275 




CMP 


(PATHNML) , Y 




C67A 


DO 


05 


C681 


276 




BNE 


L0KNAM2 




C67C 


88 






277 




DEY 




HAVE ALL LETTERS BEEN COMPARED? 


C67D 


DO 


F7 


0676 


278 




BNE 


OMPNAME 


NO, CONTINUE . . 


C57F 


18 






279 




CLC 




BY GOLLY, WE GOT US A MATCH! 


C680 


50 






280 




RTS 






C581 








281 


* 








C681 


C6 


OB 




282 


L0KNAM2 


DEC 


CNTENT 


HAVE WE CHECKED ALL POSSIBLE ENTRIES IN THIS BLOCK? 


C683 


FO 


9D 


0622 


283 




BEQ 


NONAME 


YES, GIVE UP. 


€685 


AD 


A7 


DB 


284 




LDA 


H.ENTLN 


ADD ENTRY LENGTH TO CURRENT POINTER 


C688 


18 






285 




CLC 






C689 


65 


B4 




286 




ADC 


DRBUFPL 




C68B 


90 


CB 


0658 


287 




BOC 


LOKNAMl 


BRANCH IF WE'RE STILL IN THE FIRST PAGE. 


C68D 


E6 


B5 




288 




INC 


DRBUFPH 


LOOK ON SECOND PAGE 


C68F 


18 






289 




CLC 




CARRY SHOULD ALWAYS BE CLEAR BEFORE LOOKING AT NEXT 


C690 


90 


C6 


0658 


290 




BOC 


LOKNAMl 


BRANCH ALWAYS . . . 
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C592 








292 


* 








C692 








293 


* 








C692 


20 


IE 


C7 


2 94 


PREPROOT 


JSR 


FINDVOL 


FIND CORRECT VOLUME AND DEVICE NUMBER 


C695 


90 


05 


C69C 


2 95 




BCC 


ROOTl 


BRANCH IF IT WAS FOUND. 


C697 


20 


62 


C7 


2 96 


ROOTO 


JSR 


LOOKVOL 


OTHERWISE LOOK ON ALL DEVICES. 


C6 9A 


BO 


4C 


C6E8 


2 97 




BOS 


SRITZ 


CAN'T FIND IT. 


C69C 


A9 


00 




298 


ROOTl 


LDA 


#0 


ZERO OUT DIRECTORY TEMPS 


C59E 


AO 


2A 




299 




LDY 


#42 


(DECIMAL) 


C6A0 


99 


B4 


DB 


300 


CLRDSP 


STA 


D.DEV, Y 




C5A3 


88 






301 




DEY 






C6A4 


10 


FA 


C6A0 


302 




BPL 


CLRDSP 




C6A6 


AO 


10 




303 




LDY 


#VCBDEV 


SET UP DEVICE NUMBER 


C6A8 


Bl 


B6 




304 




LDA 


(VCBPTR) , Y 




C6AA 


85 


35 




305 




STA 


DEVNUM 




C6AC 


8D 


B4 


DB 


306 




STA 


D.DEV 


FOR FUTURE REFERENCE 


C6AF 


C8 






307 




INY 






C5B0 


Bl 


B5 




308 




LDA 


(VCBPTR) , Y 


GET CURRENT STATUS OF THIS VOLUME 


C6B2 


8D 


9F 


DB 


309 




STA 


V. STATUS 




C6B5 


AO 


15 




310 




LDY 


#VCBROOT 


GET BLOCK ADDRESS OF ROOT DIRECTORY TOO. 


C6B7 


Bl 


B5 




311 




LDA 


(VCBPTR) , Y 




C6B9 


85 


C6 




312 




STA 


BLOKNML 




C6BB 


8D 


B5 


DB 


313 




STA 


D . HEAD 


PRESERVE AS HEADER 


C6BE 


C8 






314 




INY 






C6BF 


Bl 


B6 




315 




LDA 


(VCBPTR) , Y 




C6C1 


85 


C7 




316 




STA 


BLOKNMH 




C6C3 


8D 


B5 


DB 


317 




STA 


D.HEAD+1 




C6C6 


20 


58 


CC 


318 




JSR 


RDGBUF 


GO READ IN ROOT 


C6C9 


90 


OB 


C6D6 


319 




BCC 


R00T2 


BRANCH IF NO ERROR 


C6CB 


48 






320 




PHA 




SAVE ERROR CODE 


C6CC 


AO 


11 




321 




LDY 


#VCBSTAT 


CHECK THIS BUGGER FOR AN OPEN FILE. 


C6CE 


Bl 


B6 




322 




LDA 


(VCBPTR) , Y 




C6D0 


OA 






323 




ASL 


A 


(SHIFT OPEN STATUS INTO CARRY) 


C5D1 


58 






324 




PLA 




GET ERROR CODE AGAIN 


C6D2 


BO 


31 


C705 


325 




BCS 


ROOTERR 


BRANCH IF ERROR NEEDS TO BE REPORTED 


C5D4 


DO 


CI 


C697 


325 




BNE 


ROOTO 


OTHERWISE, LOOK ELSEWHERE (BRANCH ALWAYS) . 


C6D6 








327 


* 








C6D6 


20 


06 


C7 


328 


R00T2 


JSR 


CHKROOT 


VERIFY ROOT NAME 


C6D9 


FO 


OE 


C6E9 


329 




BEQ 


R00T3 


BRANCH IF MATCHED. 


C6DB 


AO 


11 




330 




LDY 


#VCBSTAT 


TEST FOR OPEN FILES ON THIS VOLUME BEFORE 


C6DD 


Bl 


B6 




331 




LDA 


(VCBPTR) , Y 


LOOKING FOR IT ELSEWHERE. 


C6DF 


10 


B6 


C697 


332 




BPL 


ROOTO 




C5E1 


20 


2F 


DD 


333 




JSR 


USRREQ 


REQUEST USER MOUNT VOLUME 


C5E4 


90 


B6 


C69C 


334 




BCC 


ROOTl 


USER SAID S/HE DID — CHECK IT 


C5E6 


A9 


00 




335 




LDA 


#VNFERR 


REPORT VOLUME NOT FOUND ERR IF REFUSE TO INSERT 


C5E8 


50 






335 


SRITZ 


RTS 






C6E9 








337 


* 
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C6E9 


AO 


OF 




339 


ROOT 3 


LDY 


#$F 


; (NOTE: X CONTAINS THE LENGTH OF THE ROOT NAME) 


C6EB 


B9 


IB 


12 


340 


ROOTINFO 


LDA 


GBUF+HCRDT+3 


Y ; SAVE HEADER INFO . 


C6EE 


99 


9F 


DB 


341 




STA 


V. STATUS, Y 




C6F1 


88 






342 




DEY 






C6F2 


DO 


F7 


C6EB 


343 




BNE 


ROOTINFO 


; LOOP TIL ALL 15 BYTES MOVED 


C6F4 


AD 


A9 


DB 


344 




LDA 


H . FONT 




C6F7 


85 


09 




345 




STA 


ENTCNTL 




C6F9 


AD 


AA 


DB 


346 




LDA 


H.FCNT+1 




C6FC 


85 


OA 




347 




STA 


ENTCNTH 




C6FE 


8A 






348 




TXA 




; NOW THAT ROOT IS IDENTIFIED, ADJUST 


C6FF 


38 






349 




SEC 




; PATH NAME POINTER TO NEXT NAME IN THE PATH 


C700 


65 


BO 




350 




ADC 


PATHNML 




C702 


85 


BO 




3bl 




STA 


PATHNML 




C704 


18 






352 




CLC 




; INDICATE NO ERROR 


C705 


60 






353 


ROOTERR 


RTS 






C706 








354 










C705 








355 


* 








C706 


AO 


00 




355 


CHKROOT 


LDY 


#0 


; GET LENGTH OF NAME 


C708 


Bl 


BO 




357 




LDA 


(PATHNML) , Y 




C70A 


A8 






358 




TAY 






C70B 


AA 






359 




TAX 




; SAVE IN X FOR LATTER ADJUSTMENT TO PATH POINTER 


C70C 


4D 


04 


12 


360 




FOR 


GBUF+4 




C70F 


2 9 


OF 




361 




AND 


#SF 


; DOES PATHNAME HAVE SAME LENGTH AS DIRECTORY NAME? 


C711 


DO 


OA 


C71D 


362 




BNE 


NOTROOT 


; BRANCH IF NOT 


C713 


Bl 


BO 




3 53 


CKROOTl 


LDA 


(PATHNML) , Y 


• COMPARE CHARACTER BY CHARACTER 


C715 


D9 


04 


12 


354 




CMP 


GBUF+4, Y 




C718 


DO 


03 


C71D 


355 




BNE 


NOTROOT 




C71A 


88 






366 




DEY 






C71B 


DO 


F6 


C713 


367 




BNE 


CKROOTl 


; LOOP UNTIL ALL CHARACTERS MATCH 


C71D 


60 






358 


NOTROOT 


RTS 






C71E 








359 


* 
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C71E 


A9 


11 




371 


FINDVOL 


LDA 


#VCB/255 


SEARCH VCB FOR VOLUME NAME 


C720 


85 


B7 




372 




STA 


VCBPTR+1 




C722 


A9 


00 




373 




LDA 


#0 




C724 


8D 


B4 


DB 


374 




STA 


D . DEV 




C727 


85 


B6 




375 




STA 


VCBPTR 




C729 


48 






376 


FNDVOLl 


PHA 




SAVE LAST SEARCH POSITION 


C72A 


AA 






377 




TAX 






C72B 


AO 


00 




378 




LDY 


#0 


(INDEX TO PATHNAME POINTER) 


C72D 


BD 


00 


11 


379 




LDA 


VCB, X 


GET LENGTH OF VOLUME NAME TO COMPARE 


C730 


FO 


29 


C75B 


380 




BEQ 


NXTVCB 


BRANCH IF VCB ENTRY IS EMPTY 


C732 


Dl 


BO 




381 




CMP 


(PATHNML) , Y 


ARE NAMES OF SAME LENGTH? 


C734 


DO 


25 


C75B 


382 




BNE 


NXTVCB 


NO, INDEX NEXT VCB 


C736 


18 






383 




CLC 




SCAN NAME BACKWARDS 


C737 


A8 






384 




TAY 






C738 


8A 






385 




TXA 






C739 


7D 


00 


11 


386 




ADC 


VCB, X 




C73C 


AA 






387 




TAX 




NOW BOTH INDEXES POINT TO LAST CHARACTER OF THE NAMES 


COMPARE 
















C73D 


Bl 


BO 




388 


VOLNAM 


LDA 


(PATHNML) , Y 




C73F 


DD 


00 


11 


389 




CMP 


VCB, X 




C742 


DO 


17 


C75B 


390 




BNE 


NXTVCB 




C744 


CA 






391 




DEX 






C745 


88 






392 




DEY 






C746 


DO 


F5 


C73D 


393 




BNE 


VOLNAM 


CHECK ALL CHARACTERS 


C748 


68 






394 




PLA 




SINCE A MATCH IS FOUND 


C749 


85 


B6 




395 




STA 


VCBPTR 


SET UP INDEX TO VCB ENTRY 


C74B 


AA 






396 




TAX 






C74C 


BD 


IF 


11 


397 




LDA 


VCB+VCBSWAP, X 


BRANCH IF 


C74F 


FO 


08 


C759 


398 




BEQ 


FOUNDVOL 


VOLUME NOT SWAPPED 


C751 


20 


51 


DC 


399 




JSR 


SWAP IN 


IF USER REALLY WANTS IT, THEN BRING IN IF SWAPPED 


C754 


90 


03 


C759 


400 




BCC 


FOUNDVOL 


BRANCH IF SUCCESS 


C756 


A9 


00 




401 




LDA 


#XIOERROR 


USER REFUSES TO MOUNT 


C758 


50 






402 




RTS 






C759 


18 






403 


FOUNDVOL 


CLC 




INDICATE VOLUME FOUND 


C75A 


60 






404 




RTS 






C75B 








405 


* 








C75B 


68 






406 


NXTVCB 


PLA 




GET CURRENT INDEX AGAIN. 


C75C 


18 






407 




CLC 






C75D 


69 


20 




408 




ADC 


#VCBSIZE 


VCB ENTRY LENGTH. 


C75F 


90 


C8 


C729 


409 




BCC 


FNDVOLl 


BRANCH IF THER IS ANOTHER TO CHECK 


C751 


60 






410 




RTS 




RETURN WITH CARRY SET TO SHOW FAILURE. 
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C762 








412 


* 










C762 








413 


* 










C762 


A2 


OC 




414 


LOOKVOL 


LDX 


#12 


(1) COUNT+ (12) DEVICE LIST 




C7 64 


BD 


00 


00 


415 


LOOKVOLl 


LDA 


BLKDLST, X 


EXTRN 




C767 


9D 


E3 


DB 


416 




STA 


SCRTCH, X 


MY CHANGEABLE COPY 




C7 6A 


CA 






417 




DEX 








C75B 


10 


F7 


C764 


418 




BPL 


LOOKVOLl 


WORK BACKWARDS SO 




C76D 


85 


35 




419 




STA 


TOTDEVS 


ENTRY ZERO IS TOTAL DEVICES LISTED 




C76F 


E8 






420 




I NX 




MAKE XREG = ZERO 




C770 


E8 






421 


LOKDEVl 


I NX 








C771 


8E 


E3 


DB 


422 




STX 


SCRTCH 






C774 


BD 


E3 


DB 


423 




LDA 


SCRTCH, X 






C777 


CD 


B4 


DB 


424 




CMP 


D.DEV 






C77A 


FO 


5A 


C7D6 


425 




BEQ 


NXTDEV 


DON'T LOOK AGAIN ON A DRIVE THAT HAS 


BEEN CHECKED 


C77C 


85 


35 




426 




STA 


DEVNUM 


CHECK FOR DEVICE ALREADY LOGGED IN A 


VCB 


C77E 


20 


48 


C8 


427 




JSR 


DEWCB 


(CARRY CLEAR IF IT'S THERE) 




C781 


90 


2F 


C7B2 


428 




BCC 


LOKVOLl 






C783 


A9 


00 




429 




LDA 


#0 


FIND A FREE VCB TO LOG THIS GUY IN 




C785 


AA 






430 


ENTVCB 


TAX 




INDEX TO NEXT VCB ENTRY 




C786 


BD 


00 


11 


431 




LDA 


VCB, X 






C789 


FO 


IF 


C7AA 


432 




BEQ 


FREEVCB 


FOUND A FREE SPOT. 




C78B 


8A 






433 




TXA 




NOW INDEX TO NEXT, AND KEEP LOOKIN 




C78C 


18 






434 




CLC 








C78D 


69 


20 




435 




ADC 


#VCBSIZE 


(EACH VCB ENTRY IS 32 BYTES) 




C78F 


90 


F4 


C785 


436 




BCC 


ENTVCB 


BRANCH IF MORE TO FIND 




C791 


A9 


00 




437 




LDA 


#0 






C793 






C793 


438 


ENTVCB2 


EQU 




SEE IF WE CAN REPLACE A DEVICE 




C7 93 


AA 






439 




TAX 








C7 94 


BD 


11 


11 


440 




LDA 


VCB+VCBSTAT, X 


VCB HAS FILES OPEN? 




C797 


FO 


11 


C7AA 


441 




BEQ 


FREEVCB 


NO, USE IT! 




C799 


8A 






442 




TXA 








C7 9A 


18 






443 




CLC 








C79B 


59 


20 




444 




ADC 


#VCBSIZE 


SEARCH NEXT VCB ENTRY 




C79D 


90 


F4 


C793 


445 




BCC 


ENTVCB2 






C79F 


50 






445 




RTS 




FAILED TO FIND A FREE VCB ENTRY 




C7A0 








447 


* 










C7A0 


AO 


00 




448 


CHKVLOG 


LDY 


#0 


MAKE SURE VOLUME WAS ACTUALLY LOGGED 


IN 


C7A2 


Bl 


B6 




449 




LDA 


(VCBPTR) , Y 






C7A4 


DO 


B3 


C759 


450 




BNE 


FOUNDVOL 


AH, MADE IT. . . 




C7A6 


A9 


00 




451 




LDA 


#DUPVOL 


WELL, NOT QUITE, THIS VOLUME CAN'T BE 


LOGGED 


C7A8 


38 






452 




SEC 








C7A9 


50 






453 




RTS 
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C7AA 








455 


* 








C7AA 


86 


B6 




456 


FREEVCB 


STX 


VCBPTR 


NOW THIS IS THE POINTER TO A FREE VCB 


C7AC 


A9 


02 




457 




LDA 


#2 


ROOT DIRECTORIES ALWAYS AT BLOCK 2 


C7AE 


A2 


00 




458 




LDX 


#0 




C7B0 


FO 


OE 


C7C0 


459 




BEQ 


GETROOT 


BRANCH ALWAYS 


C7B2 


AO 


11 




4 60 


LOKVOLl 


LDY 


#VCBSTAT 


MAKE SURE NO FILES ARE ACTIVE ON 


C7B4 


Bl 


B6 




461 




LDA 


(VCBPTR) , Y 


THE VOLUME BEFORE LOGGING IT IN. 


C7B6 


30 


28 


C7E0 


462 




BMI 


SNSWIT 


BRANCH IF FILES ACTIVE 


C7B8 


AO 


17 




463 




LDY 


#VCBR00T+1 


GET ADDRESS OF ROOT DIRECTORY 


C7BA 


Bl 


B6 




464 




LDA 


(VCBPTR) , Y 


HIGH FIRST. 


C7BC 


AA 






465 




TAX 






C7BD 


88 






466 




DEY 




THEN LOW. 


C7BE 


Bl 


B6 




4 67 




LDA 


(VCBPTR) , Y 




C7C0 


20 


IE 


C9 


4 68 


GETROOT 


JSR 


GETROTO 




C7C3 


90 


07 


C7CC 


469 




BCC 


L0KV0L2 


BRANCH IF SUCCESSFULLY READ. 


C7C5 


A9 


00 




470 




LDA 


#0 


OTHERWISE, TAKE THIS DEVICE OUT OF VCB 


C7C7 


A8 






471 




TAY 






C7C8 


91 


B6 




472 




STA 


(VCBPTR) , Y 


(VOLUME ' OFF LINE ' ) 


C7CA 


FO 


OA 


C7D6 


473 




BEQ 


NXTDEV 


BRANCH ALWAYS 


C7CC 








474 


* 








C7CC 


20 


8F 


C8 


475 


L0KV0L2 


JSR 


LOGVCB 


GO UPDATE VCB TO INCLUDE CURRENT VOLUME INFO 


C7CF 


BO 


05 


C7D6 


476 




BCS 


NXTDEV 


IF NOT A SOS DISKETTE, SKIP TO NEXT DEVICE 


C7D1 


20 


06 


C7 


477 




JSR 


CHKROOT 


GO COMPARE TO SEE IF WE FOUND WHAT WE ' RE 


C7D4 


FO 


CA 


C7A0 


478 




BEQ 


CHKVLOG 


LOOKING FOR. . . 


C7D6 








479 










C7D5 


AE 


E3 


DB 


480 


NXTDEV 


LDX 


SCRTCH 


LOOK AT OTHER DEVICES? 


C7D9 


E4 


36 




481 




CPX 


TOTDEVS 




C7DB 


90 


93 


C770 


482 




BCC 


LOKDEVl 


YES . 


C7DD 


A9 


00 




483 




LDA 


#VNFERR 


REPORT VOLUME NOT FOUND. 


C7DF 


60 






484 




RTS 






C7E0 








485 










C7E0 






C7E0 


486 


SNSWIT 


EQU 




SENSE DSWITCH 


C7E0 


AO 


10 




487 




LDY 


#VCBDEV 




C7E2 


Bl 


B6 




488 




LDA 


(VCBPTR) , Y 




C7E4 


85 


35 




489 




STA 


DEVNUM 


MAKE SURE DEVICE NUMBER IS CURRENT 


C7E6 


20 


87 


D5 


490 




JSR 


TWRPROTl 


USES DEVNUM 


C7E9 


AD 


BB 


D5 


491 




LDA 


DSWGLOB 


DISK SWITCH GLOBAL 


C7EC 


FO 


E8 


C7D6 


4 92 




BEQ 


NXTDEV 


BRANCH IF NO DISK SWITCH 


C7EE 


20 


OA 


C9 


4 93 




JSR 


VERFYVOL 


COMPARES VCBPTR VS. DEVNUM CONTENTS 


C7F1 


90 


E3 


C7D6 


4 94 




BCC 


NXTDEV 


BRANCH IF DISK HAS NOT BEEN SWITCHED 


C7F3 


20 


06 


C7 


495 




JSR 


CHKROOT 


COMPARES PATHNML VS. GBUF 


C7F6 


DO 


DE 


C7D6 


496 




BNE 


NXTDEV 


IGNORE IF NOT WHAT WE ARE LOOKING FOR 


C7F8 


A2 


00 




497 




LDX 


#0 


LOOK FOR FREE 


C7FA 


20 


02 


C8 


498 




JSR 


SNSWITl 




C7FD 


BO 


D7 


C7D6 


499 




BCS 


NXTDEV 


ANY ERRORS LOGGING IN THE NEW VOLUME 


C7FF 


4C 


AO 


C7 


500 




JMP 


CHKVLOG 


MAKE SURE THE NEW VOLUME IS LOGGED 


C802 


BD 


00 


11 


501 


SNSWITl 


LDA 


VCB, X 


VCB ENTRY 


C805 


FO 


08 


C80F 


502 




BEQ 


SNSWIT2 


BRANCH IF FOUND 


C807 


8A 






503 




TXA 






C808 


18 






504 




CLC 






C809 


69 


20 




505 




ADC 


#VCBSIZE 


LOOK AT NEXT VCB AREA 


C80B 


AA 






506 




TAX 






C80C 


90 


F4 


C802 


507 




BCC 


SNSWITl 




C80E 


60 






508 




RTS 




CAN'T BE LOGGED IN! 


C80F 


A9 


00 




509 


SNSWIT2 


LDA 


#0 




C811 


85 


3C 




510 




STA 


DUPLFLAG 


TURN OFF DUPLICATE VOLUME FLAG 
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C813 


86 


B6 






511 




SIX 


VCBPTR 


C815 


20 


9A 


C8 




512 




JSR 


LOGVCBl 


C818 


BO 


2B 


Cf 


45 


513 




BCS 


NONSOS 


C81A 


A5 


3C 






514 




LDA 


DUPLFLAG 


C81C 


DO 


23 


Ci 


41 


515 




BNE 


SNSWIT6 


C81E 


AO 


IF 






516 




LDY 


#VCBSWAP 


C820 


A9 


01 






517 




LDA 


#1 


C822 


91 


B6 






518 




STA 


(VCBPTR) , Y 


C824 


A5 


35 






519 




LDA 


DEVNUM 


C826 


20 


F5 


DB 




520 




JSR 


SWAPOUT 


C829 


90 


03 


Ci 


2E 


521 




BCC 


SNSWIT3 


C82B 


A9 


00 






522 




LDA 


#XIOERROR 


C82D 


60 








523 




RTS 




C82E 


AO 


IF 






524 


SNSWIT3 


LDY 


#VCBSWAP 


C830 


A9 


00 






525 




LDA 


#0 


C832 


91 


B6 






526 




STA 


(VCBPTR) , Y 


C834 


20 


OA 


C9 




527 


SNSWIT4 


JSR 


VERFYVOL 


C837 


90 


07 


CE 


40 


528 




BCC 


SNSWIT5 


C839 


20 


2F 


DD 




529 




JSR 


USRREQ 


C83C 


90 


F6 


Ci 


34 


530 




BCC 


SNSWIT4 


C83E 


A9 


00 






531 




LDA 


#VNFERR 


C840 


60 








532 


SNSWIT5 


RTS 




C841 


A9 


00 






533 


SNSWIT6 


LDA 


#DUPVOL 


C843 


38 








534 




SEC 




C844 


60 








535 




RTS 





AUGUST-2006 PAGE 57 



; PARTIALLY LOG IN THE NEW VOLUME 

CS MEANS NONSOS ERROR 
; WAS IT A DUPLICATE VOLUME? 
; BRANCH IF YES 

; BY MAKING SWAP BYTE NON ZERO 

; SO SWAPOUT WON'T AFFECT 

; A REG PASSES DEVNUM TO SWAPOUT 

; OLD ACTIVE MOUNT MUST BE SWAPPED 

USER REFUSED TO REPLACE OLD VOLUME 

; NOW LOG IN THE NEW ALL THE WAY 



DON'T BOTHER TO ASK IF NEW VOLUME IS ALREADY MOUNTED 
BRANCH IF NEW VOLUME ON LINE 
ASK USER TO REMOUNT NEW VOLUME 
USER SAYS THEY DID: CHECK IT OUT 
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C845 










537 


* 








C845 


A9 


00 






538 


NONSOS 


LDA 


#NOTSOS 


TELL EM IT'S NOT A SOS DISK (COULD BE PASCAL) 


C847 


60 








539 




RTS 




CARRY SHOULD ALREADY BE SET 


C848 










540 










C848 










541 










C84o 


'•- 9 


"0 






542 


DEVVCB 


LDA 


#0 


SCAN VCB FOR DEVICE SPECIFIED IN 'DEVNUM' 


C84A 


AA 








543 


DVCBl 


TAX 




FIRST TEST FOR VALID VCB. 


C84B 


BD 


00 


11 




544 




LDA 


VCB, X 




C84E 


FO 


oc 


CE 


5C 


545 




BEQ 


DVCB2 




C850 


BD 


IF 


11 




546 




LDA 


VCB+VCBSWAP, X 


SWAPPED VOLUMES DON'T COUNT 


C853 


DO 


07 


CE 


5C 


547 




BNE 


DVCB2 


AS LOGGED IN 


C855 


BD 


10 


11 




548 




LDA 


VCB+VCBDEV, X 


GET DEVICE NUMBER 


C858 


C5 


35 






549 




CMP 


DEVNUM 


TEST AGAINST REQUESTED DEVICE 


C85A 


FO 


26 


CE 


82 


550 




BEQ 


FOUNDEV 


YES, SET UP A POINTER TO IT 


C85C 


8A 








bbl 


DVCB2 


TXA 




BUMP TO NEXT VCB 


C85D 


18 








552 




CLC 






C85E 


59 


20 






553 




ADC 


#VCBSIZE 




C860 


90 


E8 


CE 


4A 


554 




BCC 


DVCBl 


BRANCH IF MORE TO LOOK AT. 


C862 


60 








555 




RTS 




RETURN CARRY SET TO INDICATE NOT FOUND 


C863 










556 


* 








C863 


A6 


B6 






557 


TSTDUPVOL 


LDX 


VCBPTR 


PRESERVE CURRENT ADDR OF FREE VCB 


C8 65 


A9 


00 






558 




LDA 


#0 


LOOK FOR A CURRENTLY LOGGED ON VOLUME OF THE SAME 


C867 


85 


B6 






559 


TSDUPVl 


STA 


VCBPTR 




C859 


20 


F2 


C8 




560 




JSR 


CMPVCB 




C86C 


BO 


OD 


CE 


7B 


561 




BCS 


TSDUPV2 


BRANCH IF NO MATCH. 


C86E 


AO 


11 






562 




LDY 


#VCBSTAT 


TEST FOR ANY OPEN FILES. 


C870 


Bl 


B6 






563 




LDA 


(VCBPTR) , Y 




C872 


30 


12 


CE 


8 6 


564 




BMI 


FOUNDDUP 


TELL THE SUCKER HE CAN'T LOOK AT THIS VOLUME! 


C874 


A9 


00 






565 




LDA 


#0 


TAKE DUPLICATE OFF LINE IF NO OPEN FILES. 


C876 


A8 








566 




TAY 






C877 


91 


B6 






567 




STA 


(VCBPTR) , Y 




C879 


FO 


07 


CE 


82 


568 




BEQ 


NODUPVOL 


RETURN THAT ALL IS OK TO LOG IN NEW. 


C87B 


A5 


B6 






569 


TSDUPV2 


LDA 


VCBPTR 




C87D 


18 








570 




CLC 






C87E 


69 


20 






571 




ADC 


#VCBSIZE 


BUMP TO NEXT ENTRY. 


C880 


90 


E5 


CE 


67 


572 




BCC 


TSDUPVl 




C882 






CE 


82 


573 


NODUPVOL 


EQU 






C882 


18 








574 


FOUNDEV 


CLC 






C883 


85 


B6 






575 


FNDDUPl 


STX 


VCBPTR 




C885 


60 








576 




RTS 






C886 










577 










C885 


85 


3C 






578 


FOUNDDUP 


STA 


DUPLFLAG 


A DUPLICATE HAS BEEN DETECTED. 


C888 


38 








579 




SEC 




INDICATE ERROR 


C889 


A5 


B6 






580 




LDA 


VCBPTR 


SAVE ADDRESS OF DUPLICATE 


C88B 


85 


3E 






581 




STA 


VCBENTRY 




C88D 


BO 


F4 


CE 


83 


582 




BCS 


FNDDUPl 


BRANCH ALWAYS TAKEN 
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C88F 










584 


* 








C88F 










585 


* 








C88F 


AO 


00 






586 


LOGVCB 


LDY 


#VOBNML 


IS THIS A PREVIOUSLY LOGGED IN VOLUME 


C891 


Bl 


B6 






587 




LDA 


(VOBPTR) , Y 


(AOC^O?) 


C893 


FO 


05 


Of 


9A 


588 




BEQ 


LOGVOBl 


NO, GO AHEAD AND PREPARE VOB . 


C895 


20 


F2 


08 




589 




JSR 


OMPVOB 


DOES VOB MATCH VOLUME READ? 


C898 


90 


54 


08EE 


590 




BOO 


VOBLOGD 


YES, DON'T DISTURB IT. 


C89A 


A9 


00 






591 


LOGVCBl 


LDA 


#0 


ZERO OUT VOB ENTRY 


C89C 


AO 


IF 






592 




LDY 


#VCBSIZE-1 




C89E 


91 


B5 






593 


ZERVCB 


STA 


(VOBPTR) , Y 




C8A0 


88 








594 




DEY 






C8A1 


10 


FB 


Of 


9E 


595 




BPL 


ZERVOB 




C8A3 


20 


65 


04 




596 




JSR 


TSTSOS 


MAKE SURE IT'S A SOS DISKETTE. 


C8A6 


BO 


46 


Of 


EE 


597 




BOS 


VOBLOGD 


IF NOT, RETURN CARRY SET. 


C8A8 


20 


63 


08 




598 




JSR 


TSTDUPVOL 


FIND OUT IF A DUPLICATE WITH OPEN FILES ALREADY EXISTS 


C8AB 


BO 


42 


08EF 


599 




BOS 


NOTLOGO 




C8AD 


AD 


04 


12 




600 




LDA 


GBUF+4 


MOVE VOLUME NAME TO VCB 


C8B0 


29 


OF 






501 




AND 


#$F 


STRIP ROOT MARKER 


C8B2 


A8 








602 




TAY 






C8B3 


48 








503 




PHA 






C8B4 


B9 


04 


12 




604 


MOVOLNM 


LDA 


GBUF+4, Y 




C8B7 


91 


B6 






605 




STA 


(VOBPTR) , Y 




C8B9 


88 








606 




DEY 






C8BA 


DO 


F8 


Of 


B4 


607 




BNE 


MOVOLNM 




C8BC 


68 








608 




PLA 




GET LENGTH AGAIN 


C8BD 


91 


B6 






609 




STA 


(VOBPTR) , Y 


SAVE THAT TOO. 


C8BF 


AO 


10 






610 




LDY 


#VOBDEV 


SAVE DEVICE NUMBER ALSO. 


C8C1 


A5 


35 






611 




LDA 


DEVNUM 




C8C3 


91 


B6 






612 




STA 


(VCBPTR) , Y 




C8C5 


20 


F8 


OB 




613 




JSR 


OLEARBMS 


MARKS THIS DEVICES OLD BITMAPS AS INVALID (A REG PASSED) 


C8C8 


AD 


29 


12 




614 




LDA 


GBUF+VTBLK+4 


AND TOTOL NUMBER OF BLOCKS ON THIS UNIT, 


C8CB 


AO 


12 






615 




LDY 


#VOBTBLK 




C8CD 


91 


B5 






616 




STA 


(VCBPTR) , Y 




C8CF 


AD 


2A 


12 




517 




LDA 


GBUF+VTBLK+5 




C8D2 


C8 








518 




INY 






C8D3 


91 


B6 






519 




STA 


(VCBPTR) , Y 




C8D5 


AO 


16 






620 




LDY 


#VCBROOT 




C8D7 


A5 


06 






621 




LDA 


BLOKNML 


AND ADDRESS OF ROOT DIRECTORY 


C8D9 


91 


B6 






622 




STA 


(VCBPTR) , Y 




C8DB 


C8 








623 




INY 






C8DC 


A5 


07 






624 




LDA 


BLOKNMH 




C8DE 


91 


B6 






525 




STA 


(VCBPTR) , Y 




C8E0 


AO 


lA 






525 




LDY 


#VCBDMAP 




C8E2 


AD 


27 


12 




527 




LDA 


GBUF+VBMAP+4 


AND LASTLY, THE ADDRESS 


C8E5 


91 


B6 






528 




STA 


(VCBPTR) , Y 


OF THE FIRST BITMAP 


C8E7 


AD 


28 


12 




629 




LDA 


GBUF+VBMAP+5 




C8EA 


08 








630 




INY 






C8EB 


91 


B6 






631 




STA 


(VCBPTR) , Y 




C8ED 


18 








632 




OLO 




INDICATE THAT IT WAS LOGGED IF POSIBLE. 


C8EE 


60 








633 


VOBLOGD 


RTS 






C8EF 


40 


29 


09 




534 


NOTLOGO 


JMP 


NOTLOGl 
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C8F2 


AD 


04 


12 


636 


CMPVCB 


LDA 


GBUF+4 


COMPARE VOLUME NAME IN VCB 


C8F5 


29 


OF 




637 




AND 


#$F 




C8F7 


AO 


00 




638 




LDY 


#VCBNML 


WITH NAME IN DIRECTORY 


C8F9 


Dl 


B6 




639 




CMP 


(VCBPTR) , Y 


ARE THEY SAME LENGTH 


C8FB 


DO 


2A 


C927 


640 




BNE 


NOTSAME 




C8FD 


A8 






641 




TAY 






C8FE 


B9 


04 


12 


642 


VCBCMP 1 


LDA 


GBUF+4, Y 




C901 


Dl 


B6 




643 




CMP 


(VCBPTR) , Y 




C903 


DO 


22 


C927 


644 




BNE 


NOTSAME 




C905 


88 






645 




DEY 






C906 


DO 


F6 


C8FE 


646 




BNE 


VCBCMP 1 




C908 


18 






647 




CLC 




INDICATE MATCH. 


C909 


60 






648 




RTS 






C90A 








649 










C90A 


A2 


00 




650 


VERFYVOL 


LDX 


#0 


READ IN ROOT DIRECTORY HEADER. 


C90C 


A9 


02 




651 




LDA 


#2 




C90E 


20 


IE 


C9 


652 




JSR 


GETROTO 




C911 


BO 


08 


C91B 


653 




BCS 


NOVRFYl 


PASS BACK WHATEVER OTHER ERROR OCCURS. 


C913 


20 


F2 


C8 


654 




JSR 


CMPVCB 


TEST ROOT WITH VOLUME NAME IN VCB. 


C916 


90 


02 


C91A 


655 




BCC 


NOVRFY 


BRANCH IF ROOT MATCHES VCB 


C918 


A9 


00 




656 




LDA 


#0 


OTHERWISE, PASS BACK FOREIGN VOLUME ERROR 


C91A 


60 






657 


NOVRFY 


RTS 




RETURN RESULTS IN CARRY. 


C91B 


A9 


00 




658 


NOVRFYl 


LDA 


#VNFERR 


NOTHING IN DRIVE 


C91D 


60 






659 




RTS 






C91E 








660 










C91E 


85 


C6 




661 


GETROTO 


STA 


BLOKNML 




C920 


86 


C7 




662 




STX 


BLOKNMH 


STORE ADDRESS AND READ IN ROOT 


C922 


20 


58 


cc 


663 




JSR 


RDGBUF 




C925 


90 


01 


C928 


664 




BCC 


RETR0T2 


BRANCH IF SUCCESSFULLY READ. 


C927 






C927 


665 


NOTSAME 


EQU 






C927 


38 






666 




SEC 




INDICATE ERROR 


C928 


60 






667 


RETR0T2 


RTS 






C929 








668 


* 








C929 


A6 


B6 




669 


NOTLOGl 


LDX 


VCBPTR 


LOAD THE VCB ADDRESS 


C92B 


A5 


3E 




670 




LDA 


VCBENTRY 


OF THE DUPLICATE VOLUME 


C92D 


85 


B6 




671 




STA 


VCBPTR 




C92F 


86 


3E 




672 




STX 


VCBENTRY 


AND SAVE THE FREE VCB SPACE ADDR 


C931 


AO 


10 




673 




LDY 


#VCBDEV 


IS DUPLICATE ON SAME DEVICE? 


C933 


A5 


35 




674 




LDA 


DEVNUM 




C935 


Dl 


B6 




675 




CMP 


(VCBPTR) , Y 




C937 


DO 


OD 


C946 


676 




BNE 


N0TL0G2 


BRANCH IF NOT 


C939 


20 


51 


DC 


677 




JSR 


SWAP IN 


SWAP IN IF NECESSARY 


C93C 


A9 


00 




678 




LDA 


#0 




C93E 


85 


3C 




679 




STA 


DUPLE LAG 


NO MORE DUPLICATE VOLUME STATUS 


C940 


A5 


B6 




680 




LDA 


VCBPTR 


MAKE CHKROOT WORK IN A MOMENT 


C942 


85 


BO 




681 




STA 


PATHNML 


THIS IS INCREDIBLY GROSS 


C944 








682 


; BUT IS 


A RESULT OF MAKING VOLUME A SPECIAL 


C944 








683 


; CASE OF 


SEARCHING ALL DEVICES FOR 


C944 








684 


; A KNOWN 


VOLUME 




C944 


18 






685 




CLC 






C945 


60 






686 




RTS 






C946 


A5 


3E 




687 


N0TL0G2 


LDA 


VCBENTRY 


REACH HERE IF REAL DUPLICATE VOLUME 


C948 


85 


B6 




688 




STA 


VCBPTR 


RESOTRE FREE VCB PTR 


C94A 


18 






689 




CLC 






C94B 


60 






690 




RTS 




DUPLICATE VOLUME PRETENDS TO BE NO ERROR 
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C94C 








592 


* 








C94C 


AO 


15 




693 


TSFRBLK 


LDY 


#V0BTFRE+1 




C94E 


Bl 


B6 




694 




LDA 


(VOBPTR) , Y 


FIND OUT IF ENOUGH FREE BLOCKS 


C950 


88 






695 




DEY 




ARE AVAILABLE TO ACCOMODATE REQEST. 


C951 


11 


B6 




696 




ORA 


(VOBPTR) , Y 


BUT FIRST FIND OUT IF WE GOT A PROPER OOUNT FOR THIS VOLUME 


C953 


DO 


50 


09B1 


697 




BNE 


OMPFREB 


BRANCH IF COUNT IS NON-ZERO 


C955 


88 






698 




DEY 




IF ZERO, THEN COUNT MUST BE TAKEN 


C956 


Bl 


B6 




699 




LDA 


(VOBPTR) , Y 


GET HIGH TOTAL BLKS 


C958 


AA 






700 




TAX 




SAVE IT 


C959 


88 






701 




DEY 




GET LOW 


C95A 


Bl 


B6 




702 




LDA 


(VOBPTR) , Y 


TOTAL BLKS 


C95C 


DO 


01 


095F 


703 




BNE 


TSFROl 




C95E 


CA 






704 




DEX 




ADJUST FOR BITMAP BLOCK BOUNDARY 


C95F 


8A 






705 


TSFROl 


TXA 






C960 


4A 






706 




LSR 


A 


DIVIDE BY 15. THE RESULT IS THE NUMBER 


C961 


4A 






707 




LSR 


A 


OF BIT MAPS TO BE SEARCHED. 


C962 


4A 






708 




LSR 


A 




C963 


4A 






709 




LSR 


A 




C964 


85 


OD 




710 




STA 


BMONT 


SAVE IT. 


C965 


A9 


00 




711 




LDA 


#0 


START OOUNT AT ZERO. 


C968 


8D 


E3 


DB 


712 




STA 


SORTOH 




C96B 


8D 


E4 


DB 


713 




STA 


SORTOH+1 




C9 6E 


A9 


FF 




714 




LDA 


#SFF 


MARK 'FIRST FREE' TEMP AS UNKNOWN 


C970 


85 


OO 




715 




STA 


NOFREE 




C972 


AO 


10 




716 




LDY 


#VOBDEV 


MAKE SURE BIT MAP IS UP TO DATE 


C974 


Bl 


B6 




717 




LDA 


(VOBPTR) , Y 


GET DEVICE NUMBER 


C976 


AA 






718 




TAX 




PASS TO 'UPBMAP' IN X 


C977 


20 


E4 


OB 


719 




JSR 


UPBMAP 


(NOTHING HAPPENS IF IT DON'T HAFTA.) 


C97A 


BO 


46 


0902 


720 




BOS 


TFBERR 


BRANCH IF WE GOT TROUBLE, 


C97C 


AO 


lA 




721 




LDY 


#VOBDMAP 


GET ADDRESS OF FIRST BIT MAP. 


C97E 


Bl 


B6 




722 




LDA 


(VOBPTR) , Y 




C980 


85 


06 




723 




STA 


BLOKNML 




C982 


C8 






724 




INY 




(FOR HIGH ADDRESS) 


C983 


Bl 


B5 




725 




LDA 


(VOBPTR) , Y 




C985 


85 


07 




725 




STA 


BLOKNMH 




C987 


20 


58 


00 


727 


BMAPRD 


JSR 


RDGBUF 


USE G (ENERAL) BUFF (ER) FOR TEMPORARY 


C98A 


BO 


36 


0902 


728 




BOS 


TFBERR 


SPACE TO COUNT FREE BLOCKS (BITS) 


C98C 


20 


03 


09 


729 




JSR 


OOUNT 


GO OOUNT EM 


C98F 


06 


OD 




730 




DEO 


BMONT 


WAS THAT THE LAST BIT MAP? 


C991 


30 


09 


0990 


731 




BMI 


OHGVOB 


IF SO, GO CHANGE FOB TO AVOID DOING THIS AGAIN! 


C993 


E6 


06 




732 




I NO 


BLOKNML 


NOTE: THE ORGANIZATION OF THE BIT MAPS 


C995 


DO 


FO 


0987 


733 




BNE 


BMAPRD 


ARE CONTIGUOUS FOR SOS VERSION 


C997 


E6 


07 




734 




I NO 


BLOKNMH 


IF SOME OTHER ORGANIZATION IS IMPLEMENTED, THIS CODE 


C999 


40 


87 


09 


735 




JMP 


BMAPRD 


MUST BE CHANGED! 
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C99C 








737 


* 








C99C 


AO 


IC 




738 


CHGVCB 


LDY 


#VCBCMAP 


; MARK WHICH BLOCK HAD FIRST FREE SPACE 


C99E 


A5 


oc 




739 




LDA 


NOFREE 




C9A0 


30 


ID 


C9BF 


740 




BMI 


DSKFULL 


; BRANCH IF NO FREE SPACE WAS FOUND . 


C9A2 


91 


B6 




741 




STA 


(VCBPTR) , Y 




C9A4 


AO 


15 




742 




LDY 


#VCBTFRE+1 


; UPDATE THE FREE COUNT. 


C9A6 


AD 


E4 


DB 


743 




LDA 


SCRTCH+1 


; GET HIGH COUNT BYTE 


C9A9 


91 


B6 




744 




STA 


(VCBPTR) , Y 


; UPDATE VOLUME CONTROL BLOCK. 


C9AB 


88 






745 




DEY 






C9AC 


AD 


E3 


DB 


746 




LDA 


SCRTCH 




C9AF 


91 


B6 




747 




STA 


(VCBPTR) , Y 


; AND LOW BYTE TOO . . . 


C9B1 


Bl 


B6 




748 


CMPFREB 


LDA 


(VCBPTR) , Y 


; COMPARE TOTAL AVAILABLE 


C9B3 


38 






74 9 




SEC 






C9B4 


E5 


04 




750 




SBC 


REQL 


; FREE BLOCKS ON THIS VOLUME. 


C9B6 


C8 






751 




INY 






C9B7 


Bl 


B6 




752 




LDA 


(VCBPTR) , Y 




C9B9 


E5 


05 




753 




SBC 


REQH 




C9BB 


90 


02 


C9BF 


754 




BCC 


DSKFULL 




C9BD 


18 






755 




CLC 






C9BE 


60 






756 




RTS 






C9BF 


A9 


00 




757 


DSKFULL 


LDA 


#OVRERR 




C9C1 


38 






758 




SEC 






C9C2 


60 






759 


TFBERR 


RTS 
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C9C3 








761 


* 








C9C3 


AO 


00 




762 


COUNT 


LDY 


#0 


BEGIN AT THE BEGINNING. 


C9C5 


B9 


00 


12 


763 


FRCONT 


LDA 


GBUF, Y 


GET BIT PATTERN 


C9C8 


FO 


03 


C9CD 


7 64 




BEQ 


FRCNTl 


DON'T BOTHER COUNTING NOTHIN' 


C9CA 


20 


F5 


C9 


765 




JSR 


CNTFREE 




C9CD 


B9 


00 


13 


766 


FRONT 1 


LDA 


GBUF+$100, Y 


DO BOTH PAGES WITH SAME LOOP 


C9D0 


FO 


03 


C9D5 


7 67 




BEQ 


FRCNT2 




C9D2 


20 


F5 


C9 


768 




JSR 


CNTFREE 




C9D5 


C8 






769 


FRCNT2 


INY 






C9D5 


DO 


ED 


C9C5 


770 




BNE 


FRCONT 


LOOP TILL ALL 512 BYTES COUNTED 


C9D8 


24 


OC 




771 




BIT 


NOFREE 


HAS FIRST BLOCK WITH FREE SPACE BEEN FOUND YET? 


C9DA 


10 


18 


C9F4 


772 




BPL 


FRCNT3 


BRANCH IF IT HAS. 


C9DC 


AD 


E3 


DB 


773 




LDA 


SCRTCH 


TEST TO SEE IF ANY BLOCKS WERE COUNTED 


C9DF 


CD 


E4 


DB 


774 




ORA 


SCRTCH+1 




C9E2 


FO 


10 


C9F4 


7 75 




BEQ 


FRONT 3 


BRANCH IF NONE COUNTED . 


C9E4 


AO 


13 




776 




LDY 


#VCBTBLK+1 




C9E6 


Bl 


B6 




777 




LDA 


(VCBPTR) , Y 


SHOW THIS MAP IS FIRST WITH FREE SPACE 


C9E8 


38 






778 




SEC 




CORRECT FOR EXACT MULTIPLES OF $1000 


C9E9 


E9 


01 




779 




SBC 


#$01 




C9EB 


4A 






780 




LSR 


A 




C9EC 


4A 






781 




LSR 


A 




C9ED 


4A 






782 




LSR 


A 




C9EE 


4A 






783 




LSR 


A 




C9EF 


38 






784 




SEC 




SUBTRACT COUNTDOWN FROM TOTAL BIT MAPS 


C9F0 


E5 


OD 




785 




SBC 


BMC NT 




C9F2 


85 


OC 




786 




STA 


NOFREE 




C9F'3 


60 






787 


FRCNT3 


RTS 






C9F5 








788 










C9F5 


OA 






789 


CNTFREE 


ASL 


A 


COUNT THE NUMBER OF BITS IN THIS BYTE. 


C9F6 


90 


08 


CAOO 


790 




BCC 


CFREEl 




C9F8 


EE 


E3 


DB 


791 




INC 


SCRTCH 




C9FB 


DO 


03 


CAOO 


7 92 




BNE 


CFREEl 




C9FD 


EE 


E4 


DB 


793 




INC 


SCRTCH+1 




CAOO 


AA 






794 


CFREEl 


TAX 






CAOl 


DO 


F2 


C9F5 


795 




BNE 


CNTFREE 


LOOP UNTIL ALL BITS COUNTED. 


CA03 


60 






796 




RTS 






CA04 








797 




CHN 


ALLOC 




CA04 








1 










CA04 


86 


OD 




2 


DEALLOC 


SIX 


BMCNT 


SAVE HIGH ORDER ADDRESS OF BLOCK TO BE FREED. 


CA0 6 


48 






3 




PHA 




SAVE IT 


CA07 


A6 


B6 




4 




LDX 


VCBPTR 


WHILE THE BITMAP 


CA0 9 


BD 


13 


11 


5 




LDA 


VCB+VCBTBLK+1 , X 


DISK ADDRESS IS CHECKED 


CAOC 


C5 


OD 




6 




CMP 


BMCNT 


TO SEE IF IT MAKES SENSE 


CAOE 


68 






7 




PLA 




RESTORE 


CAOF 


90 


51 


CA62 


8 




BCC 


DEALERRl 


BRANCH IF IMPOSSIBLE 


CAll 


AA 






9 




TAX 






CA12 


2 9 


07 




10 




AND 


#$7 


GET THE BIT TO BE OR-ED IN. 


CA14 


A8 






11 




TAY 






CA15 


B9 


66 


CA 


12 




LDA 


WHICHBIT, Y 


(SHIFTING TAKES 7 BYTES, BUT IS SLOWER) 


CA18 


85 


OC 




13 




STA 


NOFREE 


SAVE BIT PATTERN 


CAIA 


8A 






14 




TXA 




GET LOW BLOCK ADDRESS AGAIN. 


CAIB 


46 


OD 




15 




LSR 


BMCNT 




CAID 


6A 






16 




ROR 


A 


GET POINTER TO BYTE IN BITMAP THAT REPRESENTS 


CAIE 


46 


OD 




17 




LSR 


BMCNT 


THE BLOCK ADDRESS. 


CA20 


6A 






18 




ROR 


A 




CA21 


46 


OD 




19 




LSR 


BMCNT 
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CA23 


5A 




20 




ROR 


A 




CA24 


8S 


17 


21 




STA 


BMPTR 


; SAVE POINTER. 


CA2 6 


46 


OD 


22 




LSR 


BMCNT 


; NOW TRANSFER BIT WHICH SPECIFIES WHICH PAGE OF BITMAP. 


CA28 


2 6 


19 


23 




ROL 


HALF 




CA2A 


A6 


lA 


24 




LDX 


BMTAB 


; (THIS POINTS TO THE TABLE FOR THE BITMAP BUFFER USED) . 


CA2C 


BS 


21 


25 




LDA 


BMACMAP , X 


; WHAT IS THE CURRENT MAP 


CA2E 


CS 


OD 


26 




CMP 


BMCNT 


; IS IN CORE BIT MAP THE ONE WE WANT? 


CA30 


FO 


14 CA46 


27 




BEQ 


DEALLl 


; BRANCH IF IN-CORE IS CORRECT. 


CA32 


20 


65 D7 


28 




JSR 


BMAPUP 


; PUT CURRENT MAP AWAY. 


CAS 5 


BO 


2A CA61 


29 




BCS 


DEALERR 


; PASS BACK ANY ERROR. 


CA37 


AS 


OD 


30 




LDA 


BMCNT 


; GET DESIRED MAP NUMBER. 


CAS 9 


AO 


IC 


31 




LDY 


#VCBCMAP 




CA3B 


91 


B6 


32 




STA 


(VCBPTR) , Y 


; AND MAKE IT CURRENT. 


CA3D 


A6 


lA 


33 




LDX 


BMTAB 




CA3F 


BS 


ID 


34 




LDA 


BMADEV, X 




CA41 


20 


10 CC 


35 




JSR 


GTBMAP 


; READ IT INTO THE BUFFER, 


CA44 


BO 


IB CA61 


36 




BCS 


DEALERR 




CA4 6 


A4 


17 


37 


DEALLl 


LDY 


BMPTR 


; INDEX TO BYTE . 


CA48 


46 


19 


38 




LSR 


HALF 




CA4A 


90 


02 CA4E 


39 




BCC 


DEALL2 


; BRANCH IF ON PAGE ONE OF BITMAP . 


CA4C 


E6 


B9 


40 




INC 


BMADR+1 




CA4E 


AS 


OC 


41 


DEALL2 


LDA 


NOFREE 


; THE INDIVIDUAL BIT. 


CA5 


11 


B8 


42 




ORA 


(BMADR) , Y 




CA52 


91 


B8 


43 




STA 


(BMADR) , Y 




CAS 4 


90 


02 CA58 


44 




BCC 


DEALL3 


; BRANCH IF ADDRESS IS PROPER 


CAS 5 


C6 


B9 


45 




DEC 


BMADR+1 




CASS 


A6 


lA 


46 


DEALL3 


LDX 


BMTAB 


; MARK BITMAP AS MODIFIED. 


CA5A 


A9 


80 


47 




LDA 


#$80 




CA5C 


IS 


IC 


48 




ORA 


BMASTAT, X 




CASE 


9S 


IC 


49 




STA 


BMASTAT, X 




CA60 


18 




SO 




CLC 






CA61 


60 




51 


DEALERR 


RTS 






CA62 


A9 


00 


52 


DEALERRl 


LDA 


♦BITMAP ADR 


; BIT MAP BLOCK NUMBER IMPOSSIBLE 


CA64 


38 




53 




SEC 




; SAY BIT MAP DISK ADDRESS WRONG (PROBABLY DATA MASQUERADING 


INDEX BLOCK) 












CA65 


60 




54 




RTS 






CA66 






55 


* 








CA66 


80 


40 20 10 


56 


WHICHBIT 


DFB 


$80, $40, $20, $10 




CA5A 


08 


04 02 01 


57 




DFB 


8,4,2, 1 




CA6E 






58 


* 








CA6E 






59 


* 
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CA6E 








61 


* 






CA6E 


A9 


00 




62 


ALCIDXS 


LDA 


#0 


CA70 


85 


OE 




63 




STA 


SAPTR 


CA72 


20 


9C 


CA 


64 




JSR 


ALCIBLK 


CA75 


BO 


IE 


CA95 


65 




BCS 


ERRALCl 


CA77 


A4 


OE 




66 


ALIDXl 


LDY 


SAPTR 


CA7 9 


91 


B2 




67 




STA 


(TINDX) , Y 


CA7B 


E6 


B3 




68 




INC 


TINDX+1 


CA7D 


AD 


E4 


DB 


69 




LDA 


SCRTCH+1 


CA80 


91 


B2 




70 




STA 


(TINDX) , Y 


CAS 2 


C6 


B3 




71 




DEC 


TINDX+1 


CAS 4 


C6 


04 




72 




DEC 


REQL 


CAS 6 


FO 


13 


CA9B 


73 




BEQ 


ALDXEND 


CASS 


E6 


OE 




74 




INC 


SAPTR 


CASA 


A4 


17 




75 




LDY 


BMPTR 


CASC 


A5 


19 




76 




LDA 


HALF 


CASE 


DO 


06 


CA96 


77 




BNE 


SECNDHAF 


CA90 


20 


A5 


CA 


78 




JSR 


GETBITSl 


CA93 


90 


E2 


CA77 


79 




BCC 


ALIDXl 


CA95 


60 






SO 


ERRALCl 


RTS 




CA96 








SI 


* 






CA96 


20 


32 


CA 


S2 


SECNDHAF 


JSR 


GETBITS2 


CA99 


90 


DC 


CA7 7 


S3 




BCC 


ALIDXl 


CA9B 


60 






84 


ALDXEND 


RTS 




CA9C 








85 


* 






CA9C 








86 


* 






CA9C 


20 


7F 


CB 


87 


ALCIBLK 


JSR 


FNDBMAP 


CA9F 


BO 


F4 


CA95 


88 




BCS 


ERRALCl 


CAAl 


AO 


00 




89 


SRCHFRE 


LDY 


#0 


CAA3 


84 


19 




90 




STY 


HALF 


CAA5 


Bl 


B8 




91 


GETBITSl 


LDA 


(BMADR) , Y 


CAA7 


DO 


lA 


CAC3 


92 




BNE 


BITFOUND 


CAA9 


CS 






93 




INY 




CAAA 


DO 


F9 


CAA5 


94 




BNE 


GETBITSl 


CAAC 


E6 


B9 




95 




INC 


BMADR+1 


CAAE 


E6 


19 




96 




INC 


HALF 


CABO 


E6 


18 




97 




INC 


BASVAL 


CAB2 


Bl 


B8 




98 


GETBITS2 


LDA 


(BMADR) , Y 


CAB 4 


DO 


OD 


CAC3 


99 




BNE 


BITFOUND 


CAB 6 


CS 






100 




INY 




CAB 7 


DO 


F9 


CAB 2 


101 




BNE 


GETBITS2 


CAB 9 


C6 


B9 




102 




DEC 


BMADR+1 


CABB 


E6 


18 




103 




INC 


BASVAL 


CABD 


20 


57 


CB 


104 




JSR 


NXTBMAP 


CACO 


90 


DF 


CAAl 


105 




BCC 


SRCHFRE 


CAC2 


60 






106 




RTS 





; ALLOCATION OF THE INDEXES ALWAYS FILLS IN 

; STARTING AT THE BEGINNING OF THE BLOCK. 

; THIS GETS FIRST INDEX AND SETS UP A 

; POINTER TO THE FREE BLOCKS (TO AVOID 

; SCANNING THE WHOLE BLOCK EVERY TIME) . 

; SAVE INDEX BLOCK ADDRESS (LOW) 

; GET HIGH BYTE OF ADDRESS 

; (AND SAVE IT) 

; HAS REQUEST BEEN SATIFIED? 

; (CARRY IS CLEAR) 

; BUMP INDEX POINTER 

; GET INDEX POINTER TO LAST ACCESSED BIT GROUP 

; WHICH HALF OF MAP? (BOTH BMPTR S HALF SET UP BY 'ALCIBLK') 

; GET NEXT FREE BLOCK ADDRESS. 

; BRANCH IF NO ERROR 



GET NEXT FREE BLOCK ADDRESS FROM SECOND HALF OF BIT MAP 
BRANCH IF NO ERROR. 

RETURN STATUS (CARRY SET INDICATES ERROR) 



; GET ADDRESS OF BIT MAP IN 'BMADR' 

; BRANCH IF ERROR ENCOUNTERED 

; START SEARCH AT BEGINNING OF BIT MAP BLOCK 

; INDICATE WHICH HALF (PAGE) WE'RE SEARCHING. 

; FREE BLOCKS ARE INDICATED BY 'ON' BITS 

; CHECK ALL OF 'EM IN FIRST PAGE. 

; BUMP HIGH ADDRESS OF CURRENT BITMAP 

; INDICATE SEARCH HAS PROGRESSED TO PAGE 2 

; BASE VALUE= BASE ADDRESS/2048 

; SEARCH SECOND HALF FOR FREE BLOCK 



RESET BIT MAP ADDRESS TO BEGINNING. 
ADD 2048 OFFSET FOR NEXT PAGE 

GET NEXT BITMAP (IF IT EXISTS) AND UPDATE VCB . 
BRANCH IF NO ERROR ENCOUNTERED. 
RETURN ERROR. 
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CAC3 








108 


* 








CAC3 


84 


17 




109 


BITFOUND 


STY 


BMPTR 


SAVE INDX POINTER TO VALID BIT GROUP 


CAC5 


A5 


18 




110 




LDA 


BASVAL 


SET UP FOR BLOCK ADDRESS CALCULATION 


CAC7 


8D 


E4 


DB 


111 




STA 


SCRTCH+1 




CACA 


98 






112 




TYA 




GET ADDRESS OF BIT PATTERN 


CACB 


OA 






113 




ASL 


A 


MULTIPLY THIS AND BASVAL BY 8 


CACC 


2E 


E4 


DB 


114 




ROL 


SCRTCH+1 




CACF 


OA 






115 




ASL 


A 




CADO 


2E 


E4 


DB 


116 




ROL 


SCRTCH+1 




CADS 


OA 






117 




ASL 


A 




CAD 4 


2E 


E4 


DB 


118 




ROL 


SCRTCH+1 




CAD 7 


AA 






119 




TAX 




NOW X= LOW ADDRESS WITHIN 7 OF ACTUAL ADDRESS. 


CADS 


Bl 


B8 




120 




LDA 


(BMADR) , Y 


GET BIT PATTERN AGAIN 


CADA 


38 






121 




SEC 




MARK RIGHT END OF BYTE. 


CADB 


2A 






122 


ADCALC 


ROL 


A 


FIND LEFT MOST 'ON' BIT 


CADC 


BO 


03 


CAEl 


123 




BCS 


BOUNCE 


BRANCH IF FOUND. 


CADE 


E8 






124 




I NX 




ADJUST LOW ADDRESS 


CADF 


DO 


FA 


CADB 


125 




BNE 


ADCALC 


BRANCH ALWAYS 


CAEl 


4A 






126 


BOUNCE 


LSR 


A 


RESTORE ALL BUT LEFT MOST BIT TO ORIGINAL POSITION 


CAE 2 


90 


ED 


CAEl 


127 




BCC 


BOUNCE 


LOOP UNTIL MARK (SET ABOVE) MOVES INTO CARRY 


CAE 4 


91 


B8 




128 




STA 


(BMADR) , Y 


UPDATE BITMAP TO SHOW ALLOCATED BLOCK IN USE. 


CAE 6 


8E 


E3 


DB 


129 




STX 


SCRTCH 


SAVE LOW ADDRESS. 


CAE 9 


A6 


lA 




130 




LDX 


BMTAB 


UPDATE BIT MAP BUFFER STATUS 


CAEB 


A9 


80 




131 




LDA 


#S80 


INDICATE MAP HAS BEEN MODIFIED 


CAED 


15 


IC 




132 




ORA 


BMASTAT, X 


(X IS EITHER OR 6 FOR 


CAEF 


95 


IC 




133 




STA 


BMASTAT, X 


BUFFER 'A' OR 'B' RESPECTIVELY.) 


CAFl 


AO 


14 




134 




LDY 


#VCBTFRE 


SUBTRACT 1 FROM TOTAL FREE 


CAE 3 


Bl 


B6 




135 




LDA 


(VCBPTR) , Y 


BLOCKS IN VCB TO ACCOUNT FOR NEWLY 


CAES 


E9 


01 




136 




SBC 


#1 


ALLOCATED BLOCK (CARRY IS SET FROM 'BOUNCE') 


CAE 7 


91 


B6 




137 




STA 


(VCBPTR) , Y 




CAE 9 


BO 


07 


CB02 


138 




BCS 


RETIBLK 


BRANCH IF HI FREE COUNT DOESN'T NEED ADJUSTMENT. 


CAEB 


C8 






139 




INY 






CAFC 


Bl 


B6 




140 




LDA 


(VCBPTR) , Y 


ADJUST HIGH COUNT. 


CAFE 


E9 


00 




141 




SBC 


#0 


(CARRY IS CLEAR, SO ACC=ACC-1) 


CBOO 


91 


B6 




142 




STA 


(VCBPTR) , Y 




CB02 


18 






143 


RETIBLK 


CLC 




INDICATE NO ERROR ENCOUNTERED 


CB03 


AD 


E3 


DB 


144 




LDA 


SCRTCH 


GET ADDRESS LOW IN ACC . 


CB06 


AC 


E4 


DB 


145 




LDY 


SCRTCH+1 


AND HIGH ADDRESS IN Y 


CB0 9 


60 






146 




RTS 




RETURN ADDRESS OF NEWLY ALLOCATED BLOCK. 


CBOA 








147 


* 
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CBOA 








149 


* 








CBOA 


AO 


10 




150 


GTTINDX 


LDY 


#VCBDEV 


GET DEVICE NUMBER SO WE DON'T 


CBOC 


A2 


00 




151 




LDX 


#0 


ANTICPATE USING BUFFER 'A' . 


CBOE 


Bl 


B6 




152 




LDA 


(VCBPTR) , Y 


USE THE BUFFER USED BY IT! 


CBIO 


C5 


ID 




153 




CMP 


BMADEV 


IS IT IN BUFFER ' A' ? 


CB12 


FO 


OA 


CBIE 


154 




BEQ 


FREEBE 


IF SO, FREE 'B' ! 


CB14 


C5 


23 




155 




CMP 


BMBDEV 


IF NOT, IS IT IN 'B ' ? 


CB16 


FO 


08 


CB20 


156 




BEQ 


FREEA 


IF SO, FREE UP BUFFER 'A' 


CB18 


20 


7F 


CB 


157 




JSR 


FNDBMAP 


OTHERWISE, FORCE ALLOCATION FOR ONE OF THE 


CBIB 


90 


ED 


CBOA 


158 




BCC 


GTTINDX 


NOW TRY AGAIN. 


CBID 


60 






159 




RTS 




RETURN ERROR. 


CBIE 








160 


* 








CBIE 


A2 


06 




1 61 


FREEBE 


LDX 


#BMTABSZ 


DE-ALLOCATE BUFFER IF NECESSARY 


CB20 


86 


OC 




1 62 


FREEA 


STX 


NOFREE 


SAVE WHICH BUFFER WE'RE LOOKIN AT. 


CB22 


B4 


IC 




163 




LDY 


BMASTAT, X 


DO WE NEED TO WRITE BUFFER TO FREE IT? 


CB24 


10 


OD 


CB33 


164 




BPL 


USEBUF 


NO, THEN USE IT. 


CB2 5 


86 


3D 




165 




STX 


ZPGTEMP 


SAVE BM BUFFER ID FOR A BIT 


CB28 


20 


4F 


CC 


165 




JSR 


WRTBMAP 


WRITE BM TO OWNING UNIT 


CB2B 


BO 


29 


CB56 


167 




BCS 


SOMERRl 


RETURN ANY ERROR (W/0 RELEASING BM) 


CB2D 


A6 


3D 




168 




LDX 


ZPGTEMP 


FETCH THE BM BUFFER ID 


CB2F 


A9 


00 




169 




LDA 


#0 




CB31 


95 


IC 




170 




STA 


BMASTAT, X 


AND MARK BM BUFFER AS FREE 


CB33 


A6 


OC 




171 


USEBUF 


LDX 


NOFREE 


GET INDEX TO BUFFER INFO 


CB35 


A9 


00 




172 




LDA 


#0 


MARK STATUS OF BUFFER AS FREE. 


CB37 


95 


ID 




173 




STA 


BMADEV, X 


(DEVICE IS NOT ANY DEVICE) 


CB39 


85 


B2 




174 




STA 


TINDX 




CB3B 


85 


B8 




175 




STA 


BMADR 




CB3D 


BD 


IE 


00 


176 




LDA 


BMAMADR, X 


GET MEMORY ADDRESS OF FREE BUFFER. 


CB40 


85 


B3 




177 




STA 


TINDX+1 




CB42 


8A 






178 




TXA 




SET UP PROPER HI ADDRESS OF BIT MAP TOO... 


CB43 


49 


06 




179 




EOR 


#BMTABSZ 


SELECT ALTERNATE BIT MAP TABLE. 


CB45 


85 


lA 




180 




STA 


BMTAB 


(TO INDICATE WHICH IS BITMAP) 


CB47 


AA 






181 




TAX 






CB48 


BD 


IE 


00 


182 




LDA 


BMAMADR, X 


GET HIGH ADDRESS OF BIT MAP. 


CB4B 


85 


B9 




183 




STA 


BMADR+1 




CB4D 


A5 


IB 




184 




LDA 


BMBUFBNK 


AND BANK PAIR NUMBER. 


CB4F 


8D 


B3 


14 


185 




STA 


SSTIDXH 




CB52 


8D 


B9 


14 


186 




STA 


SISBMADR 




CB55 


18 






187 




CLC 




INDICATE NO ERRORS 


CBS 6 


60 






188 


SOMERRl 


RTS 






CB57 








189 
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CB57 


AO 


13 




191 


NXTBMAP 


LDY 


#VCBTBLK+1 


BEFORE BUMPING TO NEXT MAP, 


CB59 


Bl 


B6 




192 




LDA 


(VCBPTR) , Y 


CHECK TO BE SURE THERE IS 


CB5B 


4A 






193 




LSR 


A 


INDEED A NEXT MAP ! 


CB5C 


4A 






194 




LSR 


A 




CB5D 


4A 






195 




LSR 


A 




CB5E 


4A 






196 




LSR 


A 




CB5F 


AO 


IC 




197 




LDY 


#VCBCMAP 




CB61 


Dl 


B6 




198 




CMP 


(VCBPTR) , Y 


ARE THERE MORE MAPS? 


CB63 


FO 


51 


CBB6 


199 




BEQ 


NOMORBIT 


BRANCH IF NO MORE TO LOOK AT. 


CB65 


Bl 


B6 




200 




LDA 


(VCBPTR) , Y 


ADD 1 TO CURRENT MAP 


CB67 


18 






201 




CLC 






CB68 


69 


01 




202 




ADC 


#1 




CB6A 


91 


B6 




203 




STA 


(VCBPTR) , Y 




CB6C 


AO 


10 




204 




LDY 


#VCBDEV 




CB6E 


Bl 


B6 




205 




LDA 


(VCBPTR) , Y 




CB70 


AA 






206 




TAX 




GO WRITE OUT LAST MAP IF NECESSARY 


CB71 


20 


E4 


CB 


207 




JSR 


UPBMAP 




CB74 


4C 


7F 


CB 


208 




JMP 


FNDBMAP 


READ NEXT BIT MAP INTO BUFFER 


CB77 








209 


* 








CB77 


A2 


00 




210 


GETA.BUF 


LDX 


#0 




CB7 9 


FO 


OE 


CB89 


211 




BEQ 


FRESHMAP 




CB7B 








212 










CB7B 


A2 


06 




213 


GETB . BUF 


LDX 


#BMTABSZ 




CB7D 


DO 


OA 


CB8 9 


214 




BNE 


FRESHMAP 


BRANCH ALWAYS 


CB7F 








215 










CB7F 








216 










CB7F 


AO 


10 




217 


FNDBMAP 


LDY 


#VCBDEV 


GET DEVICE NUMBER 


CB81 


Bl 


B6 




218 




LDA 


(VCBPTR) , Y 




CB83 


A2 


00 




219 




LDX 


#0 


START WITH MAP 'A' 


CB85 


D5 


ID 




220 


FNDMAP 1 


CMP 


BMADEV, X 




CB87 


DO 


OC 


CB95 


221 




BNE 


TRYMAP2 




CB89 


86 


lA 




222 


FRESHMAP 


SIX 


BMTAB 


SAVE POINTER TO BIT MAP INFO TABLE 


CB8B 


B4 


IC 




223 




LDY 


BMASTAT, X 


IS THIS ONE ALREADY MODIFIED? 


CB8D 


30 


OE 


CB9D 


224 




BMI 


BMFOUND 


YES, RETURN POINTER IN 'BMADR' 


CB8F 


20 


10 


CC 


225 




JSR 


GTBMAP 


OTHERWISE READ IN FRESH BIT MAP 


CB92 


90 


09 


CB9D 


226 




BCC 


BMFOUND 


BRANCH IF SUCCESSFUL. 


CB94 


60 






227 




RTS 




OTHERWISE, RETURN ERROR. 


CB95 








228 










CB95 


CA 






229 


TRYMAP2 


DEX 




WAS LAST FAILURE MAP 'A' 


CB96 


10 


22 


CBBA 


230 




BPL 


FRBMBUF 


NO, MUST FREE UP ONE OF THE BUFFERS 


CB98 


A2 


06 




231 




LDX 


# BMTAB SZ 


TRY BIT MAP BUFFER 'B'. 


CB9A 


4C 


85 


CB 


232 




JMP 


FNDMAP 1 
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CB9D 








234 


* 








CB9D 


A6 


lA 




235 


BMFOUND 


LDX 


BMTAB 


WHICH TABLE? 


CB9F 


AO 


IC 




236 




LDY 


#VCBCMAP 




CBAl 


Bl 


B6 




237 




LDA 


(VCBPTR) , Y 




CBA3 


OA 






238 




ASL 


A 




CBA4 


85 


18 




239 




STA 


BASVAL 




CBA6 


BD 


IE 


00 


240 




LDA 


BMAMADR, X 


GET HIGH ADDRESS 


CBA9 


85 


B9 




241 




STA 


BMADR+1 




CBAB 


A5 


IB 




242 




LDA 


BMBUFBNK 


GET BANK NUMBER OF BUFFER BIT MAP BUFFERS 


CBAD 


8D 


B9 


14 


243 




STA 


SISBMADR 




CBBO 


A9 


00 




244 




LDA 


#0 


BUFFERS ALWAYS FALL ON A PAGE BOUNDARY 


CBB2 


85 


B8 




245 




STA 


BMADR 




CBB4 


18 






246 




CLC 




INDICATE ALL IS VALID AND GOOD! 


CBB5 


60 






247 




RTS 






CBB6 








248 










CBB6 


A9 


00 




249 


NOMORBIT 


LDA 


#OVRERR 


INDICATE REQUEST CAN'T BE FILLED. 


CBB8 


38 






250 




SEC 




INDICATE ERROR 


CBB9 


60 






251 




RTS 






CBBA 








252 


* 








CBBA 


38 






253 


FRBMBUF 


SEC 






CBBB 


A6 


lA 




254 




LDX 


BMTAB 


FIND OUT WHICH WAS LAST USED. 


CBBD 


FO 


05 


CBC4 


255 




BEQ 


CHKBMB 


IF 'A' WAS USED CHECK 'B' FIRST 


CBBF 


18 






256 




CLC 




INDICATE 'A' IS CHECKED FIRST 


CBCO 


24 


IC 




257 




BIT 


BMASTAT 


IS BUFFER 'A' FREE (UNMODIFIED)? 


CBC2 


10 


B3 


CB7 7 


258 




BPL 


GETA.BUF 


YES, USE IT. 


CBC4 


24 


22 




259 


CHKBMB 


BIT 


BMBSTAT 


IS BUFFER 'B' FREE? 


CBC6 


90 


06 


CBCE 


260 




BCC 


FREBUFl 


BRANCH IF BOTH ARE USED 


CBC8 


10 


Bl 


CB7B 


2 61 




BPL 


GETB . BUF 


YES . . . 


CBCA 


24 


IC 




2 62 




BIT 


BMASTAT 


(CHECK 'A') 


CBCC 


10 


A9 


CB7 7 


263 




BPL 


GETA.BUF 




CBCE 


A2 


00 




264 


FREBUFl 


LDX 


#0 




CBDO 


90 


02 


CBD4 


265 




BCC 


FREBUFA 


BRANCH IF BUFFER 'A' HAS LEAST PRIORITY. 


CBD2 


A2 


06 




266 




LDX 


#BMTABSZ 




CBD4 


86 


3D 




267 


FREBUFA 


STX 


ZPGTEMP 


SAVE BM BUFF ID FOR A BIT 


CBD6 


20 


4F 


CC 


268 




JSR 


WRTBMAP 


XREG PASSES BM BUFF ID 


CBD9 


BO 


08 


CBE3 


269 




BCS 


NOGO 


ERROR ENCOUNTERED ON WRITING 


CBDB 


A6 


3D 




270 




LDX 


ZPGTEMP 


FETCH BM BUFF ID 


CBDD 


A9 


00 




271 




LDA 


#0 




CBDF 


95 


IC 




272 




STA 


BMASTAT, X 


AND MARK BM BUFFER AS FREE 


CBEl 


90 


9C 


CB7F 


273 




BCC 


FNDBMAP 


LOOK AGAIN FOR FRRE BIT MAP BUFFER SPACE 


CBE3 


60 






274 


NOGO 


RTS 




RETURN ERROR ON WRITING BM 


CBE4 








275 


* 








CBE4 


E4 


ID 




276 


UPBMAP 


CPX 


BMADEV 


UPDATE BIT MAP OF DEVICE X 


CBE6 


DO 


06 


CBEE 


277 




BNE 


UP BMI 




CBE8 


18 






278 




CLC 




FREE BUFFER 'A' IF NEEDED. 


CBE9 


24 


IC 




279 




BIT 


BMASTAT 




CBEB 


30 


El 


CBCE 


280 




BMI 


FREBUFl 


(CARRY CLEAR FOR BUFFER 'A') 


CBED 


60 






281 




RTS 
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CBEE 








283 


* 








CBEE 


E4 


23 




284 


UPBMl 


CPX 


BMBDEV 




CBFO 


DO 


04 


CBF6 


285 




BNE 


NOUPDAT 


DON'T UPDATE IF NOT NECESSARY. 


CBF2 


24 


22 




286 




BIT 


BMBSTAT 




CBF4 


30 


D8 


CBCE 


287 




BMI 


FREBUFl 


(CARRY IS SET) 


CBF6 


18 






288 


NOUPDAT 


CLC 






CBF7 


60 






289 




RTS 




RETURN 'NO ERROR' 


CBF8 








290 


* 








CBF8 






CBF8 


291 


CLEARBMS EQU 




MAKE SURE ALL BIT MAPS ASSOCIATED 


CBF8 








292 


* WITH 


A DEVICE 


ARE MARKED INVALID 




CBF8 








293 


* IF A 


NEW VOLUME IS LOGGED IN ON IT. 


CBF8 








294 


* INPUT 


ARG: A 


REG = DEVNUM 




CBF8 








2 95 


* X REG 


PRESERVED 




CBF8 


AO 


00 




2 96 




LDY 


#0 




CBFA 


C5 


ID 




2 97 




CMP 


BMADEV 




CBFC 


DO 


07 


CC05 


298 




BNE 


CLRBMl 


BRANCH IF BIT MAP A NOT OWNED 


CBFE 


24 


IC 




299 




BIT 


BMASTAT 




CCOO 


30 


02 


CC04 


300 




BMI 


CLRBM2 


BRANCH IF BITMAP A BUSY 


CC02 


84 


ID 




301 




STY 


BMADEV 


ELSE, CLEAR IT 


CC04 


60 






302 


CLRBM2 


RTS 




NEED ONLY CLEAR ONE 


CC05 


C5 


23 




303 


CLRBMl 


CMP 


BMBDEV 


BIT MAP B? 


ceo 7 


DO 


FB 


CC04 


304 




BNE 


CLRBM2 


BRANCH IF BIT MAP B NOT OWNED BY DEVNUM 


CC09 


24 


22 




305 




BIT 


BMBSTAT 




CCOB 


30 


F7 


CC04 


306 




BMI 


CLRBM2 


BRANCH IF BITMAP B BUSY 


CCOD 


84 


23 




307 




STY 


BMBDEV 


ELSE CLEAR IT 


CCOF 


60 






308 




RTS 




AND RETURN TO CALLER (NO ERRORS) 


CCIO 








309 


* 








CCIO 


95 


ID 




310 


GTBMAP 


STA 


BMADEV, X 


SAVE ACC AS CURRENT DEVICE FOR BUFFER 


CC12 


BD 


IE 


00 


311 




LDA 


BMAMADR, X 


GET HIGH ORDER ADDRESS OF BUFFER 


CC15 


85 


B9 




312 




STA 


BMADR+1 


SELECTED BY X 


CC17 


A5 


IB 




313 




LDA 


BMBUFBNK 


AND GET BANK PAIR NUMBER 


CC19 


8D 


B9 


14 


314 




STA 


SISBMADR 


OF BOTH BIT MAP BUFFERS 'A' AND 'B' 


CCIC 


AO 


IC 




315 




LDY 


#VCBCMAP 


GET LOWEST MAP NUMBER WITH FREE BLOCKS IN IT 


CCIE 


Bl 


B6 




316 




LDA 


(VCBPTR) , Y 




CC20 


95 


21 




317 




STA 


BMACMAP, X 


ASSOCIATE THE OFFSET WITH THE BITMAP CONTROL 


CC22 


18 






318 




CLC 






CC23 


AO 


lA 




319 




LDY 


#VCBDMAP 


ADD THIS NUMBER TO THE BASE 


CC25 


71 


B6 




320 




ADC 


(VCBPTR) , Y 


ADDRESS OF FIRST BIT MAP 


CC27 


95 


IF 




321 




STA 


BMADADR, X 


SAVE LOW ADDRESS OF BIT MAP TO BE USED. 


CC29 


C8 






322 




INY 




NOW GET HIGH DISK ADDRESS OF MAP 


CC2A 


Bl 


B6 




323 




LDA 


(VCBPTR) , Y 


ADD TO THIS THE STATE OF THE CARRY 


CC2C 


69 


00 




324 




ADC 


#0 




CC2E 


95 


20 




325 




STA 


BMADADR+1, X 


SAVE HIGH DISK ADDRESS TOO. 


CC30 








326 


; DROP 


INTO ' RDBMAP ' 




CC30 








327 


* 
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CC30 








329 


* 








CC30 


A9 


00 




330 




LDA 


#RDCMD 


(X CONTAINS AN INDEX TO DETERMINE WHICH BUFFER) 


CC32 


85 


CO 




331 


DOBMAP 


STA 


DHPCMD 


SAVE DEVICE COMMAND 


CC34 


A 5 


35 




332 




LDA 


DEVNUM 


FIX THE 'BIT MAP TRASH BUG' 


CC36 


48 






333 




PHA 




BY NOT MUNGING DEVNUM 


CC37 


B5 


ID 




334 




LDA 


BMADEV, X 


GET DEVICE NUMBER. 


CC39 


85 


35 




335 




STA 


DEVNUM 




CC3B 


B5 


IF 




336 




LDA 


BMADADR, X 


AND MAP'S DISK ADDRESS 


CC3D 


85 


C6 




337 




STA 


BLOKNML 




CC3F 


B5 


20 




338 




LDA 


BMADADR+1, X 




CC41 


85 


C7 




339 




STA 


BLOKNMH 




CC43 


BD 


IE 


00 


340 




LDA 


BMAMADR, X 


LASTLY GET THE ADDRESS OF THE BUFFER 


CC46 


A6 


IB 




341 




LDX 


BMBUFBNK 


AND BANK NUMBER. 


CC48 


20 


6A 


cc 


342 




JSR 


DOBITMAP 


(NOTE: LOW ADDRESS IS FIXED TO ZERO AS THIS IS A 


CC4B 


68 






343 




PLA 




RESTORE 


CC4C 


85 


35 




344 




STA 


DEVNUM 


THE DEVNUM WE CAME IN WITH! 


CC4E 


60 






345 




RTS 






CC4F 








346 


* 








CC4F 


A9 


01 




347 


WRTBMAP 


LDA 


#WRTCMD 


WRITE BIT MAP POINTED TO BY X 


CC51 


4C 


32 


cc 


348 




JMP 


DOBMAP 




CC54 








349 


* 








CC54 


A9 


01 




350 


WRTGBUF 


LDA 


#WRTCMD 


SET CALL FOR WRITE. 


CC56 


DO 


02 


CC5A 


351 




BNE 


SVGCMD 


BRANCH ALWAYS. 


CC58 


A9 


00 




352 


RDGBUF 


LDA 


#RDCMD 


SET CALL FOR READ . 


CC5A 


85 


CO 




353 


SVGCMD 


STA 


DHPCMD 


PASSED TO DEVICE HANDLER. 


CC5C 


A5 


C6 




354 




LDA 


BLOKNML 


SAVE CURRENT 


CC5E 


8D 


76 


CC 


355 




STA 


TTLINK 


GBUF BLOCK 


CC61 


A5 


C7 




356 




LDA 


BLOKNMH 


ADDRESS 


CC63 


8D 


77 


CC 


357 




STA 


TTLINK+1 


FOR DIRECTORY EXTEND 


CC66 


A9 


12 




358 




LDA 


#GBUF/256 


GET HIGH ADDRESS OF GENERAL BUFFER 


CC68 


A2 


00 




359 




LDX 


#0 


TO FORCE ACCESS TO NON BANK MEMORY. 


CC6A 






CC6A 


360 


DOBITMAP 


EQU 






CC6A 


85 


C3 




361 


DOIDX 


STA 


DBUFPH 




CC6C 


8E 


C3 


14 


362 




STX 


SISBPH 


SELECT BANK 


CC6F 


A9 


00 




363 




LDA 


#0 


GENERAL PURPOSE BUFFERS ALWAYS 


CC71 


85 


C2 




364 




STA 


DBUFPL 


START ON A PAGE BOUNDARY. 


CC73 


4C 


25 


CF 


365 




JMP 


FILEI02 


END VIA DEVICE DISPATCHER. 


CC76 








366 










CC76 






0002 


367 


TTLINK 


DS 


2 


GBUF CURRENT ADDRESS 


CC78 








368 










CC78 


A9 


01 




369 


WRTINDX 


LDA 


#WRTCMD 




CC7A 


A6 


02 




370 




LDX 


IDXADRL 


GET BLOCK ADDRESS OF INDEX BLOCK 


CC7C 


A4 


03 




371 




LDY 


IDXADRH 




CC7E 


85 


CO 




372 


DOFRST 


STA 


DHPCMD 


(ENTRY USED BY RD/WRTDFRST) 


CC80 


86 


C6 




373 




STX 


BLOKNML 




CC82 


84 


C7 




374 




STY 


BLOKNMH 




CC84 


A5 


B3 




375 




LDA 


TINDX+1 


HIGH RAM ADDRESS OF INDEX BLOCK 


CC86 


AE 


B3 


14 


376 




LDX 


SSTIDXH 


AND BANK NUMBER. 


CC89 


4C 


6A 


CC 


377 




JMP 


DOIDX 


AND GO DO REQUESTED OPERATION. 


CC8C 








378 










CC8C 


A9 


01 




379 


WRTDFRST 


LDA 


#WRTCMD 


WRITE FILE'S FIRST BLOCK (USED 


CC8E 


DO 


02 


CC92 


380 




BNE 


FADDR 


BY CREATE, SO ADDRESS IN 'D.' STUFF). 


CC90 


A9 


00 




381 


RDFRST 


LDA 


#RDCMD 




CC92 


AE 


CB 


DB 


382 


FADDR 


LDX 


DFIL+D.FRST 


(BUFFER ADDRESS IS IN 'TINDX') 


CC95 


AC 


cc 


DB 


383 




LDY 


DFIL+D.FRST+1 




CC98 


4C 


7E 


CC 


384 




JMP 


DOFRST 
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09 POSN 


OPEN 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 73 


CC9B 


AO 


12 




2 


GETMARK 


LDY 


#FCBMARK 


MOVE CURRENT POSITION MARKER TO 


CC9D 


Bl 


BA 




3 


GMARKl 


LDA 


(FCBPTR) , Y 


USER'S 4 BYTE BUFFER POINTED TO BY 


CC9F 


48 






4 




PHA 




C. MRKPTR IN SOS ZPAGE 


CCAO 


C8 






5 




INY 






CCAl 


CO 


15 




5 




CPY 


#FCBMARK+3 


USE STACK AS TEMPORARY STORAGE FOR THREE BYTE 


CCA3 


DO 


F8 


CC9D 


7 




BNE 


GMARKl 


POSITION VALUE. 


CCA5 


A9 


00 




8 




LDA 


#0 


THE FOURTH (HIGHEST ORDER) BYTE IS ALWAYS ZERO. 


CCA7 


AO 


03 




9 




LDY 


#3 




CCA9 


48 






10 




PHA 






CCAA 


58 






11 


MOVMRK 


PLA 






CCAB 


91 


A2 




12 




STA 


(C .MRKPTR) , Y 


MOVE TO USER ' S SPACE 


CCAD 


88 






13 




DEY 




IS THERE ANOTHER TO PULL FROM STACK? 


CCAE 


10 


FA 


CCAA 


14 




BPL 


MOVMRK 


YES, GET NEXT LOWER BYTE FROM STACK. 


CCBO 


18 






15 




CLC 




INDICATE NO ERROR. 


CCBl 


60 






15 




RTS 






CCB2 








17 


* 








CCB2 


20 


CD CC 


18 


SETMARK 


JSR 


ADJMARK 


MAKE ADJUSTMENTS TO REQUESTED MARK ACCORDING TO BASE. 


CCB5 


90 


01 


CCB8 


19 




BCC 


SMARKl 


BRANCH IF ADJUSTMENT WAS VALID. 


CCB7 


50 






20 




RTS 






CCB8 


A2 


02 




21 


SMARKl 


LDX 


#2 


NOW COMPARE END OF FILE WITH NEW 


CCBA 


AO 


17 




22 




LDY 


#FCBE0F+2 


POSITION TO BE SURE IT'S WITHIN 


CCBC 


B5 


2A 




23 


CMPEOF 


LDA 


TPOSLL, X 


THE BOUNDS OF CURRENTLY DEFINED 


CCBE 


Dl 


BA 




24 




CMP 


(FCBPTR) , Y 


LIMITS . 


ccco 


90 


47 


CDG9 


25 




BCC 


CKSAMBLK 


BRANCH IF MARK<EOF 


CCC2 


DO 


06 


CCCA 


26 




BNE 


ERRMEOF 


RETURN ERROR IF MARK>^ EOF 


CCC4 


88 






27 




DEY 






CCC5 


CA 






28 




DEX 






CCC6 


10 


F4 


CCBC 


29 




BPL 


CMPEOF 




CCC8 


30 


3F 


CD09 


30 




BMI 


CKSAMBLK 


BRANCH ALWAYS 


CCCA 


A9 


00 




31 


ERRMEOF 


LDA 


tPOSNERR 


TELL USER MARK IS OUT OF RANGE. 


CCCC 


60 






32 




RTS 




(CARRY IS SET TO INDICATE ERROR) 


CCCD 








33 


* 








CCCD 


A5 


A5 




34 


ADJMARK 


LDA 


C.MARK+3 


MAKE SURE FOURTH BYTE OF DISPLACE IS ZIP 


CCCF 


DO 


29 


CCFA 


35 




BNE 


ERRPOSN 


BRANCH TO ERR IF NOT 


CCDl 


A2 


FD 




35 




LDX 


#$FD 


ANTICIPATE OTHER THAN BASE OF ZERO 


CCD3 


AO 


12 




37 




LDY 


#FCBMARK 


FURTHER ASSUME IT'S A BASE OFFSET FROM CURRENT POSITION 


CCDS 


A5 


A2 




38 




LDA 


C . BASE 


NOW FIND OUT WHAT IT REALLY IS. 


CCD7 


4A 






39 




LSR 


A 


(CARRY SET=SUBTRACT, NON ZERO REMAINDER- OFFSET FROM EOF 


CCDS 


BO 


10 


CCEA 


40 




BCS 


SUBMARK 




CCDA 


FO 


22 


CCFE 


41 




BEQ 


AD JMRK 


BRANCH IF MARK IS FROM BEGINNING OF FILE 


CCDC 


Bl 


BA 




42 


ADDPOSN 


LDA 


(FCBPTR) , Y 


ADD USER QUANTITY TO CURRENT 


CCDE 


75 


A5 




43 




ADC 


C.MARK+3, X 


POSITION TO FORM NEW POSITION. 


CCEO 


95 


2D 




44 




STA 


>TPOSLL-$FD, X 


(NOTE: ZERO PAGE REFERENCE WRAPS AROUND IN Z-PAGE) 


CCE2 


C8 






45 




INY 






CCE3 


E8 






45 




I NX 






CCE4 


DO 


F6 


CCDC 


47 




BNE 


ADDPOSN 


ADD ALL THREE BYTES 


CCE6 


BO 


12 


CCFA 


48 




BCS 


ERRPOSN 


BRANCH IF OVERFLOW 


CCE8 


FO 


ID 


CD07 


49 




BEQ 


AD JMRK 1 


BRANCH ALWAYS 


CCEA 








50 


* 
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09 POSN.OPEN SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



CCEA 


DO 


02 


CGEE 


52 


SUBMARK 


BNE 


SUBPOSN 


BRANCH IF IT'S AN OFFSET FROM CURRENT POSITION 


CCEC 


AO 


15 




53 




LDY 


#FGBEOF 


OTHERWISE ASSUME OFFSET FROM END OF FILE. 


CCEE 


Bl 


BA 




54 


SUBPOSN 


LDA 


(FCBPTR) , Y 


SUBTRACT USER QUANTITY TO FORM 


CCFO 


F5 


A6 




55 




SBC 


C . MARK+3 , X 


NEW POSITION. IF FINAL 


CCF2 


95 


2D 




56 




STA 


>TPOSLL-$FD, X 


RESULT IS L.T. ZERO, THEN REPORT 


CCF4 


C8 






57 




INY 




POSITION ERROR. . . 


CCF5 


E8 






58 




I NX 






CCF6 


DO 


F6 


CGEE 


59 




BNE 


SUBPOSN 




CCF8 


BO 


OD 


CD07 


60 




BCS 


ADJMRKl 


BRANCH IF LEGAL POSITION CALCULATED. 


CCFA 


A9 


00 




61 


ERRPOSN 


LDA 


#POSNERR 




CCFC 


38 






62 




SEC 




INDICATE ERROR 


CCFD 


60 






63 




RTS 






CCFE 








64 


-1, 








CCFE 


A2 


02 




65 


ADJMRK 


LDX 


#2 


FIRST SET UP POSITION TEMPS USED 


CDOO 


B5 


A3 




66 


ADJMRKO 


LDA 


C .MARK, X 


BY BOTH POSITION ROUTINES 


CD02 


95 


2A 




67 




STA 


TPOSLL, X 




CD04 


CA 






68 




DEX 






CD05 


10 


F9 


CDOO 


69 




BPL 


ADJMRKO 




CD07 


18 






70 


ADJMRKl 


CLC 




NO ERRORS 


CD08 


60 






71 




RTS 






CD09 








72 










CDO 9 








73 










CD09 






CD09 


74 


RDPOSN 


EQU 






CD09 






CD09 


75 


CKSAMBLK 


EQU 






CDO 9 


AO 


13 




76 




LDY 


#FCBMARK+1 


FIRST TEST TO SEE IF NEW POSITION IS 


CDOB 


Bl 


BA 




77 




LDA 


(FCBPTR) , Y 


WITHIN THE SAME (CURRENT) DATA BLOCK. 


CDOD 


29 


FE 




78 




AND 


#$FE 




CDOF 


8D 


E3 


DB 


79 




STA 


SCRTCH 




CD12 


08 






80 




INY 




BUMP TO ACCESS HIGHEST ORDER ADDRESS BYTE 


CD13 


A5 


2B 




81 




LDA 


TPOSLH 


GET MIDDLE BYTE OF NEW POSITION 


CD15 


38 






82 




SEC 






CD16 


ED 


E3 


DB 


83 




SBC 


SCRTCH 




GDI 9 


8D 


E3 


DB 


84 




STA 


SCRTCH 




CDIC 


90 


OD 


CD2B 


85 




BCG 


TYPMARK 


BRANCH IF POSSIBLY L.T. CURRENT POSITION 


CDIE 


C9 


02 




86 




CMP 


#2 


MUST BE WITHIN 512 BYTES OF BEGINNING OF CURRENT 


GD20 


BO 


09 


CD2B 


87 




BCS 


TYPMARK 




CD22 


A5 


2C 




88 




LDA 


TPOSHI 


NOW MAKE SURE WERE TALKIN ABOUT 


CD24 


Dl 


BA 




89 




CMP 


(FCBPTR) , Y 


THE SAME 64K CHUNK! 


CD2 6 


DO 


03 


CD2B 


90 




BNE 


TYPMARK 


BRANCH IF WE AREN ' T . 


CD28 


4G 


54 


CE 


91 




JMP 


SVMARK 


IF WE IS, ADJUST FOB AND POSPTR AND RETURN. 


CD2B 








92 


* 








GD2B 


AO 


07 




93 


TYPMARK 


LDY 


#FGBSTYP 


NOW FIND OUT WHICH TYPE 


CD2D 


Bl 


BA 




94 




LDA 


(FCBPTR) , Y 


OF FILE WE'RE POSITIONING ON. 


CD2F 


FO 


22 


CD53 


95 




BEQ 


FERRTYP 


THERE IS NO SUCH TYPE AS ZERO, BRANCH NEVER! 


CD31 


C9 


04 




95 




CMP 


#4 


IS IT A TREE CLASS FILE? 


CD33 


90 


03 


CD38 


97 




BCG 


CHKDSKSW 


YES, GO POSITION 


CD35 


4C 


84 


CE 


98 




JMP 


DIRMARK 


NO, TEST FOR DIRECTORY TYPE. 


CD38 








99 










CD38 






CD38 


100 


CHKDSKSW 


EQU 




MAKE SURE S/HE HASN'T MOVED THE VOLUME 


CD38 


AO 


01 




101 




LDY 


#FCBDEVN 




CD 3 A 


Bl 


BA 




102 




LDA 


(FCBPTR) , Y 




CD3C 


85 


35 




103 




STA 


DEVNUM 


IffiiKE SURE DEVICE NUMBER PARM IS CURRENT 


CD3E 


20 


87 


D5 


104 




JSR 


TWRPROTl 


PASSES DEVNUM (CHECK DISK SWITCH) 


CD41 


AD 


BB 


D5 


105 




LDA 


DSWGLOB 


DISK SWITCH GLOBAL 


GD44 


FO 


15 


CD5B 


106 




BEQ 


TREPOS 


BRANCH IF NONE DETECTED 


GD4 6 


20 


OA 


C9 


107 


CHKDSKSl 


JSR 


VERFYVOL 


MATCHES VCBPTR VS. DEVNUM 
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09 POSN 


OPEN 


SOS 


1.1 BLOCK FILE 


MANAGER 


AUGUST-2006 PAGE 75 


CD4 9 


90 


10 CD5B 


108 


BCC 


TREPOS 


; BRANCH IF DISK HASN'T SWITCHED 


CD4B 


20 


2F DD 


109 


JSR 


USRREQ 


; POLITELY ASK USER TO MOUNT 


CD4E 


90 


F6 CD46 


110 


BCC 


CHKDSKSl 


; SAID HE DID, CHECK AGAIN 


CD50 


A9 


00 


111 


LDA 


#VNFERR 


; REFUSES TO MOUNT 


CD52 


60 




112 


RTS 






CD53 






113 








CD53 


AO 


00 


114 


FERRTYP LDY 


#FCBREFN 


; CLEAR ILLEGALLY TYPED FCB ENTRY 


CD55 


91 


BA 


115 


STA 


(FCBPTR) , Y 




CD57 


A9 


00 


116 


LDA 


#BADREFNUM 


; TELL EM THERE IS NO SUCH FILE 


CDS 9 


38 




117 


SEC 






CD 5 A 


50 




118 


RTS 






CD5B 






119 


* 
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09 POSN.OPEN SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 76 



CD5B 


AO 


07 




121 TREPOS 


LDY 


#FCBSTYP 


CD5D 


Bl 


BA 




122 


LDA 


(FOBPTR) , Y 


CD5F 


85 


07 




123 


STA 


LEVELS 


CD61 


AO 


08 




124 


LDY 


#FCBSTAT 


CD63 


Bl 


BA 




125 


LDA 


(FCBPTR) , Y 


CD65 


29 


40 




126 


AND 


#DATMOD 


CD67 


FO 


05 


0D6E 


127 


BEQ 


POSNEWl 


CD69 


20 


84 


OF 


128 


JSR 


WFCBDAT 


CD6C 


BO 


61 


ODOF 


129 


BOS 


POSERR 


CD6E 








130 * 






CD6E 


AO 


14 




131 POSNEWl 


LDY 


#FCBMARK+2 


CD70 


Bl 


BA 




132 


LDA 


(FCBPTR) , Y 


CD72 


29 


FE 




133 


AND 


#$FE 


CD74 


8D 


E3 


DB 


134 


STA 


SORTCH 


CD77 


A5 


20 




135 


LDA 


TPOSHI 


CD79 


38 






136 


SEC 




CD7A 


ED 


E3 


DB 


137 


SBC 


SORTCH 


CD7D 


90 


10 


0D9B 


138 


BOO 


P0SNEW2 


CD7F 


C9 


02 




139 


CMP 


#2 


CD81 


BO 


18 


0D9B 


140 


BOS 


P0SNEW2 


CD83 


A5 


07 




141 


LDX 


LEVELS 


CD85 


CA 






142 


DEX 




CD86 


DO 


75 


CDFD 


143 


BNE 


DATLEVEL 


CD88 


A5 


2B 




144 TSTINY 


LDA 


TPOSLH 


CD8A 


4A 






145 


LSR 


A 


CD8B 


05 


20 




146 


ORA 


TPOSHI 


CD8D 


DO 


50 


ODEB 


147 


BNE 


NOIDXDAT 


CD8F 


AO 


oo 




148 


LDY 


fFCBFRST 


CD91 


Bl 


BA 




149 


LDA 


(FCBPTR) , Y 


CD93 


85 


06 




150 


STA 


BLOKNML 


CD95 


C8 






151 


INY 




CD96 


Bl 


BA 




152 


LDA 


(FCBPTR) , Y 


CD98 


4C 


4A 


OE 


153 


JMP 


RNEWPOS 


CD9B 








154 * 







; USE STORAGE TYPE AS NUMBER 

; OF LEVELS (SINCE 1=SEED, 2=SAPLING, AND 3=TREE) 

; SINCE IT'S A DIFFERENT DATA 

; BLOCK, MUST NOT FORGET PREVIOUS DATA. 

; THEREFORE, SEE IF PREVIOUS DATA WAS MODIFIED 

; THEN DISK MUST BE UPDATED. 

; GO WRITE CURRENT DATA BLOCK. 

; RETURN ANY ERROR ENCOUNTERED. 

; TEST TO SEE IF CURRENT 

; INDEX BLOCK IS GOING TO BE USABLE... 

; OR IN OTHER WORDS- 

; IS NEW POSITION WITHIN 128K OF THE BEGINNING 

; OF CURRENT SAPLING LEVEL CHUNK. 



; BRANCH IF A NEW INDEX BLOCK IS ALSO NEEDED 

; NEW POSITION IS > THAN BEGINING OF OLD. IS IT WITHIN 128K? 

; BRANCH IF NOT. 

; IS THE FILE WE'RE DEALING WITH A SEED? 

; NO, USE CURRENT INDEXES. 

; IS NEW POSITION UNDER 512? 



; NO, MARK BOTH DATA AND INDEX BLOCK AS UN-ALLOCATED. 
; FIRST BLOCK IS ONLY BLOCK AND IT'S DATA! 



; (HIGH BLOCK ADDRESS) 

; GO READ IN BLOCK AND SET APPROPRIATE STATUSES. 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 77 


CD9B 


AO 


08 




155 


P0SNEW2 


LDY 


#FCBSTAT 


GOTA CHECK TO SEE IF PREVIOUS 


CD9D 


Bl 


BA 




157 




LDA 


(FOBPTR) , Y 


INDEX BLOCK WAS MODIFIED. 


CD9F 


29 


80 




158 




AND 


#IDXMOD 




CDAl 


FO 


05 


0DA8 


159 




BEQ 


POSNIDX 


READ IN OVER IT IF CURRENT IS UP TO DATE. 


CDA3 


20 


94 


OF 


160 




JSR 


WFCBIDX 


GO UPDATE INDEX ON DISK (BLOCK ADDR IN FOB) 


CDA6 


BO 


27 


ODOF 


161 




BOS 


POSERR 




CDA8 


A6 


07 




162 


POSNIDX 


LDX 


LEVELS 


BEFORE READING IN TOP INDEX, CHECK TO BE SURE 


CDAA 


EO 


03 




163 




CPX 


#3 


THAT THERE IS A TOP INDEX... 


CDAC 


FO 


23 


ODDl 


164 




BEQ 


POSINDEX 


BRANCH IF FILE IS FULL BLOWN TREE. 


CDAE 


A5 


2C 




165 




LDA 


TPOSHI 


IS NEW POSITION WITHIN RANGE OF A 


CDBO 


4A 






165 




LSR 


A 


SAPLING FILE (L.T. 128K) ? 


CDBl 


08 






167 




PHP 




ANTICIPATE NO GOOD. 


CDB2 


A9 


07 




168 




LDA 


#TOPALC+IDXALO+DATALC ; (TO INDICATE NO LEVEL IS ALLOCATED FOR NEW POSITION 


CDB4 


28 






169 




PLP 




Z FLAG TELLS ALL... 


CDB5 


DO 


5D 


0E14 


170 




BNE 


NODATA 


GO MARK ' EM ALL DUMMY . 


CDB7 


20 


7B 


OE 


171 




JSR 


CLRSTATS 


GO CLEAR STATUS BITS 0,1,2 (INDEX/DATA ALLOC STATUS). 


CDBA 


CA 






172 




DEX 




(UNAFFECTED SINCE LOADED ABOVE) CHECK FOR SEED 


CDBB 


FO 


CB 


OD88 


173 




BEQ 


TSTINY 


IF SEED, CHECK FOR POSITION L.T. 512... 


CDBD 


20 


FO 


OE 


174 




JSR 


RFCBFST 


GO GET ONLY INDEX BLOCK 


CDCO 


BO 


OD 


ODOF 


175 




BOS 


POSERR 


BRANCH IF ERROR 


CDC2 


AO 


OE 




176 




LDY 


#FCBIDXB 


SAVE NEWLY LOADED INDEX BLOCK'S ADDRESS 


CDC4 


A5 


C6 




177 




LDA 


BLOKNML 




CDC 6 


91 


BA 




178 




STA 


(FCBPTR) , Y 




CDC8 


C8 






179 




INY 






CDC 9 


A5 


C7 




180 




LDA 


BLOKNMH 




CDCB 


91 


BA 




181 




STA 


(FCBPTR) , Y 




CDCD 


90 


2E 


ODFD 


182 




BOO 


DATLEVEL 


BRANCH ALWAYS . . . 


CDCF 


38 






183 


POSERR 


SEC 






CDDO 


60 






184 




RTS 






CDDl 








185 










CDDl 


20 


7B 


OE 


186 


POSINDEX 


JSR 


CLRSTATS 


CLEAR ALL ALLOCATION REQUIREMENTS FOR PREVIOUS POSITION 


CDD4 


20 


FO 


OE 


187 




JSR 


RFCBFST 


GET HIGHEST LEVEL INDEX BLOCK. 


ODD 7 


BO 


F5 


ODOF 


188 




BOS 


POSERR 




ODD 9 


A5 


20 




189 




LDA 


TPOSHI 


THEN TEST FOR A SAP LEVEL INDEX BLOCK 


CDDB 


4A 






190 




LSR 


A 




CDDC 


A8 






191 




TAY 






CDDD 


Bl 


B2 




192 




LDA 


(TINDX) , Y 




CDDF 


E6 


B3 




193 




INC 


TINDX+1 




CDEl 


Dl 


B2 




194 




CMP 


(TINDX) , Y 


(BOTH HI AND LO WILL BE ZERO IF NO INDEX EXISTS) 


CDE3 


DO 


OB 


ODFO 


195 




BNE 


SAPLEVEL 




CDE5 


C9 


00 




196 




CMP 


#0 


ARE BOTH BYTES ZERO? 


CDE7 


DO 


07 


ODFO 


197 




BNE 


SAPLEVEL 




CDE9 


C6 


B3 




198 




DEC 


TINDX+1 


DON'T LEAVE WRONG POINTERS LAYING AROUND! 


CDEB 


A9 


03 




199 


NOIDXDAT 


LDA 


#IDXALC+DATALO 


SHOW NEITHER INDEX OR DATA BLOCK ALLOCATED. 


CDED 


4C 


14 


OE 


200 




JMP 


NODATA 




CDFO 








201 


* 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


CDFO 


85 


C6 


203 


SAP LEVEL 


STA 


BLOKNML 


CDF2 


Bl 


B2 


204 




LDA 


(TINDX) , Y 


CDF4 


85 


C7 


205 




STA 


BLOKNMH 


CDF6 


C6 


B3 


206 




DEC 


TINDX+1 


CDF8 


20 


D8 CE 


207 




JSR 


RFCBIDX 


CDFB 


BO 


D2 CDCF 


208 




BCS 


POSERR 


CDFD 


A5 


2C 


209 


DATLEVEL 


LDA 


TPOSHI 


CDFF 


4A 




210 




LSR 


A 


CEOO 


A5 


2B 


211 




LDA 


TPOSLH 


CE02 


5A 




212 




ROR 


A 


CE03 


A8 




213 




TAY 




CE04 


Bl 


B2 


214 




LDA 


(TINDX) , Y 


CE06 


E6 


B3 


215 




INC 


TINDX+1 


CEOS 


Dl 


B2 


216 




CMP 


(TINDX) , Y 


CEOA 


DO 


38 CE44 


217 




BNE 


P0SNEW3 


CEOC 


C9 


00 


218 




CMP 


#0 


CEOE 


DO 


34 CE44 


219 




BNE 


P0SNEW3 


CEIO 


A9 


01 


220 




LDA 


#DATALC 


CE12 


C6 


B3 


221 




DEC 


TINDX+1 


CE14 






222 


* 






CE14 


AO 


08 


223 


NODATA 


LDY 


#FCBSTAT 


CE16 


11 


BA 


224 




ORA 


(FCBPTR) , 


CE18 


91 


BA 


225 




STA 


(FCBPTR) , 


CEIA 


4A 




226 




LSR 


A 


CEIB 


4A 




227 




LSR 


A 


CEIC 


20 


32 CE 


228 




JSR 


ZIPDATA 


CEIF 


90 


33 CE54 


229 




BCC 


SVMARK 


CE21 


91 


B2 


230 


ZIPIDX 


STA 


(TINDX) , Y 


CE23 


C8 




231 




INY 




CE24 


DO 


FB CE21 


232 




BNE 


Z IP IDX 


CE2 6 


E6 


B3 


233 




INC 


TINDX+1 


CE28 


91 


B2 


234 


ZPIDXl 


STA 


(TINDX) , Y 


CE2A 


C8 




235 




INY 




CE2B 


DO 


FB CE28 


235 




BNE 


ZPIDXl 


CE2D 


C6 


B3 


237 




DEC 


TINDX+1 


CE2F 


4C 


54 CE 


238 




JMP 


SVMARK 


CE32 






239 








CE32 


A9 


00 


240 


ZIPDATA 


LDA 


#0 


CE34 


A8 




241 




TAY 




CE35 


91 


BC 


242 


ZIPDATO 


STA 


(DATPTR) , 


CE37 


C8 




243 




INY 




CE38 


DO 


FB CE35 


244 




BNE 


ZIPDATO 


CE3A 


E6 


BD 


245 




INC 


DATPTR+1 


CE3C 


91 


BC 


246 


ZPDATl 


STA 


(DATPTR) , 


CE3E 


C8 




247 




INY 




CE3F 


DO 


FB CE3C 


248 




BNE 


ZPDATl 


CE41 


C6 


BD 


249 




DEC 


DATPTR+1 


CE43 


60 




250 




RTS 




CE44 






251 


* 







AUGUST-2006 PAGE 78 

; READ IN NEXT LOWER INDEX BLOCK 

; (HI ADDRESS) 

; READ IN SAPLING LEVEL 

; NOW GET BLOCK ADDRESS OF DATA BLOCK 

; ( IF THERE IS ONE ) 

; DATA BLOCK ADDRESS LOW 

; SHOW DATA BLOCK AS NEVER BEEN ALLOCATED 

; SET STATUS TO SHOW WHATS MISSIN' 

; THROW AWAY BIT THAT SAYS DATA BLOCK UN-ALLOCATED 

; CUZ WE KNOW THAT. CARRY NOW INDICATES IF INDEX BLOCK 

; ALSO IS INVALID AND NEEDS TO BE ZEROED (CARRY UNDISTURBED) 

; BRANCH IF INDEX BLOCK DOESN'T NEED ZIPPIN. 

; RESTORE PROPER ADDRESS 

; ALSO IS INVALID AND NEEDS TO BE ZEROED. 

; ZERO OUT DATA AREA 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 PAGE 79 


CE44 








253 


* 








CE44 


85 


C6 




254 


P0SNEW3 


STA 


BLOKNML 


; GET DATA BLOCK OF NEW POSITION 


CE46 


Bl 


B2 




255 




LDA 


(TINDX) , Y 


; (HI ADDRESS) 


CE4 8 


C6 


B3 




256 




DEC 


TINDX+1 




CE4A 


85 


C7 




257 


RNEWPOS 


STA 


BLOKNMH 




CE4C 


20 


CA 


CE 


258 




JSR 


RFCBDAT 




CE4F 


BO 


28 


CE7 9 


259 




BCS 


PRITZ 


; RETURN ANY ERROR 


CE51 


20 


7B 


CE 


260 




JSR 


CLRSTATS 


; SHOW WHOLE CHAIN IS ALLOCATED 


CE54 


AO 


14 




261 


SVMARK 


LDY 


#FCBMARK+2 


; UPDATE POSITION IN FILE CONTROL BLOCK 


CE55 


A2 


02 




262 




LDX 


#2 




CE58 


Bl 


BA 




263 


SVMRKl 


LDA 


(FCBPTR) , Y 


; REMEMBER OLDMARK IN CASE 


CE5A 


99 


El 


DB 


264 




STA 


OLDMARK-FCBMARK, Y ; CALLING ROUTINE FAILS LATER 


CE5D 


B5 


2A 




2 65 




LDA 


TPOSLL, X 




CE5F 


91 


BA 




2 66 




STA 


(FCBPTR) , Y 




CE61 


88 






2 67 




DEY 






CE62 


CA 






2 68 




DEX 




; MOVE 3 BYTE POSITION MARKER 


CE63 


10 


F3 


CE58 


269 




BPL 


SVMRKl 




CE65 








270 


* 








CE65 


18 






271 




CLC 




; LAST, BUT NOT LEAST, SET UP 


CE66 


A5 


BC 




272 




LDA 


DATPTR 


; INDIRECT ADDRESS TO BUFFER PAGE POINTED 


CE68 


85 


BE 




273 




STA 


POSPTR 


; TO BY THE CURRENT POSITION MARKER. 


CE6A 


A5 


2B 




274 




LDA 


TPOSLH 




CE6C 


29 


01 




275 




AND 


#1 




CE6E 


65 


BD 




276 




ADC 


DATPTR+1 




CE70 


85 


BF 




277 




STA 


POSPTR+1 




CE72 


AD 


BD 


14 


278 




LDA 


SISDATP 




CE75 


8D 


BF 


14 


279 




STA 


SISPOSP 


; SISTER PAGE BYTE ALSO. 


CE78 


60 






280 




RTS 




; CARRY SHOULD ALWAYS BE CLEAR 


CE79 


38 






281 


PRITZ 


SEC 




; RANDOM ERROR 


CE7A 


60 






282 




RTS 




; RETURN 


CE7B 








283 










CE7B 








284 










CE7B 


AO 


08 




285 


CLRSTATS 


LDY 


#FCBSTAT 


; CLEAR ALLOCATION STATES FOR DATA BLOCK 


CE7D 


Bl 


BA 




285 




LDA 


(FCBPTR) , Y 


; AND BOTH LEVELS OF INDEXES. 


CE7F 


29 


F8 




287 




AND 


#$FF-TOPALC- 


IDXALC-DATALC 


CE81 


91 


BA 




288 




STA 


(FCBPTR) , Y 


; THIS SAYS THAT EITHER THEY EXIST CURRENTLY 


CE83 


50 






289 




RTS 




; OR THAT THEY'RE UNNECESSARY FOR CURRENT POSITION 


CE84 








290 


* 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE MANAGER 




AUGUST-2006 PAGE 80 


CE84 








292 


* 












CE84 


C9 


OD 




293 


DIRMARK 


CMP 


#DIRTYP 






IS IT A DIRECTORY? 


CE86 


FO 


05 


CE8D 


2 94 




BEQ 


DIRPOS 






YES . . . 


CE88 


A9 


00 




2 95 




LDA 


#CPTERR 






NO, THERE IS A COMPATABLITY PROBLEM- 


CE8A 


20 


00 


00 


296 




JSR 


SYSERR 






THE DAMN THING SHOULD OF NEVER BEEN OPENED! 


CE8D 








2 97 














CE8D 


AD 


E3 


DB 


2 98 


DIRPOS 


LDA 


SCRTCH 






RECOVER RESULTS OF PREVIOUS SUBTRACTION. 


CE90 


4A 






299 




LSR 


A 






USE DIFFERENCE AS COUNTER AS TO HOW MANY 


CE91 


85 


OB 




300 




STA 


CNTENT 






BLOCKS MUST BE READ TO GET TO NEW POSITION. 


CE93 


AO 


13 




301 




LDY 


#FCBMARK+1 






TEST FOR POSITION DIRECTION. 


CE95 


Bl 


BA 




302 




LDA 


(FCBPTR) , Y 








CE97 


C5 


2B 




303 




CMP 


TPOSLH 






CARRY INDICATES DIRECTION. . . 


CE99 


90 


OD 


CEA8 


304 




BCC 


DIRFWRD 






IF SET, POSITION FORWARD. 


CE9B 


AO 


00 




305 


DIRVRSE 


LDY 


#0 






OTHERWISE, READ DIRECTORY FILE IN REVERSE ORDER 


CE9D 


20 


B5 


CE 


306 




JSR 


DIRPOSl 






READ PREVIOUS BLOCK. 


CEAO 


BO 


22 


CEC4 


307 




BCS 


DRPOSERR 






BRANCH IF ANYTHING GOES WRONG. 


CEA2 


E6 


OB 




308 




INC 


CNTENT 






COUNT UP TO 128 


CEA4 


10 


F5 


CE9B 


309 




BPL 


DIRVRSE 






LOOP IF THERE IS MORE BLOCKS TO PASS OVER. 


CEA6 


30 


AC 


CE54 


310 




BMI 


SVMARK 






BRANCH ALWAYS. 


CEA8 








311 


* 












CEA8 


AO 


02 




312 


DIRFWRD 


LDY 


#2 






POSITION IS FORWARD FROM CURRENT POSITION. 


CEAA 


20 


B5 


CE 


313 




JSR 


DIRPOSl 






READ NEXT DIRECTORY BLOCK. 


CEAD 


BO 


15 


CEC4 


314 




BCS 


DRPOSERR 








CEAF 


C6 


OB 




315 




DEC 


CNTENT 








CEBl 


DO 


F5 


CEA8 


316 




BNE 


DIRFWRD 






LOOP IF POSITION NOT FOUND IN THIS BLOCK. 


CEB3 


FO 


9F 


CE54 


317 




BEQ 


SVMARK 






BRANCH ALWAYS . 


CEB5 








318 


* 












CEB5 


Bl 


BC 




319 


DIRPOSl 


LDA 


(DATPTR) , Y 






GET LINK ADDRESS OF PREVIOUS OR 


CEB7 


85 


C6 




320 




STA 


BLOKNML 






NEXT DIRECTORY BLOCK. 


CEB9 


C8 






321 




INY 








BUT FIRST BE SURE THERE IS A LINK. 


CEBA 


Dl 


BC 




322 




CMP 


(DATPTR) , Y 








CEBC 


DO 


08 


CEC6 


323 




BNE 


DIRP0S2 






BRANCH IF CERTAIN LINK EXISTS 


CEBE 


C9 


00 




324 




CMP 


#0 






ARE BOTHE LINK BYTES 0? 


CECO 


DO 


04 


CEC6 


325 




BNE 


DIRP0S2 






NOPE, JUST HAPPEN TO BE THE SAME VALUE. 


CEC2 


A9 


00 




326 




LDA 


#EOFERR 






SOMETHING IS WRONG WITH THIS DIRECTORY FILE! 


CEC4 


38 






327 


DRPOSERR 


SEC 








INDICATE ERROR 


CEC5 


60 






328 




RTS 










CEC6 








329 














CEC6 


Bl 


BC 




330 


D1RP0S2 


LDA 


(DATPTR) , Y 






(HIGH ORDER BLOCK ADDRESS) 


CEC8 


85 


C7 




331 




STA 


BLOKNMH 








CECA 








332 


* DROP INTO 'RFCBDAT' (READ 


FILE ' S 


DATA BLOCK) 


CECA 








333 


* 












CECA 








334 


* NOTE: FOR DIRECTORY POSITIONING NO OPTIMIZATION HAS BEEN 


CECA 








335 


* DONE SINCE DIRECTORY FILES 


WILL ALMOST ALWAYS BE LESS 


CECA 








336 


* THAN 6 


BLOCKS . 


IF MORE SPEED 


IS REQUIRED OR DIRECTORY 


CECA 








337 


* TYPE FILES ARE 


TO BE USED 


FOR 


OTHER PURPOSES REQUIRING 


CECA 








338 


* MORE BLOCKS, THEN THE RECOMMENDED METHOD IS TO CALL 


CECA 








339 


* 'RFCBDAT' FOR THE FIRST BLOCK 


AND GO DIRECTLY TO 


CECA 








340 


* DEVICE 


(VIA JME 


(lOUNITL) ) 


HANDLER FOR SUBSEQUENT 


CECA 








341 


* ACCESSES. 










CECA 








342 


* ALSO NOTE THAT 


NO CHECKING 


IS 


DONE FOR READ/WRITE 


CECA 








343 


* ENABLE 


SINCE A 


DIRECTORY FILE 


CAN ONLY BE OPENED 


CECA 








344 


* FOR READ ACCESS. 








CECA 








345 


* 
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09 POSN 


OPEN 


SOS 


1.1 BLOCK FILE 


MANAGER AUGUST-2006 PAGE 81 


CECA 








347 


* 






CECA 


A9 


00 




348 


RFCBDAT LDA 


#RDCMD 


SET READ COMMAND . 


CECC 


85 


CO 




349 


STA 


DHPCMD 




CECE 


A2 


BC 




350 


LDX 


#DATPTR 


USE X TO POINT AT ADDRESS OF DATA BUFFER 


CEDO 


20 


OE 


CF 


351 


JSR 


FILEIOl 


GO DO FILE INPUT. 


CED3 


AO 


10 




352 


LDY 


#FCBDATB 


SAVE BLOCK NUMBER JUST READ IN FOB. 


CED5 


90 


OE 


CEE5 


353 


BCC 


FCBLOKNM 


BRANCH IF NO ERRORS HAPPENED . 


CED7 


60 






354 


RTS 




RETURN ERROR 


CED8 








355 


* 






CED8 


A9 


00 




356 


RFCBIDX LDA 


#RDCMD 


PREPARE TO READ IN INDEX BLOCK. 


CEDA 


85 


CO 




357 


STA 


DHPCMD 




CEDC 


A2 


B2 




358 


LDX 


#TINDX 


POINT AT ADDRESS OF CURRENT INDEX BUFFER 


CEDE 


20 


OE 


CF 


359 


JSR 


FILEIOl 


GO READ INDEX BLOCK. 


CEEl 


BO 


oc 


CEEF 


360 


BCS 


RDFCBERR 


REPORT ERROR 


CEE3 


AO 


OE 




361 


LDY 


#FCBIDXB 


SAVE BLOCK ADDRESS OF THIS INDEX IN FCB . 


CEE5 


A5 


C6 




362 


FCBLOKNM LDA 


BLOKNML 




CEE7 


91 


BA 




363 


STA 


(FCBPTR) , Y 




CEE9 


C8 






364 


INY 






CEEA 


A5 


C7 




365 


LDA 


BLOKNMH 




CEEC 


91 


BA 




366 


STA 


(FCBPTR) , Y 




CEEE 


18 






367 


CLC 






CEEF 


60 






368 


RDFCBERR RTS 






CEFO 








369 








CEFO 


A2 


B2 




370 


RFCBFST LDX 


#TINDX 


POINT AT ADDRESS OF INDEX BUFFER 


CEF2 


AO 


OC 




371 


LDY 


#FCBFRST 


AND BLOCK ADDRESS OF FIRST FILE BLOCK IN 


CEF4 


A9 


00 




372 


LDA 


#RDCMD 


AND LASTLY, MAKE IT A READ! 


CEF6 








373 


* DROP INTO DOFILEIO 




CEF6 








374 








CEF6 


85 


CO 




375 


DOFILEIO STA 


DHPCMD 


SAVE COMMAND . 


CEF8 


Bl 


BA 




376 


LDA 


(FCBPTR) , Y 


GET DISK BLOCK ADDRESS FROM FCB. 


CEFA 


85 


C6 




377 


STA 


BLOKNML 




CEFC 


C8 






378 


INY 




BLOCK ZERO NOT LEGAL. 


CEFD 


Dl 


BA 




379 


CMP 


(FCBPTR) , Y 




CEFF 


DO 


09 


CFOA 


380 


BNE 


FILEIO 




CFOl 


C9 


00 




381 


CMP 


#0 


ARE BOTH BYTES ZERO? 


CF03 


DO 


05 


CFOA 


382 


BNE 


FILEIO 


NO, CONTINUE WITH REQUEST. 


CF05 


A9 


00 




383 


LDA 


#ALCERR 


OTHERWISE REPORT ALLOCATION ERROR. 


CF07 


20 


00 


00 


384 


JSR 


SYSDEATH 


NEVER RETURNS . . . 


CFOA 








385 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 82 


CFOA 


Bl 


BA 




387 


FILEIO 


LDA 


(FCBPTR) , Y 


GET HIGH ADDRESS OF DISK BLOCK 


CFOC 


85 


C7 




388 




STA 


BLOKNMH 




CFOE 


B5 


00 




389 


FILEIOl 


LDA 


0, X 


GET MEMORY ADDRESS OF BUFFER FROM 


CFIO 


85 


C2 




390 




STA 


DBUFPL 


S.O.S. ZERO PAGE POINTED TO BY 


CF12 


20 


BD 


D5 


391 




JSR 


WRAPADJ 


GO ADJUST FOR BANK CROSSING <SRS 82.162> 


CF15 


B5 


01 




392 




LDA 


1,X 




CF17 


85 


C3 




393 




STA 


DBUFPH 


SET HI BYTE 


CF19 


BD 


01 


14 


394 




LDA 


SISTER+1, X 


AND BANK PAIR BYTE. <SRS 82.162> 


CFIC 


8D 


C3 


14 


395 




STA 


SISBPH 




CFIF 


AO 


01 




395 




LDY 


#FCBDEVN 




CF21 


Bl 


BA 




397 




LDA 


(FCBPTR) , Y 


OF COURSE HAVING THE DEVICE NUMBER 


CF23 


85 


35 




398 




STA 


DEVNUM 


WOULD MAKE THE WHOLE OPERATION MORE MEANINGFUL... 


CF25 


A9 


02 




399 


FILEI02 


LDA 


#2 


ALSO, SET UP BYTE COUNT TO 512 AND 


CF27 


85 


C5 




400 




STA 


RQCNTH 


SET 'BYTES READ' POINTER TO 


CF2 9 


85 


34 




401 




STA 


lOACCESS 


(INTERUPT! SET TO INDICATE REG CALL MADE TO DEV HANDLER 


RETURN 


INTERUPT ! ) 












CF2B 


A9 


67 




402 




LDA 


#>TRASH 


A PLACE TO THROW BYTES READ AWAY 


CF2D 


85 


C8 




403 




STA 


BRDPTR 




CF2F 


A9 


CF 




404 




LDA 


#<TRASH 


LOCALLY DEFINED 


CF31 


85 


C9 




405 




STA 


BRDPTR+1 




CF33 


A9 


00 




406 




LDA 


#0 


SO THAT IT DOESN'T MESS UP ANY OTHER DATA. 


CF35 


85 


C4 




407 




STA 


RQCNTL 




CF37 


8D 


C9 


14 


408 




STA 


SSBRDPH 


('BYTES READ' IS THROWN AWAY) 


CF3A 


A5 


35 




409 


RPEATIOl 


LDA 


DEVNUM 


TRANSFER THE DEVICE NUMBER FOR DISPATCHER TO CONVERT TO 


NUMBER. 
















CF3C 


85 


CI 




410 




STA 


UNITNUM 




CF3E 


AO 


09 




411 


RPEATIOO 


LDY 


#$9 


PREPARE TO SAVE DEVICE PARMS 


CF40 


B9 


CO 


00 


412 


SAVPRMS 


LDA 


DEVICE, Y 


MOVE FROM Z PAGE 


CF43 


99 


69 


CF 


413 




STA 


RPTBLOK, Y 


TO MY OWN SPACE 


CF46 


88 






414 




DEY 




FROM $C9 THROUGH $C0 


CF47 


10 


F7 


CF40 


415 




BPL 


SAVPRMS 




CF4 9 






CF49 


416 


DMGRGO 


EQU 




CALL EXTERNAL DEVICE MANAGER 


CF4 9 


A9 


00 




417 




LDA 


#0 




CF4B 


8D 


00 


00 


418 




STA 


SERR 


CLEAR GLOBAL ERROR VALUE 


CF4E 


20 


00 


00 


419 




JSR 


DMGR 


CALL THE DRIVER 


CF51 


90 


05 


CF58 


420 




BCC 


RRITZ 


RTS IF NO ERRORS 


CF53 


C9 


00 




421 




CMP 


#XDISKSW 


DISKSWITCH ITERATES 


CF55 


FO 


02 


CF59 


422 




BEQ 


RPEATI02 


BRANCH IF DISK SWITCH AND REPEAT I/O REQUEST 


CF57 


38 






423 




SEC 




REPORT ERROR 


CF58 


60 






424 


RRITZ 


RTS 






CF5 9 


AO 


09 




425 


RPEATI02 


LDY 


#$9 


LENGTH OF PARM BLOCK 


CF5B 


B9 


69 


CF 


426 


GETPRMS 


LDA 


RPTBLOK, Y 




CF5E 


99 


CO 


00 


427 




STA 


DEVICE, Y 


RESTORE POSSIBLY DISTURBED PARM BLOCK 


CF61 


88 






428 




DEY 






CF62 


10 


F7 


CF5B 


429 




BPL 


GETPRMS 




CF64 


4C 


49 


CF 


430 




JMP 


DMGRGO 


AND TRY THE I/O AGAIN 


CF57 








431 










CF67 








432 










CF67 






0002 


433 


TRASH 


DS 


2 


ONLY USED TO PUT BYTES READ TO SLEEP 


CF69 






OOOA 


434 


RPTBLOK 


DS 


10 


DMGR PARM SAVE BLOCK 


CF73 








435 


* 








CF73 








436 


* 








CF73 


AO 


01 




437 


WFCBFST 


LDY 


#FCBDEVN 


FETCH THE 


CF75 


Bl 


BA 




438 




LDA 


(FCBPTR) , Y 


DEVICE NUMBER 


CF77 


AA 






439 




TAX 




AND UPDATE 


CF78 


20 


E4 


CB 


440 




JSR 


UPBMAP 


ITS BITMAP 


CF7B 


A2 


B2 




441 




LDX 


#TINDX 


POINT AT ADDRESS OF INDEX BLOCK 


CF7D 


AO 


OC 




442 




LDY 


#FCBFRST 


AND THE DISK ADDRESS OF FILE'S FIRST BLOCK IN FCB 
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09 POSN 


OPEN 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


CF7F 


A9 


01 




443 




LDA 


#WRTCMD 


CF81 


4C 


F6 


CE 


444 




JMP 


DOFILEIO 


CF84 








445 


* 






CF84 


A2 


BC 




446 


WFCBDAT 


LDX 


#DATPTR 


CF86 


AO 


10 




447 




LDY 


#FCBDATB 


CF88 


A9 


01 




448 




LDA 


#WRTCMD 


CF8A 


20 


F6 


CE 


449 




JSR 


DOFILEIO 


CF8D 


BO 


20 


CFAF 


450 




BCS 


FILIOERR 


CF8F 


A9 


BF 




451 




LDA 


#$FF-DATMOD 


CF91 


4C 


A9 


CF 


452 




JMP 


FCBUPDAT 


CF94 








453 


* 






CF94 


AO 


01 




454 


WFCBIDX 


LDY 


#FCBDEVN 


CF96 


Bl 


BA 




455 




LDA 


(FCBPTR) , Y 


CF98 


AA 






456 




TAX 




CF99 


20 


E4 


CB 


457 




JSR 


UPBMAP 


CF9C 


A2 


B2 




458 




LDX 


#TINDX 


CF9E 


AO 


OE 




459 




LDY 


#FCBIDXB 


CFAO 


A9 


01 




460 




LDA 


#WRTCMD 


CFA2 


20 


F5 


CE 


461 




JSR 


DOFILEIO 


CFA5 


BO 


08 


CFAF 


462 




BCS 


FILIOERR 


CFA7 


A9 


7F 




463 




LDA 


#$FF-IDXMOD 


CFA9 


AO 


08 




464 


FCBUPDAT 


LDY 


#FCBSTAT 


CFAB 


31 


BA 




465 




AND 


(FCBPTR) , Y 


CFAD 


91 


BA 




466 




STA 


(FCBPTR) , Y 


CFAF 


60 






467 


FILIOERR 


RTS 




CFBO 








468 








CFBO 








469 


* 







; LASTLY, MAKE IT A WRITE REQUEST. 
; AND GO DO IT! 



; POINT AT MEMORY ADDRESS WITH X AND DISK ADDRESS WITH Y. 

; WRITE DATA BLOCK. 

; REPORT ANY ERRORS 

; MARK DATA STATUS AS CURRENT. 



MAKE SURE 
THE BITMAP 

FOR THIS DEVICE ("X") 
IS UPDATED 
POINT AT ADDRESS OF INDEX BUFFER 
AND BLOCK ADDRESS OF THAT INDEX BLOCK. 

GO WRITE OUT INDEX BLOCK. 
REPORT ANY ERRORS 

MARK INDEX STATUS AS CURRENT. 
CHANGE STATUS BYTE TO 

REFLECT SUCCESSFUL DISK FILE UPDATE. 
(CARRY IS UNAFFECTED) 
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CFBO 


20 


80 


C4 


471 


OPEN 


JSR 


FINDFILE 


FIRST OF ALL LOOK UP THE FILE... 


CFB3 


90 


04 


CFB9 


472 




BCC 


OPENO 




CFB5 


C9 


00 




473 




CMP 


#BADPATH 


IS AN ATTEMPT TO OPEN A ROOT DIRECTORY? 


CFB7 


DO 


07 


CFCO 


474 




BNE 


ERROPN 


NO, PASS BACK ERROR 


CFB9 








475 










CFB9 


20 


F6 


DO 


476 


OPENO 


JSR 


TSTOPEN 


FIND OUT IF ANY OTHER FILES ARE WRITING 


CFBC 


90 


04 


CFC2 


477 




BCC 


OPENl 


TO THIS SAME FILE. (BRANCH IF NOT) 


CFBE 


A9 


00 




478 


ERRBUSY 


LDA 


#FILBUSY 


REPORT SHARED ACCESS NOT ALL01))fED . 


CFCO 


38 






479 


ERROPN 


SEC 






CFCl 


50 






480 




RTS 




RETURN ERROR. 


CFC2 








481 


* 








CFC2 


A5 


BC 




482 


OPENl 


LDA 


DATPTR 


GET ADDRESS OF FIRST FREE FCB FOUND 


CFC4 


85 


BA 




483 




STA 


FCBPTR 


DURING TEST OPEN SEQUENCE AND USE 


CFC6 


A5 


BD 




484 




LDA 


DATPTR+1 


IT AS FILE CONTROL AREA. IF HIGH BYTE OF 


CFC8 


85 


BB 




485 




STA 


FCBPTR+1 


POINTER IS ZERO, THEN NO FCB 


CFCA 


DO 


04 


CFDO 


486 




BNE 


ASGNFCB 


IS AVAILABLE FOR USE. 


CFCC 


A9 


00 




487 




LDA 


#FCBFULL 


REPORT FCB FULL ERROR. 


CFCE 


38 






488 




SEC 






CFCF 


50 






489 




RTS 






CFDO 








490 


* 








CFDO 


AO 


IF 




491 


ASGNFCB 


LDY 


#$1F 


ASSIGN FCB, BUT FIRST 


CFD2 


A9 


00 




4 92 




LDA 


#0 


CLEAN OUT ANY OLD RUBBISH LEFT AROUND... 


CFD4 


91 


BA 




4 93 


CLRFCB 


STA 


(FCBPTR) , Y 




CFD6 


88 






4 94 




DEY 






CFD7 


10 


FB 


CFD4 


4 95 




BPL 


CLRFCB 




CFD9 


AO 


05 




495 




LDY 


#FCBENTN 


NOW BEGIN CLAIM BY MOVING IN FILE 


CFDB 


B9 


B3 


DB 


497 


FCBOWNR 


LDA 


D . DEV-1, Y 


OD^NERSHIP INFORMATION. 


CEDE 


91 


BA 




4 98 




STA 


{FCBPTR} , Y 


NOTE: THIS CODE DEPENDS UPON THE DEFINED 


CFEO 


88 






4 99 




DEY 




ORDER OF BOTH THE FCB AND DIRECTORY ENTRY 


CFEl 


DO 


F8 


CFDB 


500 




BNE 


FCBOWNR 


BUFFER (D.). BEWARE OF CHANGES!!! ************* 


CFE3 


AD 


BA 


DB 


501 




LDA 


DFIL+D . STOR 


GET STORAGE TYPE. 


CFE6 


4A 






502 




LSR 


A 


STRIP OFF FILE NAME LENGTH. 


CFE7 


4A 






503 




LSR 


A 




CFE8 


4A 






504 




LSR 


A 


(BY DIVIDING BY 16) 


CFE9 


4A 






505 




LSR 


A 




CFEA 


AA 






505 




TAX 




SAVE IN X FOR LATER TYPE COMPARISON 


CFEB 


AO 


07 




507 




LDY 


#FCBSTYP 




CFED 


91 


BA 




508 




STA 


(FCBPTR) , Y 


SAVE STORAGE TYPE. 


CFEF 


A5 


A7 




509 




LDA 


C . OPLSTLN 


IS THERE AN OPEN LIST? 


CFFl 


FO 


11 


D004 


510 




BEQ 


DEFOPEN 


NO, USE DEFAULT REQUST ACCESS... 


OFF 3 


AO 


00 




511 




LDY 


#0 


YES, FIND OUT WHAT ACCESS IS REQUESTED. 


CFF5 


Bl 


A5 




512 




LDA 


(C.OPLIST) , Y 


IF REQ-ACCESS IS ZERO, THEN 


CFF7 


FO 


OB 


D004 


513 




BEQ 


DEFOPEN 


USE DEFAULTS . . . 


CFF9 


2D 


D8 


DB 


514 




AND 


DFIL+D. ATTR 


CHECK REQUEST AGAINST ATTRIBUTES. 


CFFC 


Dl 


A5 




515 




CMP 


(C.OPLIST) , Y 


WERE ALL ACCESS REQUESTS SATISFIED? 


CFFE 


FO 


09 


D009 


516 




BEQ 


SVATTRB 


YES, SAVE ATTRIBUTES. 


DOOO 


A9 


00 




517 




LDA 


#ACCSERR 


REPORT ACCESS REQUEST CAN'T BE MET. 


D002 


38 






518 




SEC 






D003 


50 






519 




RTS 
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D004 


AD 


D8 


DB 


521 


DEFOPEN 


LDA 


DFIL+D . ATTR 


GET FILES ATTRIBUTES AND 


D007 


29 


03 




522 




AND 


#READEN+WRI TEN 


USE IT AS A DEFAULT ACCESS REQUEST. 


D009 


AO 


09 




523 


SVATTRB 


LDY 


#FCBATTR 




DOOB 


EO 


OD 




524 




CPX 


#DIRTYP 


IF DIRECTORY, DON'T ALLOW WRITE ENABLE 


DOOD 


DO 


02 


DOll 


525 




BNE 


SVATTRl 




DOOF 


29 


01 




526 




AND 


#READEN 




DOll 


91 


BA 




527 


SVATTRl 


STA 


(FCBPTR) , Y 




D013 


29 


02 




528 




AND 


#WRITEN 


CHECK FOR WRITE ENABLED REQUESTED . 


D015 


FO 


04 


DOIB 


529 




BEQ 


0PEN2 


BRANCH IF READ ONLY OPEN. 


D017 


A5 


08 




530 




LDA 


TOTENT 


OTHERWISE, BE SURE NO ONE ELSE IS READING SAME 


D019 


DO 


A3 


CFBE 


531 




BNE 


ERRBUSY 


FILE (SET UP BY TSTOPEN) . 


DOIB 


AD 


D7 


DB 


532 


0PEN2 


LDA 


DFIL+D . COMP 


OH, BY THE WAY... IS THIS FILE 


DOIE 


FO 


04 


D024 


533 




BEQ 


0PEN3 


COMPATABLE WITH VERSION 0000? *************** 


D020 


A9 


00 




534 


ERRCMPAT 


LDA 


#CPTERR 


REPORT FILE IS INCOMPATABLE ! 


D022 


38 






535 




SEC 






D023 


60 






536 




RTS 






D024 








537 


* 








D024 


EO 


04 




538 


0PEN3 


CPX 


#TRETYP+1 


IS IT A TREE TYPE FILE? 


D025 


90 


04 


D02C 


539 




BCC 


0PEN4 


TEST FOR FURTHER COMPATABLITY . IT MUST 


D028 


EO 


OD 




540 




CPX 


#DIRTYP 


BE EITHER A TREE OR A DIRECTORY. 


D02A 


DO 


F4 


D020 


541 




BNE 


ERRCMPAT 


REPORT INCOMPATABLE . 


D02C 


AO 


OC 




542 


0PEN4 


LDY 


#FCBFRST 


MOVE ADDRESS OF FIRST BLOCK OF FILE 


D02F 


AD 


CB 


DB 


543 




LDA 


DFIL+D . ERST 


INTO FOB. NO CHECKING IS DONE FOR VALIDITY. 


D031 


91 


BA 




544 




STA 


(FCBPTR) f Y 




D033 


85 


C6 




545 




STA 


BLOKNML 




D035 


C8 






546 




INY 






D036 


AD 


CC 


DB 


547 




LDA 


DFIL+D. FRST+1 




D039 


91 


BA 




548 




STA 


(FCBPTR) , Y 


NOTE: THE FCB HAS NOT BEEN OFFICIALLY 


D03B 


85 


C7 




549 




STA 


BLOKNMH 


CLAIMED YET. TO DO THIS, THE FIRST BYTE 


D03D 


AO 


15 




550 




LDY 


#FCBEOF 


MUST CONTAIN A VALID REFERENCE NUMBER. 


D03F 


B9 


BA 


DB 


551 


EOFCBMV 


LDA 


DFIL+D . EOF-FCBEOF 


Y ; MOVE CURRENT END OF FILE 


D042 


91 


BA 




552 




STA 


(FCBPTR) , Y 


TO FCB. 


D044 


C8 






553 




INY 






D045 


CO 


18 




554 




CPY 


#FCBE0F+3 




D047 


DO 


F6 


D03F 


555 




BNE 


EOFCBMV 




D049 


AD 


CD 


DB 


556 




LDA 


DFIL+D. USAGE 




D04C 


91 


BA 




557 




STA 


(FCBPTR) , Y 


AND CURRENT BLOCK COUNT OF FILE. 


D04E 


C8 






558 




INY 






D04F 


AD 


CE 


DB 


559 




LDA 


DFIL+D . USAGE+1 




D052 


91 


BA 




560 




STA 


(FCBPTR) , Y 




D054 


A5 


A7 




561 




LDA 


C . OPLSTLN 


NOW THAT WE'VE COME THIS FAR, FIND 


D056 


FO 


28 


D080 


562 




BEQ 


DEFBUFR 


OUT WHICH TYPE OF BUFFER AND ALLOCATE IT! 


D058 


C9 


01 




563 




CMP 


#1 


WAS IT ONLY TO SET ATTRIBUTES? 


D05A 


FO 


24 


D080 


564 




BEQ 


DEFBUFR 




D05C 


C9 


04 




565 




CMP 


#4 


IS A FULL ADDRESS INCLUDED? 


DOSE 


FO 


04 


D064 


566 




BEQ 


UBUFSPEC 




D060 


A9 


00 




567 




LDA 


#BADLSTCNT 




D062 


38 






568 




SEC 






D063 


60 






569 




RTS 






D064 








570 
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D064 


AO 


01 




572 


UBUFSPEC 


LDY 


#1 


(INDEX TO 'PAGECNT' OF OPEN LIST) 


D066 


Bl 


A5 




573 




LDA 


(C.OPLIST) , Y 


IS USER SPECIFING THE BUFFER? 


D068 


FO 


16 


D080 


574 




BEQ 


DEFBUFR 


NO, USE DEFAULT BUFFER (DYNAMIC) 


D06A 


EO 


04 




575 




CPX 


#TRETYP+1 


IF TREE TYPE FILE, THEN AT LEAS 4 PAGES ARE NEEDED 


D06C 


90 


08 


D076 


576 




BCC 


ONEKTST 


BRANCH IF TREE TYPE. 


D06E 


C9 


02 




577 




CMP 


#2 


DID USER GIVE AT LEAST 2 PAGES FOR DIRECTORY TYPE? 


D070 


BO 


08 


D07A 


578 




BCS 


FIXDBUF 


YES, LOG IT WITH BUFFER MANAGER 


D072 


A9 


00 




579 


ERRBTS 


LDA 


#BTSERR 


REPORT NOT ENOUGH BUFFER SPACE. 


D074 


38 






580 




SEC 






D075 


60 






581 




RTS 






D076 








582 


* 








D076 


C9 


04 




583 


ONEKTST 


CMP 


#4 


IS THERE AT LEAST ONE KILOBYTE BUFFER FOR TREES? 


D078 


90 


F8 


D072 


584 




BCC 


ERRBTS 


NO, THEN TO HELL WITH IT!. 


D07A 


20 


00 


00 


585 


FIXDBUF 


JSR 


REQFXBUF 


CALL BOB AND ASK FOR HIM TO FIX IT... 


D07D 


90 


OE 


D08D 


586 




BCC 


FCBUFFER 


GO SAVE BUFFER NUMBER. 


D07F 


60 






587 


ERROPNl 


RTS 




RETURN ANY ERROR ENCOUNTERED . 


D080 








588 


* 








D080 


A9 


04 




589 


DEFBUFR 


LDA 


#4 


ASSUME TREE FILE (4 PAGES REQUIRED) 


D082 


EO 


04 




590 




CPX 


#TRETYP+1 




D084 


90 


02 


D088 


591 




BCC 


BUFREQST 


BRANCH IF IT IS A TREE. 


D086 


A9 


02 




592 




LDA 


#2 


OTHERWIZE, WE JUST NEED TWO PAGES. 


D088 


20 


00 


00 


593 


BUFREQST 


JSR 


REQBUF 


CALL BOB TO ALLOCATE A DYNAMIC BUFFER. 


D08B 


BO 


F2 


D07F 


594 




BCS 


ERROPNl 


REPORT ANY ERRORS . 


D08D 


AO 


OB 




595 


FCBUFFER 


LDY 


#FCBBUFN 


SAVE BUFFER NUMBER AND THEN 


D08F 


91 


BA 




596 




STA 


(FCBPTR) , Y 


FIND OUT WHERE IT IS. 


D091 


20 


A4 


BE 


597 




JSR 


GTBUFFRS 


HAVE BOB RETURN ADDRESS IN DATA & INDEX POINTERS. 


D094 


BO 


2F 


DOCS 


598 




BCS 


ERR0PEN2 


IF ERROR, FREE BUFFER BEFOR RETURNING. 


D096 


AO 


00 




599 




LDY 


#FCBREFN 


NOW CLAIM FCB FOR THIS FILE. 


D098 


A5 


OB 




600 




LDA 


CNTENT 


THIS WAS SET UP BY 'TSTOPEN' 


D09A 


91 


BA 




601 




STA 


(FCBPTR) , Y 




D09C 


AO 


IB 




602 




LDY 


#FCBLEVL 


MARK LEVEL 


D09E 


AD 


00 


00 


603 




LDA 


LEVEL 


AT WHICH 


DOAl 


91 


BA 




604 




STA 


(FCBPTR) , Y 


FILE WAS OPENED 


D0A3 


AO 


07 




505 




LDY 


#FCBSTYP 


GET STORAGE TYPE AGAIN. 


D0A5 


Bl 


BA 




506 




LDA 


(FCBPTR) , Y 


FILE MUST BE POSITIONED TO BEGINNING. 


D0A7 


C9 


04 




507 




CMP 


#TRETYP+1 


IS IT A TREE FILE? 


D0A9 


BO 


2B 


D0D6 


608 




BCS 


OPNDIR 


NO, ASSUME IT'S A DIRECTORY. 


DOAB 


A9 


FF 




609 




LDA 


#$FF 


FOOL THE POSITION ROUTINE INTO GIVING 


DO AD 


AO 


12 




610 




LDY 


#FCBMARK 


A VALID POSITION WITH PRELOADED DATA, ETC. 


DOAF 


91 


BA 




611 


OPNPOS 


STA 


(FCBPTR) , Y 




DOBl 


C8 






612 




INY 






D0B2 


CO 


15 




513 




CPY 


#FCBMARK+3 




D0B4 


DO 


F9 


DOAF 


514 




BNE 


OPNPOS 




D0B6 


AO 


02 




515 




LDY 


#2 


SET DESIRED POSITION TO ZERO. 


DOBS 


A9 


00 




515 




LDA 


#0 




DOBA 


99 


2A 


00 


617 


OPNPOSl 


STA 


TPOSLL, Y 




DOBD 


88 






618 




DEY 






DOBE 


10 


FA 


DOBA 


619 




BPL 


OPNPOSl 




DOCO 


20 


09 


CD 


620 




JSR 


RDPOSN 


LET TREE POSITION ROUTINE DO THE REST. 


DOCS 


90 


16 


DODB 


621 




BCC 


OPENDONE 


BRANCH IF SUCCESSFUL. 


DOCS 








522 


* 
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DOCS 


48 




524 


ERR0PEN2 


PHA 




SAVE ERROR CODE. 


D0C6 


AO 


OB 


525 




LDY 


#FCBBUEN 


SINCE ERROR WAS ENCOUNTERED BEFORE FILE 


DOCS 


Bl 


BA 


626 




LDA 


(FCBPTR) , Y 


WAS SUCCESSFULLY OPENED, THEN 


DOCA 


20 


00 00 


627 




JSR 


RELBUF 


IT'S NECESSARY TO FREE THE BUFFER AND 


DOCD 


AO 


00 


628 




LDY 


#FCBREFN 


FILE CONTROL BLOCK. 


DOCF 


A9 


00 


629 




LDA 


#0 




DODl 


91 


BA 


630 




STA 


(FCBPTR) , Y 




D0D3 


58 




531 




PLA 






D0D4 


38 




532 




SEC 






D0D5 


50 




533 




RTS 






D0D6 






534 


* 








D0D6 


20 


CA CE 


635 


OPNDIR 


JSR 


RFCBDAT 


READ IN FIRST BLOCK OF DIRECTORY FILE. 


D0D9 


BO 


EA DOCS 


636 




BCS 


ERR0PEN2 


RETURN ANY ERROR AFTER FREEING BUFFER S FCB 


DODB 


AO 


IE 


637 


OPENDONE 


LDY 


#VCBOPNC 


INCREMENT OPEN COUNT FOR THIS 


DODD 


Bl 


B6 


63S 




LDA 


(VCBPTR) , Y 


VOLUME. ALSO MARK STATUS. 


DODF 


18 




639 




CLC 






DQEO 


59 


01 


540 




ADC 


#1 




D0E2 


91 


B5 


541 




STA 


(VCBPTR) , Y 




D0E4 


AO 


11 


542 




LDY 


#VCBSTAT 


HI BIT INDICATES VOLUME BUSY 


D0E6 


Bl 


B5 


543 




LDA 


(VCBPTR) , Y 




DOES 


09 


80 


644 




ORA 


#$80 




DOEA 


91 


B6 


645 




STA 


(VCBPTR) , Y 


DOESN'T MATTER HOW MANY, JUST BE SURE IT'S SET 


DOEC 


AO 


00 


646 




LDY 


#FCBREEN 


PASS USER HIS REFERENCE NUMBER 


DOEE 


Bl 


BA 


647 




LDA 


(FCBPTR) , Y 




DOFO 


AO 


00 


64S 




LDY 


#0 




D0F2 


91 


A3 


549 




STA 


(C.OUTREF) , Y 




D0F4 


18 




550 




CLC 






DOES 


50 




551 




RTS 






DOES 






552 


* 
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D0F6 








654 


* 








D0F6 


AD 


28 


00 


655 


TSTOPEN 


LDA 


FCBADDRH 


TEST FOR SHARED ACCESS FILES WITH WRITE ENABLED 


D0F9 


85 


BB 




656 




STA 


FCBPTR+1 




DOFB 


A5 


29 




657 




LDA 


FCBANKNM 




DOFD 


8D 


BB 


14 


658 




STA 


SISFCBP 




DlOO 


A9 


00 




659 




LDA 


#0 




D102 


85 


BD 




660 




STA 


DATPTR+1 


MARK AS NO FREE FOUND. 


D104 


85 


OB 




561 




STA 


CNTENT 




D1D5 


85 


08 




662 




STA 


TOTENT 


ALSO, INIT COUNT OF MATCHING FILES 


D108 


85 


BA 




663 


TSTOPNl 


STA 


FCBPTR 


SAVE NEW LOW ORDER ADDRESS 


DlOA 


A6 


BD 




664 




LDX 


DATPTR+1 


FIND OUT IF A FREE SPOT HAS BEEN FOUND YET. 


DIOC 


DO 


02 


DUO 


665 




BNE 


TST0PN2 


YES, DON'T INCREMENT REFNUM (CNTENT). 


DlOE 


E6 


OB 




666 




INC 


CNTENT 


BUMP REFNUM 


DUO 


AO 


00 




667 


TST0PN2 


LDY 


tFCBREFN 


TEST FOR IN USE FCB 


D112 


Bl 


BA 




668 




LDA 


(FCBPTR) , Y 


(NON ZERO) 


D114 


DO 


OE 


D124 


669 




BNE 


CHKACTV 


THIS FCB IS IN USE, COPARE OWNERSHIP. 


D116 


8A 






670 




TXA 




TEST AGAIN FOR FREE FCB 


D117 


DO 


29 


D142 


671 




BNE 


TSNXFCB 


BRANCH IF A FREE SPOT HAS ALREADY BEEN FOUND. 


D119 


A5 


BA 




572 




LDA 


FCBPTR 


TRANSFER CURRENT POINTER SO IT MAY BE 


DllB 


85 


BC 




573 




STA 


DATPTR 


USED AS A FREE FCB BY OPEN. 


DllD 


A5 


BB 




674 




LDA 


FCBPTR+1 


HIGH BYTE ALWAYS NON ZERO. 


DllF 


85 


BD 




675 




STA 


DATPTR+1 




D121 


4C 


42 


Dl 


676 




JMP 


TSNXFCB 




D124 








677 










D124 






D124 


678 


CHKACTV 


EQU 


J, 


IF MATCHING FILE IS SWAPPED, IT DOESNT COUNT 


D124 


AO 


lA 




679 




LDY 


#FCBSWAP 




D126 


Bl 


BA 




680 




LDA 


(FCBPTR) , Y 




D128 


DO 


18 


D142 


681 




BNE 


TSNXFCB 


BRANCH IF SWAPPED 


D12A 


AO 


06 




682 




LDY 


#FCBENTN 


NOTE: THIS CODE DEPENDS ON THE 


D12C 


Bl 


BA 




683 


WHOWNS 


LDA 


(FCBPTR) , Y 


DEFINED ORDER OF FCB AND DIRECTORY 


D12E 


D9 


B3 


DB 


684 




CMP 


D.DEV-1, Y 




D131 


DO 


OF 


D142 


685 




BNE 


TSNXFCB 


BRANCH IF THIS ONE HAS A DIFFERENT OWNER. 


D133 


88 






585 




DEY 






D134 


DO 


F5 


D12C 


587 




BNE 


WHOWNS 




D135 


E6 


08 




588 




INC 


TOTENT 


REPORT THIS ONE AS A CO-OWNER. 


D138 


AO 


09 




589 




LDY 


#FCBATTR 


NOW FIND OUT IF THIS ONE WANTS TO WRITE. 


D13A 


Bl 


BA 




690 




LDA 


(FCBPTR) , Y 




D13C 


29 


02 




691 




AND 


#WRITEN 


IF WRITE IS NOT ENABLED THEN CONTINUE. 


D13E 


FO 


02 


D142 


692 




BEQ 


TSNXFCB 




D140 


38 






693 




SEC 




OTHERWISE, JUST SET THE CARRY TO SHOW 


D141 


60 






694 




RTS 




THAT THE FILE CAN'T BE SHARED. 


D142 








595 


* 








D142 


A5 


BA 




595 


TSNXFCB 


LDA 


FCBPTR 


CALCULATE NEXT FCB AREA (+$20) 


D144 


18 






597 




CLC 






D145 


69 


20 




598 




ADC 


#$20 




D147 


90 


BF 


D108 


699 




BCC 


TSTOPNl 


LOOP IF NO PAGE CROSS . 


D149 


A6 


BB 




700 




LDX 


FCBPTR+1 




D14B 


E6 


BB 




701 




INC 


FCBPTR+1 




D14D 


EC 


28 


00 


702 




CPX 


FCBADDRH 


HAVE WE LOOKED AT BOTH PAGES? 


D150 


FO 


B6 


D108 


703 




BEQ 


TSTOPNl 


NOPE, LOOK AT PAGE TWO. 


D152 


18 






704 




CLC 




INDICATE NO FILES THAT SHARE HAVE WRITE ENABLED 


D153 


60 






705 




RTS 






D154 








705 


* 








D154 








707 




CHN 


RE AD. WRITE 
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FILE 
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D154 


18 






2 


READ 


CLC 




; FIRST DETERMINE IF REQESTED 


D155 


AO 


09 




3 




LDY 


#FCBATTR 


; READ IS LEGAL 


D157 


Bl 


BA 




4 




LDA 


(FCBPTR) , Y 




D159 


2 9 


01 




5 




AND 


#READEN 


; IS READ ENABLED? 


D15B 


DO 


04 


D161 


6 




BNE 


READl 


; YES, CONTINUE... 


D15D 


A9 


00 




7 




LDA 


#ACCSERR 


; REPORT ILLEGAL ACCESS. 


D15F 


38 






8 




SEC 






D160 


60 






9 




RTS 






D161 








10 


* 








D161 


AO 


12 




11 


READl 


LDY 


#FCBMARK 


; GET CURRENT MARK INTO ' TPOS ' AND 


D163 


Bl 


BA 




12 




LDA 


(FCBPTR) , Y 


; DETERMINE IF RESULTING POSITION 


D165 


85 


2A 




13 




STA 


TPOSLL 


; EXCEEDS CURRENT END OF FILE. 


D167 


65 


A4 




14 




ADC 


C . BYTES 




D169 


8D 


E3 


DB 


15 




STA 


SCRTCH 




Dl 6C 


C8 






16 




INY 






D16D 


Bl 


BA 




17 




LDA 


(FCBPTR) , Y 




D16F 


85 


2B 




18 




STA 


TPOSLH 




D171 


65 


A5 




19 




ADC 


C.BYTES+1 


; (THIS WAS DONE STRAIT-LINE SINCE 


D173 


8D 


E4 


DB 


20 




STA 


SCRTCH+1 


; WE'RE ADDING A TWO BYTE TO A THREE 


D176 


C8 






21 




INY 




; BYTE QUANTITY) 


D177 


Bl 


BA 




22 




LDA 


(FCBPTR) , Y 




D179 


85 


2C 




23 




STA 


TPOSHI 




D17B 


69 


00 




24 




ADC 


#0 


; ADD IN REMAINING CARRY. 


D17D 


8D 


E5 


DB 


25 




STA 


SCRTCH+2 




D180 


AO 


17 




26 




LDY 


#FCBE0F+2 


; NOW TEST EOF AGAINST POSITION GENERATED 


D182 


B9 


CE 


DB 


27 


EOFTEST 


LDA 


SCRTCH-FCBEOF 


Y 


D185 


Dl 


BA 




28 




CMP 


(FCBPTR) , Y 


; IS NEW POSITION > EOF? 


D187 


90 


IF 


D1A8 


29 




BCC 


READ 2 


; NO, PROCEED. 


D189 


DO 


05 


D190 


30 




BNE 


ADJSTCNT 


; YES, ADJUST 'C. BYTES' REQUEST 


D18B 


88 






31 




DEY 






D18C 


CO 


14 




32 




CPY 


#FCBE0F-1 


; HAVE WE COMPARED ALL TREE BYTES? 


D18E 


DO 


F2 


D182 


33 




BNE 


EOFTEST 


; NO, TEST NEXT LOWEST. 


D190 






D190 


34 


ADJSTCNT 


EQU 




; ADJUST REQUEST TO READ UP TO (BUT 


D190 


AO 


15 




35 




LDY 


#FCBEOF 


; NOT INCLUDING) END OF FILE. 


D192 


Bl 


BA 




36 




LDA 


(FCBPTR) , Y 


; RESULT= (EOF-l) -POSITION 


D194 


E5 


2A 




37 




SBC 


TPOSLL 




D196 


85 


A4 




38 




STA 


C . BYTES 




D198 


C8 






39 




INY 






D199 


Bl 


BA 




40 




LDA 


(FCBPTR) , Y 




Dl 9B 


E5 


2B 




41 




SBC 


TPOSLH 




D19D 


85 


A5 




42 




STA 


C . BYTES+1 




D19F 


05 


A4 




43 




ORA 


C. BYTES 


; IF BOTH BYTES ARE ZERO, REPORT EOF ERROR. 


DlAl 


DO 


05 


D1A8 


44 




BNE 


READ 2 




D1A3 


A9 


00 




45 




LDA 


#EOFERR 




D1A5 


20 


00 


00 


46 




JSR 


SYSERR 




D1A8 


A5 


A4 




47 


READ 2 


LDA 


C . BYTES 




DIAA 


85 


2D 




48 




STA 


RWREQL 




DIAC 


DO 


09 


D1B7 


49 




BNE 


READ 3 


; BRANCH IF READ REQUEST DEFINITELY NON-ZERO 


DIAE 


C5 


A5 




50 




CMP 


C.BYTES+1 




DIBO 


DO 


05 


D1B7 


51 




BNE 


READ 3 


; BRANCH IF READ REQUESTOZERO 


D1B2 


85 


2E 




52 




STA 


RWREQH 




D1B4 


4C 


6B 


D2 


53 


GORDDNE 


JMP 


READONE 


; DO NOTHING. 
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10 READ 


WRITE 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 90 


D1B7 








55 


* 








D1B7 


A5 


A5 




55 


READ 3 


LDA 


C.BYTES+1 




D1B9 


85 


2E 




57 




STA 


RWREQH 




DIBB 


A5 


A2 




58 




LDA 


C . OUTBUF 


MOVE POINTER TO USERS BUFFER TO BFM 


DIBD 


85 


BO 




59 




STA 


USRBUF 


Z-PAGE AREA. 


DIBF 


A2 


A2 




60 




LDX 


#C. OUTBUF 


<SRS 82.162> 


Did 


20 


BD 


D5 


61 




JSR 


WRAP AD J 


ADJUST FOR BANK CROSSING. <SRS 82.162> 


D1C4 


85 


Bl 




62 




STA 


USRBUF+1 




D1C5 


8C 


Bl 


14 


63 




STY 


SISUSRBF 


SAVE VALID USER BUFFER ADDRESS (THAT WILL NOT CROSS BANKS 


D1C9 


AO 


07 




64 




LDY 


#FCBSTYP 


NOW FIND OUT IF IT'S A TREE READ OR OTHER. 


DICE 


Bl 


BA 




65 




LDA 


(FCBPTR) , Y 




DICD 


C9 


04 




66 




CMP 


#TRETYP+1 




DICF 


90 


03 


D1D4 


67 




BCC 


TREAD 


BRANCH IF A TREE FILE. 


DlDl 


4C 


IE 


D3 


68 




JMP 


DREAD 


OTHEWISE ASSUME IT'S A DIRECTORY. 


D1D4 








69 










D1D4 


20 


09 


CD 


70 


TREAD 


JSR 


RDPOSN 


GET DATA POINTER SET UP. 


D1D7 


90 


03 


DIDC 


71 




BCC 


TREAD 


REPORT ANY ERRORS 


D1D9 


4C 


64 


D2 


72 




JMP 


ERRFIXl 




DIDC 


20 


7E 


D2 


73 


TREAD 


JSR 


PREPRW 


TEST FOR NEWLINE, SETS UP FOR PARTIAL READ. 


DIDF 


20 


A2 


D2 


74 




JSR 


READPART 


MOVE CURRENT DATA BUFFER CONTENTS TO USER AREA 


D1E2 


70 


DO 


D1B4 


75 




BVS 


GORDDNE 


BRANCH IF REQUEST IS SATISFIED. 


D1E4 


BO 


EE 


D1D4 


75 




BCS 


TREAD 


CARRY SET INDICATES NEWLINE IS SET. 


D1E6 


A5 


2E 




77 




LDA 


RWREQH 


FIND OUT HOW MANY BLOCKS ARE TO BE READ 


D1E8 


4A 






78 




LSR 


A 


IF LESS THAN TWO, THEN DO IT THE SLOW WAY. 


D1E9 


FO 


E9 


D1D4 


79 




BEQ 


TREAD 




DIEB 


85 


2F 




80 




STA 


BULKCNT 


SAVE BULK BLOCK COUNT. 


DIED 


AO 


08 




81 




LDY 


#FCBSTAT 


MAKE SURE CURRENT DATA AREA 


DIEF 


Bl 


BA 




82 




LDA 


(FCBPTR) , Y 


DOESN'T NEED TO BE WRITTEN BEFORE 


DlFl 


2 9 


40 




83 




AND 


#DATMOD 


RESETTING POINTER TO READ DIRECTLY INTO 


D1F3 


DO 


DF 


D1D4 


84 




BNE 


TREAD 


USER'S AREA. BRANCH IF DATA NEED TO BE WRITTEN 


D1F5 


85 


34 




85 




STA 


lOACCESS 


TO FORCE FIRST CALL THRU ALL DEVICE HANDLER CHECKING. 


D1F7 


A5 


BO 




85 




LDA 


USRBUF 


MAKE THE DATA BUFFER THE USER'S SPACE. 


D1F9 


85 


BC 




87 




STA 


DATPTR 




DIFB 


A5 


Bl 




88 




LDA 


USRBUF+1 




DIED 


85 


BD 




89 




STA 


DATPTR+1 




DIFF 


AD 


Bl 


14 


90 




LDA 


SISUSRBF 




D202 


8D 


BD 


14 


91 




STA 


SISDATP 




D205 








92 


* 
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10 READ 


WRITE 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 91 


D205 


20 


09 


CD 


94 


RDFAST 


JSR 


RDPOSN 


GET NEXT BLOCK DIRECTLY INTO USER SPACE. 


D208 


BO 


55 


D25F 


95 




BCS 


ERRFIX 


BRANCH ON ANY ERROR. 


D20A 


E6 


BD 




96 


RDFASTO 


INC 


DATPTR+1 


BUMP ALL POINTERS BY 512 (ONE BLOCK) 


D20C 


E6 


BD 




97 




INC 


DATPTR+1 




D20E 


C6 


2E 




98 




DEC 


RWREQH 




D210 


C5 


2E 




99 




DEC 


RWREQH 




D212 


E5 


2B 




100 




INC 


TPOSLH 




D214 


E6 


2B 




101 




INC 


TPOSLH 




D215 


DO 


07 


D21F 


102 




BNE 


RDFASTl 


BRANCH IF POSITION DOES NOT GET TO A 64K BOUNDARY 


D218 


E6 


2C 




103 




INC 


TPOSHI 


OTHERWISE, MUST CHECK FOR A 128K BOUNDARY 


D21A 


A5 


2C 




104 




LDA 


TPOSHI 


SET CARRY IF MOD 128K HAS BEEN REACHED 


D21C 


49 


01 




105 




EOR 


#1 




D21E 


4A 






106 




LSR 


A 




D21F 


C6 


2F 




107 


RDFAST 1 


DEC 


BULKCNT 


HAVE WE READ ALL WE CAN FAST? 


D221 


DO 


OB 


D22E 


108 




BNE 


RDFAST2 


BRANCH IF MORE TO READ. 


D223 


20 


07 


D3 


109 




JSR 


FXDATPTR 


GO FIX UP DATA POINTER TO SOS BUFFER. 


D226 


A5 


2D 




110 




LDA 


RWREQL 


TEST FOR END OF READ. 


D228 


05 


2E 




111 




ORA 


RWREQH 


ARE BOTH ZERO? 


D22A 


FO 


3F 


D2 5B 


112 




BEQ 


READONE 




D22C 


DO 


A6 


D1D4 


113 




BNE 


TREAD 


NO, READ LAST PARTIAL BLOCK. 


D22E 








114 










D22E 


BO 


D5 


D205 


115 


RDFAST2 


BCS 


RDFAST 




D230 


A5 


2C 




116 




LDA 


TPOSHI 


GET INDEX TO NEXT BLOCK ADDRESS 


D232 


4A 






117 




LSR 


A 




D233 


A5 


2B 




118 




LDA 


TPOSLH 




D235 


6A 






119 




ROR 


A 




D236 


A8 






120 




TAY 




INDEX TO ADDRESS IS INT(POS/512) 


D237 


Bl 


B2 




121 




LDA 


(TINDX) , Y 


GET LOW ADDRESS 


D239 


85 


C6 




122 




STA 


BLOKNML 




D23B 


E6 


B3 




123 




INC 


TINDX+1 




D23D 


Dl 


B2 




124 




CMP 


(TINDX) , Y 


ARE BOTH HI AND LOW ADDRESS THE SAME? 


D23F 


DO 


08 


D249 


125 




BNE 


REALRD 


NO, IT'S A REAL BLOCK ADDRESS. 


D241 


C9 


00 




125 




CMP 


#0 


ARE BOTH BYTES ZERO? 


D243 


DO 


04 


D249 


127 




BNE 


REALRD 


NOPE — MUST BE REAL DATA 


D245 


85 


34 




128 




STA 


lOACCESS 


DON'T DO REPEATIO JUST AFTER SPARSE 


D247 


FO 


03 


D24C 


129 




BEQ 


NOSTUF 


BRANCH ALWAYS (CARRY SET) 


D249 


Bl 


B2 




130 


REALRD 


LDA 


(TINDX) , Y 


GET HIGH ADDRESS BYTE 


D24B 


18 






131 




CLC 






D24C 


C6 


B3 




132 


NOSTUF 


DEC 


TINDX+1 




D24E 


BO 


B5 


D205 


133 




BCS 


RDFAST 


BRANCH IF NO BLOCK TO READ 


D250 


85 


C7 




134 




STA 


BLOKNMH 




D252 


A5 


34 




135 




LDA 


lOACCESS 


HAS FIRST CALL GONE TO DEVICE YET? 


D254 


FO 


AF 


D205 


135 




BEQ 


RDFAST 


NOPE, GO THRU NORMAL ROUTE... 


D256 


A5 


BD 




137 




LDA 


DATPTR+1 


RESET HI BUFFER ADDRESS FOR DEVICE HANDLER 


D258 


85 


C3 




138 




STA 


DBUFPH 




D25A 


20 


BD 


C2 


139 




JSR 


REPEATIO 




D25D 


90 


AB 


D20A 


140 




BCC 


RDFASTO 


BRANCH IF NO ERRORS. 
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10 READ 


WRITE 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 92 


D25F 


48 






142 


ERRFIX 


PHA 




SAVE ERROR CODE 


D260 


20 


07 


D3 


143 




JSR 


FXDATPTR 


GO RESTORE DATA POINTERS, ETC... 


D263 


68 






144 




PLA 






D2 64 


48 






145 


ERRFIXl 


PHA 




SAVE ERROR CODE 


D255 


20 


6B 


D2 


146 




JSR 


READONE 


PASS BACK NUMBER OF BYTES ACTUALLY READ. 


D268 


68 






147 




PLA 






D259 


38 






148 




SEC 




REPORT ERROR 


D26A 


60 






149 




RTS 






D26B 








150 


* 








D26B 


AO 


00 




151 


READONE 


LDY 


#0 


RETURN TOTAL NUMBER OF BYTES ACTUALLY READ 


D26D 


38 






152 




SEC 




THIS IS DERIVED FROM C . BYTES-RWREQ 


D2 6E 


A5 


A4 




153 




LDA 


C. BYTES 




D270 


E5 


2D 




154 




SBC 


RWREQL 




D272 


91 


A6 




155 




STA 


(C.OUTCNT) , Y 




D274 


C8 






156 




INY 






D275 


A5 


A5 




157 




LDA 


C . BYTES+1 




D277 


E5 


2E 




158 




SBC 


RWREQH 




D279 


91 


A5 




159 




STA 


(C.OUTCNT) , Y 




D27B 


4C 


09 


CD 


160 




JMP 


RDPOSN 


LEAVE WITH VALID POSITION IN FOB. 


D27E 








161 


* 








D27E 


38 






162 


PREPRW 


SEC 




ADJUST POINTER TO USER'S BUFFER TO 


D2 7F 


A5 


BO 




1 63 




LDA 


USRBUF 


MAKE THE TRANSFER 


D281 


E5 


2A 




1 64 




SBC 


TPOSLL 




D283 


85 


BO 




1 65 




STA 


USRBUF 




D285 


BO 


02 


D289 


166 




BCS 


PREPRWl 


BRANCH IF NO ADJUSTMENT TO HI ADDR. NEEDED. 


D287 


C6 


Bl 




167 




DEC 


USRBUF+1 


NOTE: SARA ALLOWS INDIRECT FROM $101 UP 


D289 


AO 


09 




168 


PREPRWl 


LDY 


#FCBATTR 


AS LONG AS ACTUAL RESULTING ADDRESS IS >=S200 


D28B 


Bl 


BA 




169 




LDA 


(FCBPTR) , Y 


TEST FOR NEW LINE ENABLED 


D28D 


2 9 


10 




170 




AND 


#NLINEN 


SET CARRY IF IT IS. 


D28F 


18 






171 




CLC 






D290 


FO 


07 


D299 


172 




BEQ 


NONEWLIN 


BRANCH IF NEWLINE IS NOT ENABLED 


D292 


38 






173 




SEC 






D293 


AO 


OA 




174 




LDY 


#FCBNEWL 




D295 


Bl 


BA 




175 




LDA 


(FCBPTR) , Y 


MOVE NEWLINE CHARACTER TO MORE 


D297 


85 


30 




176 




STA 


NLCHAR 


ACCESSABLE SPOT. 


D299 


A4 


2A 




177 


NONEWLIN 


LDY 


TPOSLL 


GET INDEX TO FIRST DATA 


D2 9B 


A5 


BC 




178 




LDA 


DATPTR 


RESET LOW ORDER OF POSPTR TO BEGINNING OF PAGE. 


D2 9D 


85 


BE 




179 




STA 


POSPTR 




D2 9F 


A6 


2D 




180 




LDX 


RWREQL 


AND LASTLY GET LOW ORDER COUNT OF REQUESTED BYTES 


D2A1 


60 






181 




RTS 




RETURN STATUSES . . . 


D2A2 








182 










D2A2 


8A 






183 


READPART 


TXA 






D2A3 


DO 


05 


D2AB 


184 




BNE 


RDPARTO 


BRANCH IF REQUEST IS NOT A EVEN PAGES 


D2A5 


A5 


2E 




185 




LDA 


RWREQH 


A CALL OF ZERO BYTES SHOULD NEVER GET HERE ! 


D2A7 


FO 


47 


D2F0 


186 




BEQ 


SETRDNE 


BRANCH IF NOTHIN' TO DO. 


D2A9 


C6 


2E 




187 




DEC 


RWREQH 




D2AB 


CA 






188 


RDPARTO 


DEX 






D2AC 


Bl 


BE 




189 


RDPART 


LDA 


(POSPTR) , Y 


MOVE DATA TO USER'S BUFFER 


D2AE 


91 


BO 




190 




STA 


(USRBUF) , Y 


ONE BYTE AT A TIME. 


D2B0 


8A 






191 




TXA 




NOTE: THIS ROUTINE IS CODED TO BE 


D2B1 


FO 


19 


D2CC 


192 




BEQ 


ENDRQCHK 


FASTEST WHEN NEWLINE IS DISABLED. 


D2B3 


BO 


2A 


D2DF 


193 


RDPARTl 


BCS 


TSTNEWL 


BRANCH IF NEW LINE NEEDS TO BE TESTED. 


D2B5 


CA 






194 


RDPART2 


DEX 






D2B6 


C8 






195 




INY 




PAGE CROSSED? 


D2B7 


DO 


F3 


D2AC 


196 




BNE 


RDPART 


NO. MOVE NEXT BYTE. 


D2B9 


A5 


BF 




197 




LDA 


POSPTR+1 


TEST FOR END OF BUFFER 
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10 READ 


WRITE 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 93 


D2BB 


E6 


Bl 




198 




INC 


USRBUF+1 


BUT FIRST ADJUST USER BUFFER POINTER 


D2BD 


E6 


2B 




199 




INC 


TPOSLH 


AND POSITION. 


D2BF 


DO 


02 


D2C3 


200 




BNE 


RDPART3 




D2C1 


E6 


2C 




201 




INC 


TPOSHI 




D2C3 


E6 


BF 




202 


RDPART3 


INC 


POSPTR+1 


AND SOS BUFFER HIGH ADDRESS. 


D2C5 


45 


BD 




203 




FOR 


DATPTR+1 


(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 


D2C7 


FO 


E3 


D2AC 


204 




BEQ 


RDPART 


BRANCH IF MORE TO READ IN BUFFER. 


D2C9 


B8 






205 




CLV 




INDICATE NOT FINISHED. 


D2CA 


50 


27 


D2F3 


206 




BVC 


RDPRTDNE 


BRANCH ALWAYS . 


D2CC 








207 


* 








D2CC 


A5 


2E 




208 


ENDRQCHK 


LDA 


RWREQH 




D2CE 


FO 


15 


D2E5 


209 




BEQ 


RDRQDNE 


BRANCH IF REQEST SATISFIED. 


D2D0 


C8 






210 




INY 




DONE WITH THIS BLOCK OF DATA? 


D2D1 


DO 


06 


D2D9 


211 




BNE 


ENDRCHKl 


NO, ADJUST HIGH BYTE OF REQUEST. 


D2D3 


A5 


BF 




212 




LDA 


POSPTR+1 


MAYBE- CHECK FOR END OF BLOCK BUFFER. 


D2D5 


45 


BD 




213 




FOR 


DATPTR+1 


(DON'T DISTURB CARRY) 


D2D7 


DO 


02 


D2DB 


214 




BNE 


ENDRCHK2 


BRANCH IF HI COUNT CAN BE DEALT WITH NEXT 


D2D9 


C6 


2E 




215 


ENDRCHKl 


DEC 


RWREQH 




D2DB 


88 






216 


ENDRCHK2 


DEY 




RESTORE PROPER VALUE TO 'Y' 


D2DC 


4C 


B3 


D2 


217 




JMP 


RDPART 1 




D2DF 








218 










D2DF 


Bl 


BE 




219 


TSTNEWL 


LDA 


(POSPTR) , Y 


GET LAST BYTE TRANSFERED AGAIN. 


D2E1 


45 


30 




220 




FOR 


NLCHAR 


HAVE WE MATCHED NEWLINE CHARACTER? 


D2E3 


DO 


DO 


D2B5 


221 




BNE 


RDPART2 


NO, READ NEXT. 


D2E5 


C8 






222 


RDRQDNE 


INY 




ADJUST POSITION. 


D2E5 


DO 


08 


D2F0 


223 




BNE 


SETRDNE 




D2E8 


E5 


Bl 




224 




INC 


USRBUF+1 


BUMP POINTERS . 


D2EA 


E6 


2B 




225 




INC 


TPOSLH 




D2EC 


DO 


02 


D2F0 


226 




BNE 


SETRDNE 




D2EE 


E6 


2C 




227 




INC 


TPOSHI 




D2F0 


2C 


06 


D3 


228 


SETRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


D2F3 


84 


2A 




229 


RDPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


D2F5 


70 


01 


D2F8 


230 




BVS 


RDONEl 




D2F7 


E8 






231 




I NX 




LEAVE REQUEST AS +1 FOR NEXT CALL 


D2F8 


86 


2D 




232 


RDONEl 


STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


D2FA 


08 






233 




PHP 




SAVE STATUSES 


D2FB 


18 






234 




CLC 




ADJUST USER'S LOW BUFFER ADDRESS 


D2FC 


98 






235 




TYA 






D2FD 


65 


BO 




236 




ADC 


USRBUF 




D2FF 


85 


BO 




237 




STA 


USRBUF 




D301 


90 


02 


D305 


238 




BCC 


RDPART 4 




D303 


E6 


Bl 




239 




INC 


USRBUF+1 


ADJUST HI ADDRESS AS NEEDED. 


D305 


28 






240 


RDPART4 


PLP 




RESTORE RETURN STATUSES 


D306 


50 






241 


SETVFLG 


RTS 




(THIS BYTE <$60> IS USED TO SET V FLAG) 


D307 








242 


* 








D307 


A5 


BC 




243 


FXDATPTR 


LDA 


DATPTR 


PUT CURRENT USER BUFFER 


D309 


85 


BO 




244 




STA 


USRBUF 


ADDRESS BACK TO NORMAL 


D30B 


A5 


BD 




245 




LDA 


DATPTR+1 




D30D 


85 


Bl 




246 




STA 


USRBUF+1 


BANK PAIR BYTE SHOULD BE MOVED ALSO. 


D30F 


AD 


BD 


14 


247 




LDA 


SISDATP 




D312 


8D 


Bl 


14 


248 




STA 


SISUSRBF 




D315 


AO 


OB 




249 




LDY 


#FCBBUFN 


RESTORE BUFFER ADDRESS 


D317 


Bl 


BA 




250 




LDA 


(FCBPTR) , Y 




D319 


A2 


BC 




251 




LDX 


#DATPTR 




D31B 


4C 


00 


00 


252 




JMP 


GETBUFADR 


END VIA CALL TO BOB'S CODE. 


D31E 








253 


* 
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D31E 








255 


* 








D31E 








256 


* READ 


DIRECTORY 


FILE . . . 




D31E 








257 










D31E 


20 


09 


CD 


258 


DREAD 


JSR 


RDPOSN 




D321 


BO 


32 


D355 


259 




BCS 


ERRDRD 


PASS BACK ANY ERRORS 


D323 


20 


7E 


D2 


260 




JSR 


PREPRW 


PREPARE FOR TRANSFER. 


D326 


20 


A2 


D2 


2 61 




JSR 


READPART 


MOVE DATA TO USER'S BUFFER 


D329 


50 


F3 


D31E 


262 




BVC 


DREAD 


REPEAT UNTIL REQUEST IS SATISFIED. 


D32B 


20 


6B 


D2 


263 




JSR 


READONE 


UPDATE FCB AS TO NEW POSITION. 


D32E 


90 


23 


D353 


264 




BCC 


DREDONE 


BRANCH IF ALL IS WELL. 


D330 


C9 


00 




265 




CMP 


#EOFERR 


WAS LAST READ TO END OF FILE? 


D332 


38 






266 




SEC 




ANTICIPATE SOME OTHER PROBLEM 


D333 


DO 


IF 


0354 


2 67 




BNE 


DREDERR 


BRANCH IF NOT EOF ERROR. 


D335 


20 


54 


CE 


2 68 




JSR 


SVMARK 




D338 


20 


32 


CE 


2 69 




JSR 


Z IPDATA 


CLEAR OUT DATA BLOCK. 


D33B 


AO 


11 




270 




LDY 


#FCBDATB+1 


PROVIDE DUMMY BACK POINTER FOR FUTURE RE-POSITION 


D33D 


Bl 


BA 




271 




LDA 


(FCBPTR) , Y 


GET HI BYTE OF LAST BLOCK. 


D33F 


48 






272 




PHA 






D340 


88 






273 




DEY 






D341 


Bl 


BA 




274 




LDA 


(FCBPTR) , Y 


AND LOW BYTE . 


D343 


48 






275 




PHA 






D344 


A9 


00 




276 




LDA 


#0 


NOW MARK CURRENT BLOCK AS IMPOSIBLE. 


D346 


91 


BA 




277 




STA 


(FCBPTR) , Y 




D348 


C8 






278 




INY 






D349 


91 


BA 




279 




STA 


(FCBPTR) , Y 




D34B 


A8 






280 




TAY 




NOW MOVE LAST BLOCK ADDRESS TO DATA BUFFER AS BACK 


D34C 


68 






281 




PLA 






D34D 


91 


BC 




282 




STA 


(DATPTR) , Y 




D34F 


68 






283 




PLA 






D350 


C8 






284 




INY 






D351 


91 


BC 




285 




STA 


(DATPTR) , Y 




D353 


18 






286 


DREDONE 


CLC 




INDICATE NO ERROR 


D354 


60 






287 


DREDERR 


RTS 






D355 








288 


* 








D355 


4C 


64 


D2 


289 


ERRDRD 


JMP 


ERRFIXl 


REPORT HOW MUCH WE COULD TRANSFER BEFORE ERROR. 


D358 








290 


* 
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D358 


18 






292 


WRITE 


CLC 




FIRST DETERMINE IF REQESTED 


D359 


AO 


09 




293 




LDY 


#FCBATTR 


WRITE IS LEGAL 


D35B 


Bl 


BA 




2 94 




LDA 


(FCBPTR) , Y 




D35D 


2 9 


02 




2 95 




AND 


#WRITEN 


IS WRITE ENABLED? 


D35F 


DO 


04 


D365 


296 




BNE 


WRITEl 


YES, CONTINUE . . . 


D361 


A9 


00 




2 97 


ERRACCS 


LDA 


#ACCSERR 


REPORT ILLEGAL ACCESS. 


D363 


38 






2 98 




SEC 






D364 


60 






299 


WPERROR 


RTS 






D365 








300 


* 








D365 


20 


78 


D5 


301 


WRITEl 


JSR 


TSTWPROT 


OTHERWISE, MAKE SURE DEVICE IS NOT WRITE PROTECTED 


D368 


BO 


FA 


D364 


302 




BCS 


WPERROR 


REPORT WRITE PROTECTED AND ABORT OPERATION. 


D3 6A 








303 


* 








D3 6A 


AO 


12 




304 




LDY 


#FCBMARK 


GET CURRENT MARK INTO ' TPOS ' AND 


D36C 


Bl 


BA 




305 




LDA 


(FCBPTR) , Y 


DETERMINE IF RESULTING POSITION 


D35E 


85 


2A 




306 




STA 


TPOSLL 


EXCEEDS CURRENT END OF FILE. 


D370 


65 


A4 




307 




ADC 


C . BYTES 




D372 


8D 


E3 


DB 


308 




STA 


SCRTCH 




D375 


C8 






309 




INY 






D376 


Bl 


BA 




310 




LDA 


(FCBPTR) , Y 




D378 


85 


2B 




311 




STA 


TPOSLH 




D37A 


65 


A5 




312 




ADC 


C.BYTES+1 


(THIS WAS DONE STRAIGHT-LINE SINCE 


D37C 


8D 


E4 


DB 


313 




STA 


SCRTCH+1 


WE'RE ADDING A TWO BYTE TO A THREE 


D37F 


C8 






314 




INY 




BYTE QUANTITY) 


D380 


Bl 


BA 




315 




LDA 


(FCBPTR) , Y 




D382 


85 


2C 




316 




STA 


TPOSHI 




D384 


69 


00 




317 




ADC 


#0 


ADD IN REMAINING CARRY. 


D386 


8D 


E5 


DB 


318 




STA 


SCRTCH+2 




D389 


AO 


17 




319 




LDY 


#FCBE0F+2 


NOW TEST EOF AGAINST POSITION GENERATED 


D38B 


B9 


CE 


DB 


320 


WEOFTST 


LDA 


SCRTCH-FCBEOF, Y 




D38E 


Dl 


BA 




321 




CMP 


(FCBPTR) , Y 


IS NEW POSITION > EOF? 


D390 


90 


19 


D3AB 


322 




BCC 


WRITE2 


NO, PROCEED. 


D392 


DO 


05 


D399 


323 




BNE 


WADJEOF 


YES, ADJUST END OF FILE 


D394 


88 






324 




DEY 






D395 


CO 


14 




325 




CPY 


#FCBE0F-1 


HAVE WE COMPARED ALL TREE BYTES? 


D397 


DO 


F2 


D38B 


326 




BNE 


WEOFTST 


NO, TEST NEXT LOWEST. 


D399 


18 






327 


WADJEOF 


CLC 




ADJUST REQUEST TO WRITE UP TO (BUT 


D39A 


AO 


15 




328 




LDY 


#FCBEOF 


NOT INCLUDING) END OF FILE. 


D39C 


Bl 


BA 




329 


WRTADJEOF 


LDA 


(FCBPTR) , Y 


SAVE OLD EOF IN CASE OF LATER ERROR 


D39E 


99 


DB 


DB 


330 




STA 


OLDEOF-FCBEOF, Y 




D3A1 


B9 


CE 


DB 


331 




LDA 


SCRTCH-FCBEOF, Y 


RESULT=EOF 


D3A4 








332 










D3A4 


91 


BA 




333 




STA 


(FCBPTR) , Y 




D3A6 


C8 






334 




INY 






D3A7 


CO 


18 




335 




CPY 


#FCBE0F+3 




D3A9 


DO 


Fl 


D39C 


336 




BNE 


WRTADJEOF 




D3AB 


A5 


A4 




337 


WRITE2 


LDA 


C. BYTES 




D3AD 


85 


20 




338 




STA 


RWREQL 




D3AF 


DO 


09 


D3BA 


339 




BNE 


WRITE3 


BRANCH IF WRITE REQUEST DEFINITELY NON-ZERO. 


D3B1 


C5 


A5 




340 




CMP 


C.BYTES+1 




D3B3 


DO 


05 


D3BA 


341 




BNE 


WRITE 3 


BRANCH IF WRITE REQUESTOZERO 


D3B5 


85 


2E 




342 




STA 


RWREQH 




D3B7 


4C 


63 


D4 


343 




JMP 


WRITDONE 


DO NOTHING. 


D3BA 








344 


* 
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D3BA 


A5 


A5 




346 


WRITES 


LDA 


C.BYTES+1 




D3BC 


85 


2E 




347 




STA 


RWREQH 




D3BE 


A5 


A2 




348 




LDA 


C.OUTBUF ; 


MOVE POINTER TO USERS BUFFER TO BFM 


D3C0 


85 


BO 




349 




STA 


USRBUF ; 


Z-PAGE AREA. 


D3C2 


A5 


A3 




350 




LDA 


C.OUTBUF+1 




D3C4 


85 


Bl 




351 




STA 


USRBUF+1 ; 


(SO IT MAY BE ADJUSTED WITHOUT LOOSING 


D3C6 


AD 


A3 


14 


352 




LDA 


SISOUTBF ; 


ORIGINAL ADDRESS.) 


D3C9 


8D 


Bl 


14 


353 




STA 


SISUSRBF 




D3CC 


AO 


07 




354 




LDY 


#FCBSTYP ; 


NOW FIND OUT IF IT'S A TREE WRITE OR OTHER 


D3CE 


Bl 


BA 




355 




LDA 


(FCBPTR) , Y 




D3D0 


C9 


04 




356 




CMP 


#TRETYP+1 




D3D2 


90 


03 


D3D7 


357 




BCC 


TWRITE 


BRANCH IF A TREE FILE. 


D3D4 


4C 


61 


03 


358 




JMP 


ERRACCS 


OTHEWISE RETURN AN ACCESS ERROR! 


D3D7 


20 


09 


CD 


359 


TWRITE 


JSR 


RDPOSN ; 


READ BLOCK WE'RE 


D3DA 


BO 


24 


D400 


360 




BCS 


WRITERROR 




D3DC 


AO 


08 




361 




LDY 


#FCBSTAT 




D3DE 


Bl 


BA 




362 




LDA 


(FCBPTR) , Y 




D3E0 


29 


07 




363 




AND 


#DATALC+IDXALC+TOPALC 


D3E2 


FO 


72 


D456 


364 




BEQ 


TREWRTl 




D3E4 


AO 


00 




365 




LDY 


#0 ; 


FIND OUT IF ENOUGH DISK SPACE IS AVAILABLE 


D3E6 


C8 






366 


TWRTALC 


INY 




INDEXES AND DATA BLOCK 


D3E7 


4A 






367 




LSR 


A 




D3E8 


DO 


FC 


D3E6 


368 




BNE 


TWRTALC 




D3EA 


84 


04 




369 




STY 


REQL 




D3EC 


85 


05 




370 




STA 


REQH 




D3EE 


20 


4C 


C9 


371 




JSR 


TSFRBLK 




D3F1 


BO 


OD 


D400 


372 




BCS 


WRITERROR ; 


PASS BACK ANY ERRORS. 


D3F3 


AO 


08 




373 




LDY 


#FCBSTAT 




D3F5 


Bl 


BA 




374 




LDA 


(FCBPTR), Y 


NOW GET MORE SPECIFIC. 


D3F7 


29 


04 




375 




AND 


♦topalc 


ARE WE LACKING A TREE TOP? 


D3F9 


FO 


23 


D41E 


376 




BEQ 


TSTSAPWR ; 


NO, TEST FOR LACK OF SAPLING LEVEL INDEX. 


D3FB 


20 


CB 


D4 


377 




JSR 


TOPDOWN ; 


GO ALLOCATE TREE TOP AND ADJUST FILE TYPE. 


D3FE 


90 


29 


D429 


378 




BCC 


DBLOKALC ; 


CONTINUE WITH ALLOCATION OF DATA BLOCK. 


D400 


48 






379 


WRITERROR 


PHA 




SAVE ERROR 


D401 


AO 


15 




380 




LDY 


#FCBEOF 




D403 


B9 


DB 


DB 


381 


WRITERROl 


LDA 


OLDEOF-FCBEOF, Y 




D406 


91 


BA 




382 




STA 


(FCBPTR), Y ; 


RESTORE OLD EOF UPON ERR 


D408 


C8 






383 




INY 






D409 


CO 


18 




384 




CPY 


#FCBE0F+3 




D40B 


DO 


F6 


D403 


385 




BNE 


WRITERROl 




D40D 


AO 


12 




386 




LDY 


tFCBMARK 




D40F 


B9 


El 


DB 


387 


WRITERR02 


LDA 


OLDMARK-FCBMARK, Y 




D412 


91 


BA 




388 




STA 


(FCBPTR), Y ; 


AND RESTORE OLD MARK! 


D414 


C8 






389 




INY 






D415 


CO 


15 




390 




CPY 


#FCBMARK+3 




D417 


DO 


F6 


D40F 


391 




BNE 


WRITERR02 




D419 


68 






392 




PLA 






D41A 


38 






393 




SEC 






D41B 


60 






394 




RTS 




ERROR RETURN 


D41C 








395 










D41C 


50 


B9 


D3D7 


396 


TWRITEGO 


BVC 


TWRITE ; 


A PIGGY-BACK BACKWARD BRANCH 


D41E 








397 


* 
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D41E 


Bl 


BA 




399 TSTSAPWR 


LDA 


(FOBPTR) , Y 


GET STATUS BYTE AGAIN. 


D420 


29 


02 




400 


AND 


#IDXALO 


DO WE NEED A SAPLING LEVEL INDEX BLOCK? 


D422 


FO 


05 


D42 9 


401 


BEQ 


DBLOKALO 


NO, ASSUME IT'S JUST A DATA BLOCK NEEDED. 


D424 


20 


05 


D5 


402 


JSR 


SAP DOWN 


GO ALLOCATE AN INDEX BLOCK AND UPDATE TREE TOP 


D427 


BO 


D7 


D400 


403 


BOS 


WRITERROR 


RETURN ANY ERRORS . 


D429 


20 


57 


D5 


4 04 DBLOKALO 


JSR 


ALOWBLK 


GO ALLOCATE FOR DATA BLOCK. 


D42C 


BO 


D2 


D400 


405 


BOS 


WRITERROR 




D42E 


A5 


20 




406 


LDA 


TPOSHI 


CALCULATE POSITION WITHIN INDEX BLOCK. 


D430 


4A 






407 


LSR 


A 




D431 


A5 


2B 




408 


LDA 


TPOSLH 




D433 


6A 






409 


ROR 


A 




D434 


A8 






410 


TAY 




NOW PUT BLOCK ADDRESS INTO INDEX BLOCK 


D435 


E6 


B3 




411 


I NO 


TINDX+1 


HIGH BYTE FIRST. 


D437 


AD 


E4 


DB 


412 


LDA 


SORTOH+1 




D43A 


AA 






413 


TAX 






D43B 


91 


B2 




414 


STA 


(TINDX) , Y 




D43D 


06 


B3 




415 


DEO 


TINDX+1 


(RESTORE POINTER TO LOWER PAGE OF INDEX BLOCK) 


D43F 


AD 


E3 


DB 


416 


LDA 


SORTOH 


GET LOW BLOCK ADDRESS 


D442 


91 


B2 




417 


STA 


(TINDX) , Y 


NOW STORE LOW ADDRESS. 


D444 


AO 


10 




418 


LDY 


#FOBDATB 


ALSO UPDATE FILE CONTROL BLOCK TO INDICATE 


D446 


91 


BA 




419 


STA 


(FOBPTR) , Y 


THAT THIS BLOCK IS ALLOCATED. 


D448 


C8 






420 


INY 






D449 


8A 






421 


TXA 




GET HIGH ADDRESS AGAIN. 


D4 4A 


91 


BA 




422 


STA 


(FCBPTR) , Y 




D4 4C 


AO 


08 




423 


LDY 


#FOBSTAT 




D44E 


Bl 


BA 




424 


LDA 


(FOBPTR) , Y 




D450 


09 


80 




425 


ORA 


#IDXMOD 




D452 


29 


F8 




426 


AND 


#$FF-DATALO-IDXAL0-TOPALC ; CLEAR ALLOCATION REQUIREMENT BITS. 


D454 


91 


BA 




427 


STA 


(FCBPTR) , Y 




D456 


A2 


BO 




428 TREWRTl 


LDX 


#USRBUF 


LOCATE POINTER TO ADJUST <SRS 82.162> 


D458 


20 


BD 


D5 


429 


JSR 


WRAPADJ 


ADJUST FOR BANK CROSSING <SRS 82.162> 


D45B 


20 


7E 


D2 


430 


JSR 


PREPRW 


WRITE ON 


D45E 


20 


65 


D4 


431 


JSR 


WRTPART 




D461 


50 


B9 


D41C 


432 


BVO 


TWRITEGO 




D463 


40 


09 


OD 


433 WRITDONE 


JMP 


RDPOSN 


UPDATE FOB WITH NEW POSITION. 


D466 








434 * 
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D465 


8A 






436 


WRTPART 


TXA 






D467 


DO 


05 


D46F 


437 




BNE 


WRPART 


BRANCH IF REQUEST IS NOT A EVEN PAGES 


D469 


A5 


2E 




438 




LDA 


RWREQH 


A CALL OF ZERO BYTES SHOULD NEVER GET HERE ! 


D4 6B 


FO 


3E 


D4AB 


439 




BEQ 


SETWRDNE 


DO NOTHING! 


D4 6D 








440 










D4 6D 


C6 


2E 




441 




DEC 


RWREQH 




D45F 


CA 






442 


WRPART 


DEX 






D470 


Bl 


BO 




443 




LDA 


(USRBUF) , Y 


MOVE DATA FROM USER'S BUFFER 


D472 


91 


BE 




444 




STA 


(POSPTR) , Y 


ONE BYTE AT A TIME. 


D474 


8A 






445 




TXA 






D475 


FO 


16 


D48D 


446 




BEQ 


ENDWQCHK 




D477 


C8 






447 


WRPART2 


INY 




PAGE CROSSED? 


D478 


DO 


F5 


D46F 


448 




BNE 


WRPART 


NO . MOVE NEXT BYTE . 


D47A 


A5 


BF 




449 




LDA 


POSPTR+1 


TEST FOR END OF BUFFER 


D47C 


E6 


Bl 




450 




INC 


USRBUF+1 


BUT FIRST ADJUST USER BUFFER POINTER 


D47E 


E6 


2B 




451 




INC 


TPOSLH 


AND POSITION. 


D480 


DO 


02 


D484 


452 




BNE 


WRPART 3 




D482 


E6 


2C 




453 




INC 


TPOSHI 




D484 


E6 


BF 




454 


WRPART3 


INC 


POSPTR+1 


AND SOS BUFFER HIGH ADDRESS . 


D485 


45 


BD 




455 




EOR 


DATPTR+1 


(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 


D488 


FO 


E5 


D46F 


456 




BEQ 


WRPART 


BRANCH IF MORE TO WRITE TO BUFFER. 


D48A 


B8 






457 




CLV 




INDICATE NOT FINISHED. 


D48B 


50 


21 


D4AE 


458 




BVC 


WRPRTDNE 


BRANCH ALWAYS . 


D48D 








459 










D48D 


A5 


2E 




4 60 


ENDWQCHK 


LDA 


RWREQH 




D48F 


FO 


OF 


D4A0 


461 




BEQ 


WRTRQDNE 


BRANCH IF REQEST SATISFIED. 


D491 


C8 






462 




INY 




ARE WE DONE WITH THIS BLOCK OF DATA? 


D492 


DO 


06 


D49A 


4 63 




BNE 


ENDWCHKl 


BRANCH IF NOT. 


D4 94 


A5 


BF 




4 64 




LDA 


POSPTR+1 




D496 


45 


BD 




465 




EOR 


DATPTR+1 


WHILE THIS IS REDUNDANT, IT'S NECESSARY FOR 


D498 


DO 


02 


D49C 


4 66 




BNE 


ENDWCHK2 


PROPER ADJUSTMENT OF REQUEST COUNT. 


D4 9A 


C6 


2E 




467 


ENDWCHKl 


DEC 


RWREQH 


(NOT FINISHED- OK TO ADJUST HI BYTE.) 


D49C 


88 






468 


ENDWCHK2 


DEY 




RESET MODIFIED Y 


D49D 


4C 


77 


D4 


469 




JMP 


WRPART 2 




D4A0 








470 


* 








D4A0 


C8 






471 


WRTRQDNE 


INY 




AND POSITION. 


D4A1 


DO 


08 


D4AB 


472 




BNE 


SETWRDNE 




D4A3 


E6 


Bl 




473 




INC 


USRBUF+1 


BUMP POINTERS . 


D4A5 


E6 


2B 




474 




INC 


TPOSLH 




D4A7 


DO 


02 


D4AB 


475 




BNE 


SETWRDNE 




D4A9 


E6 


2C 




476 




INC 


TPOSHI 




D4AB 


2C 


06 


D3 


477 


SETWRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


D4AE 


84 


2A 




478 


WRPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


D4B0 


86 


2D 




479 




STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


D4B2 


08 






480 




PHP 




SAVE STATUSES 


D4B3 


AO 


08 




481 




LDY 


#FCBSTAT 




D4B5 


Bl 


BA 




482 




LDA 


(FCBPTR) , Y 




D4B7 


09 


50 




483 




ORA 


#DATMOD+USEMOD 




D4B9 


91 


BA 




484 




STA 


(FCBPTR) , Y 




D4BB 


18 






485 




CLC 




ADJUST USER'S LOW BUFFER ADDRESS 


D4BC 


A5 


2A 




486 




LDA 


TPOSLL 




D4BE 


65 


BO 




487 




ADC 


USRBUF 




D4C0 


85 


BO 




488 




STA 


USRBUF 




D4C2 


90 


02 


D4C6 


489 




BCC 


WRPART 4 




D4C4 


E6 


Bl 




490 




INC 


USRBUF+1 


ADJUST HI ADDRESS AS NEEDED. 


D4C6 


20 


F4 


DD 


491 


WRPART4 


JSR 


FCBUSED 


SET DIRECTORY FLUSH BIT 
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10 READ. WRITE 



SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 100 



D4CB 


20 


13 


D5 


495 


TOPDOWN 


JSR 


SWAPDOWN 


FIRST MAKE CURRENT 1ST BLOCK AN ENTRY IN NEW TOP. 


D^CE 


BO 


42 


D512 


495 




BOS 


TPDWNERR 


RETURN ANY ERRORS 


D4D0 


AO 


07 




4 97 




LDY 


#FCBSTYP 


FIND OUT IF STORAGE TYPE HAS BEEN CHANGED TO 'TREE'. 


D4D2 


Bl 


BA 




4 98 




LDA 


(FCBPTR) , Y 


(IF NOT, ASSUME IT WAS ORIGINALLY A SEED AND 


D4D4 


C9 


03 




499 




CMP 


#TRETYP 


BOTH LEVELS NEED TO BE BUILT. 


D4D6 


FO 


05 


D4DD 


500 




BEQ 


TOPDWNl 


OTHERWISE, ONLY AN INDEX NEED BE ALLOCATED) 


D4D8 


20 


13 


D5 


501 




JSR 


SWAPDOWN 


MAKE PREVIOUS SWAP A SAP LEVEL INDEX BLOCK. 


D4DB 


BO 


35 


D512 


502 




BOS 


TPDWNERR 




D4DD 


20 


57 


D5 


503 


TOPDWNl 


JSR 


ALCWBLK 


GET ANOTHER BLOCK ADDRESS FOR THE SAP LEVEL INDEX. 


D4E0 


BO 


30 


D512 


504 




BOS 


TPDWNERR 




D4E2 


A5 


20 




505 




LDA 


TPOSHI 


CALCULATE POSITION OF NEW INDEX BLOCK 


D4E4 


4A 






506 




LSR 


A 


IN THE TOP OF THE TREE . 


D4E5 


A8 






507 




TAY 






D4E6 


AD 


E3 


DB 


508 




LDA 


SCRTCH 


GET ADDRESS OF NEWLY ALOOATED INDEX BLOCK AGAIN 


D4E9 


AA 






509 




TAX 






D4EA 


91 


B2 




510 




STA 


(TINDX) , Y 




D4EC 


E6 


B3 




511 




INC 


TINDX+1 




D4EE 


AD 


E4 


DB 


512 




LDA 


SORTCH+1 




D4F1 


91 


B2 




513 




STA 


(TINDX) , Y 


SAVE HI ADDRESS 


D4F3 


C6 


B3 




514 




DEC 


TINDX+1 




D4F5 


AO 


OF 




515 




LDY 


#FCBIDXB+1 


MAKE NEWLY ALLOCATED BLOCK THE CURRENT INDEX BLOCK. 


D4F7 


91 


BA 




516 




STA 


(FCBPTR) , Y 




D4F9 


8A 






517 




TXA 






D4FA 


88 






518 




DEY 






D4FB 


91 


BA 




519 




STA 


(FCBPTR) , Y 




D4FD 


20 


73 


OF 


520 




JSR 


WFCBFST 


SAVE NEW TOP OF TREE. 


D500 


BO 


10 


D512 


521 




BOS 


TPDWNERR 




D502 


4C 


Dl 


02 


522 




JMP 


ZTMPIDX 


END BY RE-CLEARING CURRENT (NEW) INDEX BLOCK. 


D505 








523 










D505 


AO 


07 




524 


SAPDOWN 


LDY 


#FCBSTYP 


FIND OUT IF WE'RE DEALING WITH A TREE 


D507 


Bl 


BA 




525 




LDA 


(FCBPTR) , Y 


OR A SIMPLE SEED. 


D509 


09 


01 




526 




CMP 


#SEEDTYP 


IF SEED THEN AN ADJUSTMENT TO FILE TYPE IS NECESSARY 


D50B 


FO 


05 


D513 


527 




BEQ 


SAPDWNl 


BRANCH IF SEED. 


D50D 


20 


FO 


OE 


528 




JSR 


RFCBFST 


OTHERWISE READ IN TOP OF TREE. 


D510 


90 


CB 


D4DD 


529 




BOC 


TOPDWNl 


BRANCH IF NO ERROR. 


D512 


50 






530 


TPDWNERR 


RTS 




RETURN ERRORS 


D513 








531 


* 
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10 READ 


WRITE 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 101 


D513 






D513 


533 


SAPDWNl 


EQU 




MAKE CURRENT SEED INTO A SAPLING 


D513 








534 


* 








D513 


20 


57 


D5 


535 


SWAP DOWN 


JSR 


ALCWBLK 


ALLOCATE A BLOCK BEFORE SWAP 


D516 


BO 


3E 


D556 


536 




BCS 


SWAPERR 


RETURN ERRORS IMMEDIATELY. 


D518 


AO 


OC 




537 




LDY 


#FCBFRST 


GET PREVIOUS FIRST BLOCK 


D51A 


Bl 


BA 




538 




LDA 


(FCBPTR) , Y 


ADDRESS INTO INDEX BLOCK. 


D51C 


48 






539 




PHA 




SAVE TEMPORARLY WHILE SWAPPING IN NEW TOP INDEX 


D51D 


AD 


E3 


DB 


540 




LDA 


SCRTCH 


GET NEW BLOCK ADDRESS (LOW) 


D520 


AA 






541 




TAX 






D521 


91 


BA 




542 




STA 


(FCBPTR) , Y 




D523 


C8 






543 




INY 






D524 


Bl 


BA 




544 




LDA 


(FCBPTR) , Y 




D526 


48 






545 




PHA 






D527 


AD 


E4 


DB 


546 




LDA 


SCRTCH+1 


AND HIGH ADDRESS TOO. 


D52A 


91 


BA 




547 




STA 


(FCBPTR) , Y 




D52C 


AO 


OF 




548 




LDY 


#FCBIDXB+1 


MAKE NEW TOP ALSO THE CURRENT INDEX IN MEMORY. 


D52E 


91 


BA 




549 




STA 


(FCBPTR) , Y 




D530 


BA 






550 




TXA 




GET LOW ADDRESS AGAIN 


D531 


88 






551 




DEY 






D532 


91 


BA 




552 




STA 


(FCBPTR) , Y 




D534 


AO 


00 




553 




LDY 


#0 


MAKE PREVIOUS THE FIRST ENTRY IN SUB INDEX 


D536 


E6 


B3 




554 




INC 


TINDX+1 




D538 


68 






555 




PLA 






D539 


91 


B2 




556 




STA 


(TINDX) , Y 




D53B 


C6 


B3 




557 




DEC 


TINDX+1 




D53D 


68 






558 




PLA 






D53E 


91 


B2 




559 




STA 


(TINDX) , Y 




D540 


20 


73 


CF 


560 




JSR 


WFCBFST 


SAVE NEW FILE TOP. 


D543 


BO 


11 


D556 


561 




BCS 


SWAPERR 




D545 


AO 


07 




562 




LDY 


#FCBSTYP 


NOW ADJUST STORAGE TYPE 


D547 


A9 


01 




563 




LDA 


#1 


BY ADDING 1 (THUS SEED BECOMES SAPLING BECOMES TREE 


D549 


71 


BA 




554 




ADC 


(FCBPTR) , Y 




D54B 


91 


BA 




565 




STA 


(FCBPTR) , Y 




D54D 


AO 


08 




565 




LDY 


#FCBSTAT 




D54F 


Bl 


BA 




557 




LDA 


(FCBPTR) , Y 


MARK STORAGE TYPE MODIFIED. 


D551 


09 


08 




558 




ORA 


#STPMOD 




D553 


91 


BA 




569 




STA 


(FCBPTR) , Y 




D555 


18 






570 




CLC 




RETURN 'NO ERROR' STATUS. 


D556 


60 






571 


SWAPERR 


RTS 






D557 








572 


* 
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10 READ. WRITE SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



D557 


20 


9C 


CA 


574 


ALCWBLK 


JSR 


ALCIBLK 




D55A 


BO 


IB 


D577 


575 




BCS 


ALUSERR 




D55C 


AO 


18 




576 




LDY 


#FCBUSE 




D55E 


Bl 


BA 




577 




LDA 


(FCBPTR) , Y 


BUMP CURRENT USAGE COUNT BY 1 . 


D560 


18 






578 




CLC 






D561 


69 


01 




579 




ADC 


#1 




D563 


91 


BA 




580 




STA 


(FCBPTR) , Y 




D565 


90 


07 


D56E 


581 




BCC 


INCUSGl 




D567 


C8 






582 




INY 






D568 


Bl 


BA 




583 




LDA 


(FCBPTR) , Y 




D56A 


69 


00 




584 




ADC 


#0 




D56C 


91 


BA 




585 




STA 


(FCBPTR) , Y 




D56E 


AO 


08 




586 


INCUSGl 


LDY 


#FCBSTAT 


MARK USAGE AS MODIFIED. 


D570 


Bl 


BA 




587 




LDA 


(FCBPTR) , Y 




D572 


09 


10 




588 




ORA 


#USEMOD 




D574 


91 


BA 




589 




STA 


(FCBPTR) , Y 




D576 


18 






590 




CLC 




INDICATE NO ERROR 


D577 


60 






591 


ALUSERR 


RTS 




ALL DONE 


D578 








592 


* 








D578 


AO 


08 




593 


TSTWPROT 


LDY 


#FCBSTAT 


CHECK FOR A 'NEVER BEEN MODIFIED' CONDITION 


D57A 


Bl 


BA 




594 




LDA 


(FCBPTR) , Y 


GET STATUS BYTE 


D57C 


2 9 


EG 




595 




AND 


#USEMOD+DATMOD+IDXM0D+E0FMOD 


D57E 


18 






596 




CLC 




ANTICIPATE WRITE OK 


D57F 


DO 


F6 


D577 


597 




BNE 


ALUSERR 


ORDINARY RTS 


D581 


AO 


01 




598 




LDY 


#FCBDEVN 


GET FILE'S DEVICE NUMBER 


D583 


Bl 


BA 




599 




LDA 


(FCBPTR) , Y 




D585 


85 


35 




600 




STA 


DEVNUM 


GET CURRENT STATUS OF BLOCK DEVICE 


D587 


A9 


02 




601 


TWRPROTl 


LDA 


#STATCMD 




D589 


85 


CO 




602 




STA 


DHPCMD 




D58B 


A9 


00 




603 




LDA 


#STATSUB 


STORE SUB COMMAND OF STATUS CALL 


D58D 


85 


C2 




604 




STA 


DSTATREQ 




D58F 


A9 


BC 




605 




LDA 


#>TWRCODE 




D591 


85 


C3 




606 




STA 


DSTATBFL 


FETCH RETURN CODE IN SCRATCH AREA 


D593 


A9 


D5 




607 




LDA 


#<TWRCODE 




D595 


85 


C4 




508 




STA 


DSTATBFH 




D597 


A9 


00 




609 




LDA 


#0 


MAKE SURE REGULAR RAM IS SELECTED (NO BANKS) 


D599 


8D 


C4 


14 


610 




STA 


SISDSTAT 




D59C 


8D 


00 


00 


611 




STA 


SERR 


CLEAR GLOBAL ERROR FLAG 


D59F 


A5 


35 




612 




LDA 


DEVNUM 


SET UP LAST FARM 


D5A1 


85 


CI 




613 




STA 


UNITNUM 


FOR DEVICE CALL 


D5A3 


20 


00 


00 


614 




JSR 


DMGR 


MAKE THE EXTERNAL CALL 


D5A6 


BO 


08 


D5B0 


515 




BCS 


WPROTRET 


RETURN ANY SPECIFIC ERRORS 


D5A8 


AD 


BC 


D5 


515 




LDA 


TWRCODE 


GET STATUS BYTE 


D5AB 


4A 






517 




LSR 


A 


SHIFT WRITE PROTECT STATE INTO CARRY 


D5AC 


4A 






518 




LSR 


A 




D5AD 


A9 


00 




619 




LDA 


#XNOWRITE 


ANTICIPATE WRITE PROTECTED. 


D5AF 


60 






620 




RTS 




CARRY IS INDETERMINATE 


D5B0 






D5B0 


621 


WPROTRET 


EQU 






D5B0 


C9 


00 




622 




CMP 


#XDISKSW 


IF EXPLICITLY DISK SWITCH 


D5B2 


DO 


05 


D5B9 


623 




BNE 


WPROTl 


BRANCH IF XNODRIVE OR XNOWRITE 


D5B4 


8D 


BB 


D5 


524 




STA 


DSWGLOB 


IF DISKSW, FLAG UNTIL ENTIRE OPERATION IS COMPLETE 


D5B7 


18 






625 




CLC 






D5B8 


60 






626 




RTS 




DISKSWITCH DOESNT SET CARRY 


D5B9 


38 






627 


WPROTl 


SEC 






D5BA 


60 






628 




RTS 






D5BB 






0001 


529 


DSWGLOB 


DS 


1 


DISK SWITCH GLOBAL 
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10 READ 


WRITE 


SOS 


1 


1 BLOCK FILE 


MANAGER 




AUGUST-2006 PAGE 104 


D5BD 








633 


* 














D5BD 








634 


* 


MEMORY 'WRAP- 


AROUND' ADJUST 


ROUTINE. THIS ROUTINE ADJUSTS 


D5BD 








635 




ADDRESSES THAT CROSS BANK 


PAIR 


BOUNDARIES. ON ENTRY, X CONTAINS 


D5BD 








636 


* 


THE OFFSET OF THE ZERO PAGE 


EXTENDED POINTER TO BE ADJUSTED. 


D5BD 








637 




ON EXIT, THE 


POINTER WILL 


HAVE 


BEEN ADJUSTED, IF NECESSARY, 


D5BD 








638 




AND THE ASSOCIATED X-BYTE 


WILL 


ALSO HAVE BEEN ADJUSTED. 


D5BD 








639 




ONLY ADDRESSES IN THE RANGE 


$8200-$8E00 WILL BE ADJUSTED. 


D5BD 








640 


* 














D5BD 








641 


* 


UPON EXIT, A 


CONTAINS HIGH 


BYTE 


OF ADDRESS S Y CONTAINS UPDATED X-BYTE. 


D5BD 








642 


* 


THIS ROUTINE 


LEAVES X UNCHANGED 






D5BD 








643 


* 














D5BD 


B5 


01 




644 


WRAP AD J LDA 


1,X 








GET HIGH ADDRESS BYTE <SRS 82.162> 


D5BF 


BC 


01 


14 


645 




LDY 


SISTER+1,X 








CHECK X-BYTE <SRS 82.162> 


D5C2 


10 


10 


D5D4 


646 




BPL 


WRAPDNE 








NOT AN EXTENDED ADDRESS. <SRS 82.162> 


D5C4 


C9 


82 




647 




CMP 


#S82 








DOES IT NEED UPDATING? <SRS 82.162> 


D5C6 


90 


OC 


D5D4 


648 




BCC 


WRAPDNE 








NO <SRS 82.162> 


D5C8 


CO 


8F 




649 




CPY 


#$8F 








SPECIAL BANK? <SRS 82.162> 


D5CA 


BO 


08 


D5D4 


650 




BCS 


WRAPDNE 








NO <SRS 82.162> 


D5CC 


29 


7F 




551 




AND 


#$7F 








ADJUST THE ADDRESS <SRS 82.162> 


D5CE 


95 


01 




652 




STA 


1,X 








UPDATE <SRS 82.162> 


D5D0 


FE 


01 


14 


653 




INC 


SISTER+1,X 








INCREMENT X-BYTE <SRS 82.162> 


D5D3 


C8 






654 




INY 










; UPDATE Y ALSO <SRS 82.162> 


D5D4 








655 
















D5D4 


60 






656 


WRAPDNE RTS 










RETURN VALID HIGH ADDRESS AND BANK BYTE 


D5D5 








657 
















D5D5 








658 




CHN 


CLOSE. EOF 
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11 CLOSE. EOF SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 



D5D5 








2 


* 








D5D5 








3 


* 








D5D5 


A5 


Al 




4 


CLOSE 


LDA 


C . REFNUM 


CLOSE ALL? 


D5D7 


DO 


40 


D619 


5 




BNE 


CLOSEl 


NO, JUST ONE OF 'EM 


D5D9 


8D 


18 


D6 


6 




STA 


CFERR 


CLEAR GLOBAL CLOSE ERROR 


D5DC 


20 


81 


D7 


7 




JSR 


GFCBADR 


SET UP POINTER TO FCB 


D5DF 


A9 


00 




8 


CLOSALL 


LDA 


#0 


BEGIN AT THE BEGINNING. 


D5E1 


85 


BA 




9 


CLSALLl 


STA 


FCBPTR 


SAVE CURRENT LOW BYTE OF POINTER 


D5E3 


AO 


IB 




10 




LDY 


#FCBLEVL 


FETCH THE LEVEL AT WHICH 


D5E5 


Bl 


BA 




11 




LDA 


(FCBPTR) , Y 


FILE WAS OPENED 


D5E7 


CD 


00 


00 


12 




CMP 


LEVEL 


TEST AGAINST CURRENT GLOBAL LEVEL 


D5EA 


90 


14 


D600 


13 




BCC 


NXTCLOS 


DONT CLOSE IF FILES LEVEL IS < GLOBAL LEVEL 


D5EC 


AO 


00 




14 




LDY 


#FCBREFN 


INDEX TO REFERENCE NUMBER 


D5EE 


Bl 


BA 




15 




LDA 


(FCBPTR) , Y 


IS THIS REFERENCE FILE OPEN? 


D5F0 


FO 


OE 


D600 


16 




BEQ 


NXTCLOS 


NO, TRY NEXT. 


D5F2 


20 


7F 


D6 


17 




JSR 


FLUSH2 


CLEAN IT OUT . . . 


D5F5 


BO 


4F 


D646 


18 




BCS 


CLOSERR 


RETURN FLUSH ERRORS 


D5F7 


20 


IE 


D6 


19 




JSR 


CL0SE2 


UPDATE FCB S VCB 


D5FA 


A4 


Al 




20 




LDY 


C . REFNUM 




D5FC 


FO 


02 


D600 


21 




BEQ 


NXTCLOS 


NO ERR IF CLOSE ALL 


D5FE 


BO 


46 


D646 


22 




BCS 


CLOSERR 




D600 


A5 


BA 




23 


NXTCLOS 


LDA 


FCBPTR 


BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


D602 


18 






24 




CLC 






D603 


69 


20 




25 




ADC 


#$20 




D605 


90 


DA 


D5E1 


26 




BCC 


CLSALLl 


BRANCH IF WITHIN SAME PAGE. 


D607 


A5 


BB 




27 




LDA 


FCBPTR+1 




D609 


E5 


BB 




28 




INC 


FCBPTR+1 


BUMP TO NEXT PAGE. 


D60B 


CD 


28 


00 


29 




CMP 


FCBADDRH 


HAVE WE CHECKED BOTH PAGES? 


D60E 


FO 


CF 


D5DF 


30 




BEQ 


CLOSALL 


YES, RETURN NO ERROR. 


D610 


18 






31 




CLC 






D611 


AD 


18 


D6 


32 




LDA 


CFERR 


ON FINAL CLOSE OF CLOSE ALL REPORT LOGGED ERRORS 


D614 


FO 


01 


D617 


33 




BEQ 


C3 


BRANCH IF NO ERRORS 


D515 


38 






34 




SEC 






D517 


50 






35 


C3 


RTS 






D618 








35 


* 








D618 








37 


* 








D618 






0001 


38 


CFERR 


DS 


1 


GLOBAL ERROR FLAG FOR FLUSH AND CLOSE ALL 


D619 








39 


* 








D619 








40 


* 








D619 


20 


87 


D6 


41 


CLOSEl 


JSR 


FLUSHl 


FLUSH FILE FIRST (INCLUDING UPDATING BIT MAP) 


D61C 


BO 


28 


D646 


42 




BCS 


CLOSERR 




D51E 


AO 


OB 




43 


CL0SE2 


LDY 


#FCBBUFN 




D520 


Bl 


BA 




44 




LDA 


(FCBPTR) , Y 




D522 


20 


00 


00 


45 




JSR 


RELBUF 




D625 


BO 


IF 


D646 


45 




BCS 


CLOSERR 




D627 


A9 


00 




47 




LDA 


#0 




D629 


AO 


00 




48 




LDY 


#FCBREFN 




D62B 


91 


BA 




49 




STA 


(FCBPTR) , Y 




D62D 


C8 






50 




INY 




BUMP TO 'FCBDEVN' 


D62E 


Bl 


BA 




51 




LDA 


(FCBPTR) , Y 




D630 


85 


35 




52 




STA 


DEVNUM 


GO LOOK FOR ASSOCIATED VCB. 


D632 


20 


48 


C8 


53 




JSR 


DEWCB 




D635 


A6 


B6 




54 




LDX 


VCBPTR 


GET VCBPTR 


D637 


DE 


IE 


11 


55 




DEC 


VCB+VCBOPNC, X 


INDICATE ONE LESS FILE OPEN. 


D63A 


DO 


08 


D644 


56 




BNE 


CLOSEND 


BRANCH IF THAT WASN'T THE LAST... 


D63C 


BD 


11 


11 


57 




LDA 


VCB+VCBSTAT, X 
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11 CLOSE. EOF 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 


PAGE 10 6 


D53F:29 7F 


58 




AND 


#$7F 


; STRIP 'FILES 


OPEN' BIT 


D641:9D 11 11 


59 




STA 


VCB+VCBSTAT, X 






D644:18 


60 


CLOSEND 


CLC 








D645:60 


61 




RTS 








D646:4C 78 D7 


62 


CLOSERR 


JMP 


GLBERR 


; DON'T REPORT 


CLOSALL ERR 


D649: 


63 


* 
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D549 








65 


* 








D649 


A5 


Al 




66 


FLUSH 


LDA 


C . REFNUM 


FLUSH ALL? 


D64B 


DO 


3A 


D687 


67 




BNE 


FLUSHl 


NO, JUST ONE OF 'EM 


D64D 


8D 


18 


D6 


68 




STA 


CFERR 


CLEAR GLOBAL FLUSH ERROR 


D650 


20 


81 


D7 


69 




JSR 


GFCBADR 


SET UP POINTER TO FOB 


D653 


A9 


00 




70 


FLSHALL 


LDA 


#0 


BEGIN AT THE BEGINNING. 


D655 


85 


BA 




71 


FLSHALl 


STA 


FCBPTR 


SAVE CURRENT LOW BYTE OF POINTER 


D557 


AO 


00 




72 




LDY 


#FCBREFN 


INDEX TO REFERENCE NUMBER 


D559 


Bl 


BA 




73 




LDA 


(FCBPTR) , Y 


IS THIS REFERENCE FILE OPEN? 


D65B 


FO 


07 


D664 


74 




BEQ 


NXFLUSH 


NO, TRY NEXT. 


D65D 


20 


7F 


D6 


75 




JSR 


FLUSH2 


CLEAN IT OUT. . . 


D660 


BO 


lA 


D67C 


76 




BCS 


FLSHERR 


RETURN ANY ERRORS 


D662 








77 










D662 


BO 


E2 


D646 


78 




BCS 


CLOSERR 




D664 


A5 


BA 




79 


NXFLUSH 


LDA 


FCBPTR 


BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


D666 


18 






80 




CLC 






D567 


59 


20 




81 




ADC 


#$20 




D569 


90 


EA 


D655 


82 




BCC 


FLSHALl 


BRANCH IF WITHIN SAME PAGE. 


D56B 


A5 


BB 




83 




LDA 


FCBPTR+1 




D66D 


E6 


BB 




84 




INC 


FCBPTR+1 


BUMP TO NEXT PAGE . 


D6 6F 


CD 


28 


00 


85 




CMP 


FCBADDRH 


HAVE WE CHECKED BOTH PAGES? 


D672 


FO 


DF 


D653 


86 




BEQ 


FLSHALL 


YES, RETURN NO ERROR. 


D674 


18 






87 


FLUSHEND 


CLC 






D675 


AD 


18 


D6 


88 




LDA 


CFERR 


ON LAST FLUSH OF A FLUSH ( ) 


D678 


FO 


01 


D67B 


89 




BEQ 


F3 


BRANCH IF NO LOGGED ERRORS 


D67A 


38 






90 




SEC 




REPORT ERROR NOW 


D67B 


60 






91 


F3 


RTS 






D67C 


4C 


78 


D7 


92 


FLSHERR 


JMP 


GLBERR 


FLUSH ALL OR ONE? 


D67F 








93 










D67F 


20 


AO 


BE 


94 


FLUSH2 


JSR 


FNDFCBUF 


MUST SET UP ASSOCIATED VCB AN BUFFER LOCATIONS 


D682 


90 


OD 


D691 


95 




BCC 


FLUSH2A 


BRANCH IF NO ERROR ENCOUNTERED. 


D684 


4C 


78 


D7 


96 




JMP 


GLBERR 


CHECK FOR CLOSE OR FLUSH ALL 


D687 








97 


* 








D687 


A9 


00 




98 


FLUSHl 


LDA 


#0 


CLEAR 


D689 


80 


18 


D6 


99 




STA 


CFERR 


GLOBAL ERROR FOR NORMAL REFNUM FLUSH 


D68C 


20 


75 


BE 


100 




JSR 


FINDFCB 


SET UP POINTER TO FOB USER REFERENCES 


D68F 


BO 


EB 


D67C 


101 




BCS 


FLSHERR 


RETURN ANY ERRORS 


D691 


AO 


09 




102 


FLUSH2A 


LDY 


#FCBATTR 


TEST TO SEE IF FILE IS 


D693 


Bl 


BA 




103 




LDA 


(FCBPTR) , Y 


MODIFIED. FIRST TEST WRITE ENABLED. 


D695 


2 9 


02 




104 




AND 


#WRITEN 




D697 


FO 


DB 


D674 


105 




BEQ 


FLUSHEND 


BRANCH IF 'READ ONLY' 


D599 


AO 


IC 




105 




LDY 


#FCBDIRTY 


SEE IF EOF HAS BEEN MODIFIED 


D69B 


Bl 


BA 




107 




LDA 


(FCBPTR) , Y 




D59D 


30 


08 


D6A7 


108 




BMI 


FLUSH2B 


BRANCH IF IT HAS 


D69F 


AO 


08 




109 




LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


D6A1 


Bl 


BA 




110 




LDA 


(FCBPTR) , Y 


(IN OTHER WORDS: WAS FILE ACTUALLY 


D6A3 


29 


70 




111 




AND 


#USEMOD+EOFMOD+DATMOD ; WRITTEN TO WHILE IT'S BEEN OPEN?) 


D6A5 


FO 


CD 


D674 


112 




BEQ 


FLUSHEND 


BRANCH IF FILE NOT MODIFIED. 


D6A7 


20 


87 


D5 


113 


FLUSH2B 


JSR 


TWRPROTl 


DISK SWITCH CHECKING 


D6AA 


AD 


BB 


D5 


114 




LDA 


DSWGLOB 




D6AD 


FO 


04 


D6B3 


115 




BEQ 


FLUSH2C 


BRANCH IF NO SWITCH 


D6AF 


A9 


00 




116 




LDA 


#XDISKSW 




D6B1 


38 






117 




SEC 






D6B2 


60 






118 




RTS 




FORCES A VERIFIED RETRY 


D6B3 


AO 


08 




119 


FLUSH2C 


LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


D6B5 


Bl 


BA 




120 




LDA 


(FCBPTR) , Y 
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11 CLOSE. EOF 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



D6B7 ; 


;29 


40 




121 


AND 


#DATMOD 


; DOES CURRENT DATA BUFFER NEED TO BE 


D6B9 ; 


:F0 


05 


D6C0 


122 


BEQ 


FLUSH3 


; WRITTEN? BRANCH IF NOT. 


D6BB; 


:20 


84 


CP 


123 


JSR 


WFCBDAT 


; IF SO, GO WRITE IT STUPID! 


D6BE ; 


:B0 


BC 


D67C 


124 


BCS 


FLSHERR 




D6C0: 


:A0 


08 




125 FLUSH3 


LDY 


#FCBSTAT 


; CHECK TO SEE IF THE INDEX BLOCK (TREE 


D6C2 : 


:B1 


BA 




126 


LDA 


(FCBPTR) , Y 


; NEEDS TO BE WRITTEN. 


D6C4 ; 


;29 


80 




127 


AND 


#IDXMOD 




D6C5; 


:F0 


05 


D6CD 


128 


BEQ 


FLUSH4 


; BRANCH IF NOT . . . 


D6C8; 


:20 


94 


CF 


129 


JSR 


WFCBIDX 




D6CB; 


:B0 


AF 


D67C 


130 


BCS 


FLSHERR 


; RETURN ANY ERRORS. 
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11 CLOSE. EOF 



SOS 1.1 BLOCK FILE MANAGER 



AUGUST-2006 



D6CD 








132 


* 








D6CD 


AO 


06 




133 


FLUSH4 


LDY 


#FCBENTN 


NOW PREPARE TO UPDATE DIRECTORY 


D6CF 


Bl 


BA 




134 


OWNRMOV 


LDA 


(FOBPTR) , Y 


NOTE: THIS CODE DEPENDS ON THE 


D6D1 


99 


B3 


DB 


135 




STA 


D . DEV-FOBDEVN, Y 


DEFINED ORDER OF THE FILE CONTROL 


D6D4 


88 






136 




DEY 




BLOCK AND THE TEMPORARY DIRECTORY AREA IN 'WORKSPO 






** 












D6D5 


CO 


00 




137 




OPY 


#F0BDEVN-1 




D5D7 


DO 


F6 


D6CF 


138 




BNE 


OWNRMOV 




D5D9 


AD 


B5 


DB 


139 




LDA 


D . HEAD 


READ IN THE DIRECTORY HEADER FOR THIS FILE 


D6DC 


85 


C5 




140 




STA 


BLOKNML 




D6DE 


AD 


B6 


DB 


141 




LDA 


D.HEAD+1 




D6E1 


85 


07 




142 




STA 


BLOKNMH 




D6E3 


AD 


B4 


DB 


143 




LDA 


D . DEV 




D6E6 


85 


35 




144 




STA 


DEVNUM 




D6E8 


20 


58 


CO 


145 




JSR 


RDGBUF 


READ IT INTO THE GENERAL PURPOSE BUFFER 


D6EB 


BO 


8F 


D670 


146 




BOS 


FLSHERR 


BRANCH IF ERROR. 


D6ED 


20 


2A 


06 


147 




JSR 


MOVHEDO 


MOVE HEADER INFO. 


D6F0 


AD 


B7 


DB 


148 




LDA 


D.ENTBLK 


GET ADDRESS OF DIRECTORY BLOCK THAT 


D5F3 


AC 


B8 


DB 


149 




LDY 


D.ENTBLK+1 


CONTAINS THE FILE ENTRY. 


D6F5 


CD 


B5 


DB 


150 




CMP 


D . HEAD 


TEST TO SEE IF IT'S THE SAME BLOCK THAT 


D6F9 


DO 


05 


D700 


151 




BNE 


FLSHEBLK 


THE HEADER IS IN. BRANCH IF NOT. 


D6FB 


cc 


B6 


DB 


152 




OPY 


D . HEAD+1 




D6FE 


FO 


07 


D707 


153 




BEQ 


FLUSH5 


BRANCH IF HEADER BLOCK = ENTRY BLOCK. 


D700 


85 


06 




154 


FLSHEBLK 


STA 


BLOKNML 




D702 


84 


07 




155 




STY 


BLOKNMH 




D704 


20 


58 


00 


156 




JSR 


RDGBUF 


GET BLOCK WITH FILE ENTRY IN GENERAL BUFFER. 


D707 


20 


D6 


03 


157 


FLUSH5 


JSR 


ENTCALC 


SET UP POINTER TO ENTRY 


D70A 


20 


85 


C4 


158 




JSR 


MOVENTRY 


MOVE ENTRY TO TEMP ENTRY BUFFER IN 'WORKSPO' 


D70D 


AO 


18 




159 




LDY 


#FCBUSE 


UPDATE 'BLOCKS USED' COUNT. 


D70F 


Bl 


BA 




160 




LDA 


(FOBPTR) , Y 




D711 


8D 


CD 


DB 


161 




STA 


DFIL+D. USAGE 




D714 


C8 






162 




INY 






D715 


Bl 


BA 




163 




LDA 


(FOBPTR) , Y 




D717 


8D 


CE 


DB 


164 




STA 


DFIL+D.USAGE+1 


HI BYTE TOO. . . 


D71A 


AO 


15 




165 




LDY 


#FCBEOF 


AND MOVE IN END OF FILE MARK WHETHER 


D71C 


Bl 


BA 




166 


EOFUPDTE 


LDA 


(FOBPTR) , Y 


WE NEED TO OR NOT . 


D71E 


99 


BA 


DB 


167 




STA 


DFIL+D . EOF-FOBEOF 


Y 


D721 


C8 






168 




INY 




MOVE ALL THREE BYTES. 


D722 


CO 


18 




169 




OPY 


#F0BE0F+3 




D724 


DO 


F6 


D710 


170 




BNE 


EOFUPDTE 




D726 


AO 


OC 




171 




LDY 


#FOBFRST 


ALSO MOVE IN THE ADDRESS OF 


D728 


Bl 


BA 




172 




LDA 


(FOBPTR) , Y 


THE FILE'S FIRST BLOCK SINCE 


D72A 


C8 






173 




INY 




IT MIGHT HAVE CHANGED SINCE THE FILE 


D72B 


8D 


CB 


DB 


174 




STA 


DFIL+D. FRST 


FIRST OPENED. 


D72E 


Bl 


BA 




175 




LDA 


(FOBPTR) , Y 




D730 


8D 


CC 


DB 


176 




STA 


DFIL+D. FRST+1 
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D733 


AO 


07 




178 




LDY 


#FCBSTYP 


AND THE LAST THING TO UPDATE IS 


D735 


Bl 


BA 




179 




LDA 


(FCBPTR) , Y 


THE STORAGE TYPE. 


D737 


OA 






180 




ASL 


A 


(SHIFT IT INTO THE HI NIBBLE) 


D738 


OA 






181 




ASL 


A 




D739 


OA 






182 




ASL 


A 




D73A 


OA 






183 




ASL 


A 




D73B 


8D 


E3 


DB 


184 




STA 


SCRTCH 




D73E 


AD 


BA 


DB 


185 




LDA 


DFIL+D . STOR 


GET OLD TYPE BYTE (IT MIGHT BE THE SAME) 


D741 


29 


OF 




185 




AND 


#$F 


STRIP OFF OLD TYPE 


D743 


OD 


E3 


DB 


187 




ORA 


SCRTCH 


ADD IN THE NEW TYPE, 


D746 


8D 


BA 


DB 


188 




STA 


DFIL+D . STOR 


AND PUT IT AWAY. 


D749 


20 


FO 


C3 


189 




JSR 


DREVISE 


GO UPDATE DIRECTORY! 


D74C 


BO 


2A 


D778 


190 




BCS 


FLUSHERR 




D74E 


AO 


IC 




191 




LDY 


#FCBDIRTY 


MARK 


D750 


Bl 


BA 




192 




LDA 


(FCBPTR) , Y 


FOB/DIRECTORY 


D752 


29 


7F 




193 




AND 


#$FF-FCBMOD 


AS 


D754 


91 


BA 




194 




STA 


(FCBPTR) , Y 


UNDIRTY 


D756 


A2 


00 




195 




LDX 


#0 


NOW CHECK TO SEE IF A BIT MAP 


D758 


AD 


B4 


DB 


195 




LDA 


D.DEV 


IS LYING AROUND THAT SHOULD BE WRITTEN. 


D75B 


C5 


ID 




197 




CMP 


BMADEV 


IS IT IN MAP BUFFER A? 


D75D 


FO 


06 


D765 


198 




BEQ 


BMAPUP 


YES, PUT IT ON THE DISK IF NECESSARY. 


D75F 


A2 


06 




199 




LDX 


#BMTABSZ 


SET INDEX TO BIT MAP TABLE 'B' 


D761 


C5 


23 




200 




CMP 


BMBDEV 


NO, WHAT ABOUT BIT MAP BUFFER B? 


D763 


DO 


11 


D776 


201 




BNE 


FLSHENDl 


NOPE, ALL DONE. 


D7 65 


B5 


IC 




202 


BMAPUP 


LDA 


BMASTAT, X 


TEST TO SEE IF IT'S BEEN MODIFIED. 


D767 


10 


OD 


D776 


203 




BPL 


FLSHENDl 


NOPE, ALL DONE AS I SAID. 


D759 


85 


lA 




204 




STX 


BMTAB 




D7 6B 


20 


4F 


CO 


205 




JSR 


WRTBMAP 


GO PUT IT AWAY. 


D7 5E 


BO 


08 


D778 


206 




BCS 


FLUSHERR 




D770 


A6 


lA 




207 




LDX 


BMTAB 


MARK MAP AS UPDATED 


D772 


A9 


00 




208 




LDA 


#0 




D774 


95 


IC 




209 




STA 


BMASTAT, X 




D776 


18 






210 


FLSHENDl 


CLC 






D777 


50 






211 




RTS 






D778 






D778 


212 


FLUSHERR 


EQU 


J, 


DROP INTO GLBERR 


D778 








213 


* 








D778 






D778 


214 


GLBERR 


EQU 




REPORT ERROR IMMEDIATELY 


D778 








215 


* ONLY IF 


NOT A 


CLOSE ALL OR FLUSH 


ALL 


D778 


A6 


Al 




216 




LDX 


C . REFNUM 




D77A 


DO 


04 


D780 


217 




BNE 


GLBERRl 


NOT AN 'ALL' SO REPORT NOW 


D77C 


18 






218 




CLC 






D77D 


8D 


18 


D5 


219 




STA 


CFERR 


SAVE FOR LATER 


D780 


50 






220 


GLBERRl 


RTS 






D781 








221 


* 








D781 








222 


* 








D781 


A5 


29 




223 


GFCBADR 


LDA 


FCBANKNM 


GET BANK THAT FOB IS IN 


D783 


8D 


BB 


14 


224 




STA 


SISFCBP 




D786 


AD 


28 


00 


225 




LDA 


FCBADDRH 


AND HIGH BYTE ADDRESS OF FILE CONTORL BLOCK 


D789 


85 


BB 




226 




STA 


FCBPTR+1 




D78B 


60 






227 




RTS 




SILLY THAT IT'S SO SHORT... 


D78C 








228 


* 








D78C 


A9 


00 




229 


SETERR 


LDA 


#ACCSERR 




D78E 


38 






230 




SEC 






D78F 


50 






231 


EOFRETN 


RTS 
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D790 








233 


* 








D790 


AO 


07 




234 


SETEOF 


LDY 


#FCBSTYP 


; ONLY KNOW HOW TO MOVE EOF OF TREE TYPE 


D792 


Bl 


BA 




235 




LDA 


(FCBPTR) , Y 




D794 


C9 


04 




236 




CMP 


#TRETYP+1 




D796 


BO 


F4 


D78C 


237 




BCS 


SETERR 


; BRANCH IF OTHER THAN TREE 


D798 


AO 


09 




238 




LDY 


#FCBATTR 


; NOW CHECK TO INSURE WRITE IS ENABLED. 


D7 9A 


Bl 


BA 




239 




LDA 


(FCBPTR) , Y 




D79C 


29 


02 




240 




AND 


#WRITEN 


; CAN WE SET NEW EOF? 


D79E 


FO 


EC 


D78C 


241 




BEQ 


SETERR 


; NOPE, ACCESS ERROR. 


D7A0 


20 


78 


D5 


242 




JSR 


TSTWPROT 


; FIND OUT IF MOD IS POSIBLE (HARDWARE WRITE PROTECT) 


D7A3 


BO 


E7 


D78C 


243 




BCS 


SETERR 




D7A5 


AO 


17 




244 




LDY 


#FCBE0F+2 


; SAVE OLD EOF 


D7A7 


A2 


02 




245 




LDX 


#2 


; SO IT CAN BE SEEN 


D7A9 


Bl 


BA 




246 


SETSAVE 


LDA 


(FCBPTR) , Y 


; WHETHER BLOCKS NEED 


D7AB 


9D 


FO 


DB 


247 




STA 


OLDEOF, X 


; TO BE RELEASED 


D7AE 


88 






248 




DEY 




; UPON 


D7AF 


CA 






249 




DEX 




; CONTRACTION 


D7B0 


10 


F7 


D7A9 


250 




BPL 


SETSAVE 


; ALL THREE BYTES OF THE EOF 


D7B2 


20 


CD 


CC 


251 




JSR 


ADJMARK 


; GET ADJUSTED END OF FILE ACCORDING TO 'C.BASE' INTO 


D7B5 


BO 


D8 


D78F 


252 




BCS 


EOFRETN 


; RETURN ANY ERROR IMMEDIATELY 


D7B7 


A2 


02 




253 




LDX 


#2 




D7B9 


B5 


2A 




254 


NEOFPOS 


LDA 


TPOSLL, X 


; POSITION MARK TO NEW EOF 


D7BB 


95 


A3 




255 




STA 


C . NEWEOF, X 




D7BD 


CA 






256 




DEX 






D7BE 


10 


F9 


D7B9 


257 




BPL 


NEOFPOS 




D7C0 


AO 


14 




258 




LDY 


#FCBMARK+2 


; FIND OUT IF EOF < MARK. 


D7C2 


A2 


02 




259 




LDX 


#2 




D7C4 


Bl 


BA 




2 60 


NEOFTST 


LDA 


(FCBPTR) , Y 




D7C6 


D5 


A3 




261 




CMP 


C . NEWEOF, X 


; COMPARE UNTIL NOT EQUAL OR CARRY CLEAR 


D7C8 


90 


OB 


D7D5 


262 




BCC 


SETEOFl 


; BRANCH IF EOF>MARK 


D7CA 


DO 


04 


D7D0 


263 




BNE 


SETEOFO 


; BRANCH IF EOF<MARK 


D7CC 


88 






2 64 




DEY 






D7CD 


CA 






265 




DEX 






D7CE 


10 


F4 


D7C4 


265 




BPL 


NEOFTST 


; LOOP ON ALL THREE BYTES 


D7D0 


20 


09 


CD 


267 


SETEOFO 


JSR 


RDPOSN 


; READ IN NEW POSITION. 


D7D3 


BO 


BA 


D78F 


268 




BCS 


EOFRETN 


; RETURN ANY ERRORS . 


D7D5 


A2 


02 




269 


SETEOFl 


LDX 


#2 




D7D7 


AO 


17 




270 




LDY 


#FCBE0F+2 


; MOVE NEW EOF TO FCB . 


D7D9 


B5 


A3 




271 


SETE0F2 


LDA 


C . NEWEOF, X 




D7DB 


91 


BA 




272 




STA 


(FCBPTR) , Y 




D7DD 


88 






273 




DEY 






D7DE 


CA 






274 




DEX 






D7DF 


10 


F8 


D7D9 


275 




BPL 


SETE0F2 


; MOVE ALL THREE BYTES. 


D7E1 


20 


F4 


DD 


275 




JSR 


FCBUSED 


; MARK FCB AS DIRTY (FOR FLUSH) 


D7E4 








277 


* 








D7E4 


A2 


02 




278 




LDX 


#2 


; POINT TO THIRD BYTE 


D7E6 


BD 


FO 


DB 


279 


PURTEST 


LDA 


OLDEOF, X 


; SEE IF EOF MOVED BACKWARDS 


D7E9 


D5 


A3 




280 




CMP 


C. NEWEOF, X 


; SO BLOCKS CAN 


D7EB 


90 


05 


D7F2 


281 




BCC 


PURTESTl 


; BE RELEASED (BRANCH IF NOT) 


D7ED 


DO 


09 


D7F8 


282 




BNE 


PURGE 


; BRANCH IF BLOCKS TO BE RELEASED 


D7EF 


CA 






283 




DEX 






D7F0 


10 


F4 


D7E6 


284 




BPL 


PURTEST 


; ALL THREE BYTES 


D7F2 


4C 


76 


D7 


285 


PURTESTl 


JMP 


FLSHENDl 


; NEW EOF NOT SMALLER 


D7F5 


4C 


7B 


D8 


286 


TRELEASl 


JMP 


TRELEASE 


; OVERFLOW PREVENTER 


D7F8 








287 










D7F8 


AO 


07 




288 


PURGE 


LDY 


#FCBSTYP 


; FIND OUT WHAT TYPE OF TREE 
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D7FA 


Bl 


BA 








289 


LDA 


(FCBPTR) , Y 




TO PERFORM THE PROPER 


D7FC 


C9 


01 








290 


CMP 


#SEEDTYP 




STYLE OF BLOCK RELEASE 


D7FE 


FO 


3B 




Df 


3B 


291 


BEQ 


EOFOUT 




SEED DON'T DEALLOCATE 


D800 


C9 


03 








2 92 


CMP 


♦tretyp 




FULL TREE? 


D802 


FO 


Fl 




D7F5 


293 


BEQ 


TRELEASl 




BRANCH IF YES 


D804 












294 










D804 












2 95 


* IF WE GET HERE 


, WE ARE RELEASING 




D804 












296 


* BLOCKS AT THE 


END OF A SAPLING FILE: CALCULATE CORRECT POSITION 


D804 












297 


* WITHIN THE INDEX BLOCK AND 


ALLOW 


SUBROUTINE 


D804 












298 


* PURGE LATTER BLOCKS TO DEALLOCATE 


D804 












299 


* ALL THE DATA BLOCKS THAT FOLLOW 




D804 












300 










D804 


20 


7F 


CB 




301 


JSR 


FNDBMAP 




REFRESH THE RIGHT MAP FOR THIS VOLUME 


D807 


A6 


2C 








302 


LDX 


TPOSHI 




PRELOAD 


D809 


A4 


2B 








303 


LDY 


TPOSLH 




THE THREE EOF 


D80B 


A5 


2A 








304 


LDA 


TPOSLL 




BYTES 


D80D 


DO 


OA 




DE 


19 


305 


BNE 


PURl 




; BRANCH IF NO BOUNDARY ADJUSTMENT NEEDED 


D80F 


CO 


00 








306 


CPY 


#0 






D811 


DO 


05 




DE 


18 


307 


BNE 


PUR2 




MIDDLE BYTE ZERO MEANS NO CARRY 


D813 


EO 


00 








308 


CPX 


#0 




ALL BYTES ZERO?? 


D815 


FO 


02 




DE 


19 


309 


BEQ 


PURl 




BRANCH IF YES 


D817 


CA 










310 


DEX 








D818 












311 










D818 












312 


* THESE LINES IF 


CODE, SOMEWHAT CRYPTIC, 


D818 












313 


* CALCULATE THE 


POINT AT WHICH THE 




D818 












314 


* LAST BLOCK CONTAINING THE 


LAST BIT 


D818 












315 


* OF DATUM 








D818 












316 


* 








D818 












317 


♦ THE FOLLOWING 


IS ROUGHLY A 


/512 




D818 












318 


* ALGORITHM 








D818 












319 










D818 


88 










320 


PUR2 DEY 








D819 


8A 










321 


PURl TXA 








D81A 


4A 










322 


LSR 


A 






D81B 


98 










323 


TYA 








D81C 


6A 










324 


ROR 


A 






D81D 












325 










D81D 


20 


3D 


D8 






326 


JSR 


PURLBLKS 




MAKES A GOOD PTR TO DO THE RELEASING 


D820 


AO 


08 








327 


LDY 


#FCBSTAT 




MARK INDEX BLOCK 


D822 


Bl 


BA 








328 


LDA 


(FCBPTR) , Y 




AS DIRTY 


D824 


09 


80 








329 


ORA 


#IDXMOD 






D825 


91 


BA 








330 


STA 


(FCBPTR) , Y 






D828 


AD 


79 


DE 






331 


LDA 


PURUSE 




INDICATE NEW NUMBER OF BLOCKS USED 


D82B 


18 










332 


CLC 








D82C 


69 


02 








333 


ADC 


#2 




ACCOUNT FOR CARDINAL AND INDEX 


D82E 


AO 


18 








334 


LDY 


#FCBUSE 






D830 


91 


BA 








335 


STA 


(FCBPTR) , Y 




FILE LOW BYTE 


D832 


C8 










336 


INY 








D833 


A9 


00 








337 


LDA 


#0 




ANTICIPATE <257 BLOCKS 


D835 


90 


02 




DE 


39 


338 


BCC 


PURHI 






D837 


A9 


01 








339 


LDA 


#1 




>256 BLOCKS IN FILE 


D839 


91 


BA 








340 


PURHI STA 


(FCBPTR) , Y 




HIGH BYTE BLOCKS USED 


D83B 


18 










341 


EOFOUT CLC 








D83C 


60 










342 


RTS 






NO ERRORS POSSIBLE 


D83D 












343 










D83D 








DE 


3D 


344 


PURLBLKS EQU 






PURGE LATTER BLOCKS 
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SOS 1.1 BLOCK FILE MANAGER AUGUST-2006 PAGE 113 



Df 


)3D 












345 


* INPUT ARG: A REGISTER CONTAINING 


Df 


)3D 












346 


* POINTER 


TO CURRENT DATA BLOCK 


WITHIN THE 


Di 


i3D 












347 


* CURRENT 


INDEX 


BLOCK (TINDX) 




D 


3D 












348 


* DEALLOCATE ALL 


LEGAL BLOCKS AFTER 


D 


3D 












349 


♦ THE A REGISTER 


PTR. NO ERRORS 


POSSIBLE 


D 


3D 












350 










D( 


J 3D 


A8 










351 




TAY 




; MAKE PROPER INDEX 


Di 


i3E 


8C 


79 


Df 






352 




STY 


PURUSE 


; INDICATES NUMBER OF BLOCKS IN USE IN FILE 


Di 


S41 


C8 










353 


PURLOOP 


INY 




; POINT TO A PTR TO DATA BLK TO DEALLOCATE 


Di 


S42 


FO 


34 




DE 


78 


354 




BEQ 


PURLRTS 


; NO MORE BLOCKS IN INDEX 


Df 


)44 


E6 


B3 








355 




INC 


TINDX+1 


; GET HIGH PART OF BLOCK ADDR 


D! 


!46 


Bl 


B2 








356 




LDA 


(TINDX) , Y 




D 


48 


AA 










357 




TAX 




; X IS A PASSING PARM 


D 


49 


A9 


00 








358 




LDA 


#0 


; TELL INDEX BLOCK THAT THE DATA 


Df 


MB 


91 


B2 








359 




STA 


(TINDX) , Y 


; BLOCK IS NOW FREE 


Df 


J4D 


8A 










360 




TXA 






Df 


)4E 


C6 


B3 








361 




DEC 


TINDX+1 


; AND LOW PART 


Df 


J50 


11 


B2 








362 




ORA 


(TINDX) , Y 




Df 


!52 


FO 


ED 




DE 


41 


363 




BEQ 


PURLOOP 


; INDICATED ADDR WAS ZERO-ZERO 


Df 


i54 


Bl 


B2 








364 




LDA 


(TINDX) , Y 


; A REG IS ANOTHER PASSING PARM 


Df 


!56 


48 










365 




PHA 






Df 


i57 


A9 


00 








366 




LDA 


#0 




D 


59 


91 


B2 








367 




STA 


(TINDX) , Y 


; AND SET LOW DATA ADDR AS FREED 


D 


5B 


68 










368 




PLA 






Df 


55C 


8C 


7A 


Df 






369 




STY 


PURPLACE 


; TEMP STORAGE 


Df 


J5F 


20 


04 


CA 




370 




JSR 


DEALLOC 


; DEALLOCATE BLOCK (ADDR: A (LOW), X ( HIGH 


Df 


J62 


AO 


14 








371 




LDY 


#VCBTFRE 




Df 


364 


18 










372 




CLC 






Df 


365 


Bl 


B6 








373 




LDA 


(VCBPTR) , Y 


; ADJUST NUMBER OF FREE BLOCKS ON VOLUME 


Df 


367 


69 


01 








374 




ADC 


#1 




Df 


369 


91 


B6 








375 




STA 


(VCBPTR) , Y 




Df 


36B 


C8 










376 




INY 






Df 


36C 


Bl 


B5 








377 




LDA 


(VCBPTR) , Y 


; HIGH BYTE OF TOTAL FREE 


Df 


i6E 


59 


00 








378 




ADC 


#0 




Df 


370 


91 


B6 








379 




STA 


(VCBPTR) , Y 




Df 


372 


AC 


7A 


DE 






380 




LDY 


PURPLACE 




Df 


375 


4C 


41 


Df 






381 




JMP 


PURLOOP 




Df 


378 


60 










382 


PURLRTS 


RTS 






D 


79 








OC 


01 


383 


PURUSE 


DS 


1 


; CURRENT NUMBER OF BLOCKS USED 


D87A 








oc 


01 


384 


PURPLACE 


DS 


1 


; CURRENT PLACE IN RELEASE-BLOCK CYCLE 


Df 


37B 








DE 


7B 


385 


TRELEASE 


EQU 






Df 


37B 


4C 


3B 


DE 






385 




JMP 


EOFOUT 


; RELEASE TWO LEVEL TREE CODE GOES HERE 


Df 


37E 












387 


* 








Df 


37E 


AO 


15 








388 


GETEOF 


LDY 


#FCBEOF 


; INDEX TO END OF FILE MARK 


Df 


380 


A2 


00 








389 




LDX 


#0 


; WE'VE GOT INDIRECT BOTH WAYS (IN S OUT) 


Df 


382 


Bl 


BA 








390 


OUTEOF 


LDA 


(FCBPTR) , Y 




Df 


384 


81 


A2 








391 




STA 


(C. OUTEOF, X) 




Df 


386 


C8 










392 




INY 






D 


87 


CO 


18 








393 




CPY 


#FCBE0F+3 




Df 


389 


FO 


22 




D8AD 


394 




BEQ 


OFFRTS 


; BRANCH IF ALL THREE BYTES TRANSFERED . 


Df 


38B 


E6 


A2 








395 




INC 


C . OUTEOF 


; BUMP USER'S POINTER. 


Df 


38D 


DO 


F3 




DE 


82 


396 




BNE 


OUTEOF 




D 


8F 


E6 


A3 








397 




INC 


C.OUTEOF+1 




D 


91 


DO 


EF 




DE 


82 


398 




BNE 


OUTEOF 


; BRANCH ALWAYS 


Df 


393 












399 










Df 


393 












400 




CHN 


DESTROY 
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12 DESTROY 


SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 PAGE 114 


D893 






2 


* 








D893 


:A0 


09 


3 


NEWLINE 


LDY 


#FCBATTR 


; ADJUST NEWLINE STATUS FOR OPEN FILE. 


D895 


: A5 


A2 


4 




LDA 


C . ISNEWL 


; ON OR OFF? 


D8 97 


: 10 


OE 


D8A7 5 




BPL 


OFFNEWL 


; BRANCH IF NEW LINE IS TO BE CLEARED. 


D899 


:A9 


10 


6 




LDA 


#NLINEN 




D89B 


: 11 


BA 


7 




ORA 


(FCBPTR) , Y 


; SET NEW LINE BIT IN ATTRIBUTES 


D89D 


: 91 


BA 


8 




STA 


(FCBPTR) , Y 




D89F 


:A0 


OA 


9 




LDY 


#FCBNEWL 


; AND MOVE IN NEW 'NEW-LINE' BYTE. 


D8A1 


:A5 


A3 


10 




LDA 


C . NEWL 




D8A3 


: 91 


BA 


11 




STA 


(FCBPTR) , Y 




D8A5 


:18 




12 




CLC 






D8A6 


: 60 




13 




RTS 




; NO ERROR POSSIBLE. 


D8A7 






14 










D8A7 


:A9 


EF 


15 


OFFNEWL 


LDA 


#$FF-NLINEN 




D8A9 


:31 


BA 


16 




AND 


(FCBPTR) , Y 




D8AB 


: 91 


BA 


17 




STA 


(FCBPTR) , Y 


; CLEAR NEW-LINE BIT. 


D8AD 


:18 




18 


OFFRTS 


CLC 




; THE NEW LINE CHARACTER DOES'T MATTER 


D8AE 


: 60 




19 




RTS 
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SOS 


1 . 1 BLOCK 


FILE 


MANAGER AUGUST-2006 PAGE 115 


D8AF 








21 


* 








DBAF 


20 


80 


C4 


22 


GETINFO 


JSR 


FINDFILE 


LOOK FOR FILE THEY WANT OT KNOW ABOUT. 


D8B2 


90 


37 


D8EB 


23 




BCC 


GTINFOl 


BRANCH IF NO ERRORS. 


D8B4 


C9 


00 




24 




CMP 


#BADPATH 


WAS IT A ROOT DIRECTORY FILE? 


D8B6 


38 






25 




SEC 




(IN CASE OF NO MATCH) 


D8B7 


DO 


56 


D90F 


25 




BNE 


GINFOERR 




D8B9 


A9 


FO 




27 




LDA 


#$F0 




D8BB 


8D 


BA 


DB 


28 




STA 


DFIL+D . STOR 


FOR GET INFO, REPORT PROPER STORAGE TYPE 


D8BE 


A9 


00 




29 




LDA 


#0 


FORCE A COUNT OF FREE BLOCKS. 


D8C0 


85 


04 




30 




STA 


REQL 




D8C2 


85 


05 




31 




STA 


REQH 




D8C4 


20 


4C 


C9 


32 




JSR 


TSFRBLK 


(RETURNS IF IMMEDIATELY IF COUNT HAS PREVIOUSLY BEEN TAKEN 


D8C7 


AO 


15 




33 




LDY 


#VCBTFRE+1 




D8C9 


Bl 


B6 




34 




LDA 


(VCBPTR) , Y 


RETURN TOTAL BLOCKS AND TOTAL IN USE . 


D8CB 


85 


05 




35 




STA 


REQH 


FIRST TRANSFER 'FREE' BLOCKS TO ZPAGE FOR LATER SUBTRACT 


D8CD 


88 






36 




DEY 






D8CE 


Bl 


B6 




37 




LDA 


(VCBPTR) , Y 


TO DETERMINE THE 'USED' COUNT 


D8D0 


85 


04 




38 




STA 


REQL 




D8D2 


88 






39 




DEY 






D8D3 


Bl 


B6 




40 




LDA 


(VCBPTR) , Y 


TRANSFER TO 'D.' TABLE AS AUX I.D. 


D8D5 


8D 


DA 


DB 


41 




STA 


DFIL+D .AUXID+1 


(TOTAL BLOCK COUNT IS CONSIDERED AUX I.D. FOR THE VOLUME) 


D8D8 


AA 






42 




TAX 






D8D9 


88 






43 




DEY 






D8DA 


Bl 


B6 




44 




LDA 


(VCBPTR) , Y 




D8DC 


8D 


D9 


DB 


45 




STA 


DFIL+D .AUXID 




D8DF 


38 






46 




SEC 




NOW SUBTRACT AND REPORT THE NUMBER OF BLOCKS ' IN USE ' 


D8E0 


E5 


04 




47 




SBC 


REQL 




D8E2 


8D 


CD 


DB 


48 




STA 


DFIL+D. USAGE 




D8E5 


8A 






49 




TXA 






D8E6 


E5 


05 




50 




SBC 


REQH 




D8E8 


8D 


CE 


DB 


51 




STA 


DFIL+D. USAGE+1 




D8EB 


AO 


00 




52 


GTINFOl 


LDY 


#0 


TRANSFER BYTES FROM THERE INTERNAL ORDER TO CALL SPEC VIA 


'INFTABL' TRANSLATION 










D8ED 


B9 


58 


D9 


53 


GTINF02 


LDA 


INFTABL, Y 




D8F0 


10 


11 


D903 


54 




BPL 


GTINF03 


BRANCH IF THIS IS DATA IS VALID AS IS. 


D8F2 


29 


7F 




55 




AND 


#$7F 


IS THIS THE 4TH BYTE OF THE EOF PARAMETER? 


D8F4 


FO 


11 


D907 


56 




BEQ 


GTINF04 


YES, AND IT'S ALWAYS A ZERO. 


D8F6 


C9 


01 




57 




CMP 


#D . STOR+1 


IS THIS THE STORAGE TYPE BYTE? 


D8F8 


DO 


14 


D90E 


58 




BNE 


GINFOEND 


NO, IT'S THE END OF INFO THAT CAN BE RETURNED. 


D8FA 


AD 


BA 


DB 


59 




LDA 


DFIL+D . STOR 


GET STORAGE TYPE 


D8FD 


4A 






60 




LSR 


A 




D8FE 


4A 






61 




LSR 


A 




D8FF 


4A 






62 




LSR 


A 




D900 


4A 






63 




LSR 


A 


MAKE IT A VALUE 1-$F BY SHIFTING OUT FILE NAME LENGTH. 


D901 


10 


04 


D907 


64 




BPL 


GTINF04 


BRANCH ALWAYS 


D903 








65 


* 








D903 


AA 






66 


GTINF03 


TAX 




USE AS OFFSET INTO 'D.' TABLE. 


D904 


BD 


BA 


DB 


67 




LDA 


DFIL, X 




D907 


91 


A3 




68 


GTINF04 


STA 


(C.FILIST) , Y 


PASS TO USER'S BUFFER 


D909 


C8 






69 




INY 






D90A 


C4 


A5 




70 




CPY 


C.FILSTLN 


HAS REQUEST BEEN FILLED? 


D90C 


DO 


DF 


D8ED 


71 




BNE 


GTINF02 


NO, PASS NEXT 


D90E 


18 






72 


GINFOEND 


CLC 




INDICATE NO ERRORS 


D90F 


60 






73 


GINFOERR 


RTS 






D910 








74 


* 








D910 








75 


* 
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12 DESTROY 




SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 PAGE 116 


D910 








77 


* 










D910 


20 


80 


C4 


78 


SETINFO 


JSR 


FINDFILE 




FIND WHAT USER WANTS. . . 


D913 


BO 


6F 


D984 


79 




BCS 


SINFOERR 




RETURN ANY FAILURE. 


D915 


A5 


A5 




80 




LDA 


C . FILSTLN 




TEST FOR NUL CHANGE 


D917 


FO 


21 


D93A 


81 




BEQ 


SINFEND 




BRANCH IF NOTHING TO CHANGE. 


D919 


AO 


00 




82 




LDY 


#0 




INIT POINTER TO USER SUPPLIED LIST. 


D91B 


Bl 


A3 




83 




LDA 


(C .FILIST) , Y 




FETCH FILE ATTRIBUTES 


D91D 


29 


IC 




84 




AND 


#$1C 




FORBIDDEN BITS? <SRS 82.162> 


D91F 


FO 


04 


D925 


8S 




BEQ 


SETINFl 




NO 


D921 


A9 


00 




86 




LDA 


#ACCSERR 




YES 


D923 


38 






87 




SEC 








D924 


60 






88 




RTS 






RETURN AN ERROR 


D925 


AD 


00 


00 


89 


SETINFl 


LDA 


BACKMASK 




GET CURRENT BACKMASK <SRS 82.162> 


D928 








90 


* BACKUP 


KNOWS 


HOW TO RESET THIS BIT. <SRS 82.162> 


D928 


8D 


57 


D9 


91 




STA 


BKBITFLG 




BIT (USED BY DREVISE) 


D92B 


BE 


58 


D9 


92 


SETINFIX 


LDX 


INFTABL, Y 




GET INDEX INTO CORESPONDING 'D.' TABLE 


D92E 


30 


OD 


D93D 


93 




BMI 


SETINF2 




BRANCH IF WE'VE REACHED STORAGE TYPE PARAMETER 


D930 


Bl 


A3 




94 




LDA 


(C. FILIST) , Y 






D932 


9D 


BA 


DB 


9S 




STA 


DFIL, X 






D935 


C8 






96 




INY 






HAS USER'S REQUEST BEEN SATISFIED? 


D935 


C4 


AS 




97 




CPY 


C. FILSTLN 






D938 


DO 


Fl 


D92B 


98 




BNE 


SETINFIX 




NO, MOVE NEXT BYTE. 


D93A 


4C 


FO 


C3 


99 


SINFEND 


JMP 


DREVISE 




GO UPDATE DIRECTORY WITH CURRENT TIME. 


D93D 








100 












D93D 


A4 


AS 




101 


SETINF2 


LDY 


C. FILSTLN 




TEST TO SEE IF USER WANTS HIS TIME STAMP ADDED 


D93F 


CO 


OF 




102 




CPY 


#$F 




(LIST MUST BE AT LEAST $F BYTES LONG) 


D941 


90 


F7 


D93A 


103 




BCC 


SINFEND 




NO PUT CURRENT TIME INSTEAD. 


D943 


AO 


OB 




104 




LDY 


#$B 




MOVE IN THE NEXT GROUP OF BYTES 


D945 


BE 


58 


D9 


lOS 


SETINF3 


LDX 


INFTABL, Y 






D948 


30 


OA 


D9S4 


106 




BMI 


SINFENDl 






D94A 


Bl 


A3 




107 




LDA 


(C. FILIST) , Y 






D94C 


9D 


BA 


DB 


108 




STA 


DFIL,X 






D94F 


C8 






109 




INY 








D950 


C4 


AS 




110 




CPY 


C. FILSTLN 




SATISFACTION YET? 


D952 


DO 


Fl 


D94S 


111 




BNE 


SETINF3 




NOPE, KEEP EM PUMPIN' 


D954 


4C 


FE 


C3 


112 


SINFENDl 


JMP 


DREVISEl 






D957 








113 


* 










D957 






0001 


114 


BKBITFLG 


DS 


1 




FOR TURNING OFF BACKUP BIT 


D958 








lis 












D958 








116 












D958 


IE 


10 


IF 20 


117 


INFTABL 


DFB 


D.ATTR,D.FILID 


, D.AUXID,D.AUXID+1 


D95C 


81 


IS 


16 17 


118 




DFB 


D.STOR+1+$80,D 


.E0F,D.E0F+l,D.E0F+2 ; (D.STOR=0 THUS D.STOR+1 WAS NECESSARY 


D960 


80 


13 


14 21 


119 




DFB 


$80, D. USAGE, D. 


USAGE+1,D.M0DDT ; (THE $80 IS FOR THE FOURTH BYTE OF EOF) 


D964 


22 


23 


24 FF 


120 




DFB 


D . MODDT+ 1 , D . MODTM 


D.MODTM+1, $FF ; TABLE ALWAYS ENDS IN $FF 
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D968 








122 


* 








D968 


20 


93 


C4 


123 


RENAME 


JSR 


LOOKFILE 


LOOK FOR SOURCE (ORIGINAL) FILE. 


D9 6B 


90 


32 


D99F 


124 




BCC 


RNAMEO 


BRANCH IF FOUND. 


D96D 


C9 


00 




125 




CMP 


#BADPATH 


TRYING TO RENAME A VOLUME? 


D96F 


DO 


48 


D9B9 


126 




BNE 


RNAMERR 


NO, RETURN OTHER ERROR. 


D971 


20 


41 


DA 


127 




JSR 


RENPATH 


SYNTAX NEW NAME. 


D974 


BO 


43 


D9B9 


128 




BCS 


RNAMERR 




D975 


A5 


B4 




129 




LDA 


WRKPATH 


FIND OUT IF ONLY ROOTNAME FOR NEW NAME 


D978 


C5 


BO 




130 




CMP 


PATHNML 




D97A 


DO 


72 


D9EE 


131 




BNE 


RNBADPTH 


NOT SINGLE NAME, RETURN ERROR! 


D97C 


AO 


11 




132 




LDY 


#VCBSTAT 


TEST FOR OPEN FILES BEFORE CHANGING 


D97E 


Bl 


B6 




133 




LDA 


(VCBPTR) , Y 




D980 


10 


03 


D985 


134 




BPL 


RNAMEVOL 


BRANCH IF VOLUME NOT BUSY 


D982 


A9 


00 




135 




LDA 


#FILBUSY 




D984 






D984 


136 


SINFOERR 


EQU 






D984 


60 






137 




RTS 




(CARRY IS SET) 


D985 


AO 


00 




138 


RNAMEVOL 


LDY 


#0 


GET NEWNAME'S LENGTH. 


D987 


Bl 


B4 




139 




LDA 


(WRKPATH) , Y 




D989 


A8 






140 




TAY 






D98A 


09 


FO 




141 




ORA 


#$F0 


(ROOT FILE STORAGE TYPE) 


D98C 


20 


33 


DA 


142 




JSR 


MVROTNAM 


UPDATE ROOT DIRECTORY. 


D98F 


BO 


28 


D9B9 


143 




BCS 


RNAMERR 




D991 


AO 


00 




144 




LDY 


#0 




D993 


Bl 


B4 




145 




LDA 


(WRKPATH) , Y 


UPDATE VCB ALSO. 


D995 


A8 






146 




TAY 






D995 


Bl 


B4 




147 


RNMEVOL 


LDA 


(WRKPATH) , Y 




D998 


91 


B6 




148 




STA 


(VCBPTR) , Y 




D9 9A 


88 






149 




DEY 






D99B 


10 


F9 


D996 


150 




BPL 


RNMEVOL 




D99D 


18 






151 




CLC 






D99E 


60 






152 




RTS 






D9 9F 








153 










D99F 


20 


41 


DA 


154 


RNAMEO 


JSR 


RENPATH 


SET UP AND SYNTAX NEW NAME. 


D9A2 


BO 


15 


D9B9 


155 




BCS 


RNAMERR 




D9A4 


AO 


00 




156 




LDY 


#0 


VERIFY THAT BOTH NAMES HAVE SAME ROOT . 


D9A6 


Bl 


BO 




157 




LDA 


(PATHNML) , Y 




D9A8 


A8 






158 




TAY 






D9A9 


Bl 


BO 




159 


TSTSMROT 


LDA 


(PATHNML) , Y 


COMPARE NEWNAME ' S ROOT NAME WITH 


D9AB 


Dl 


B6 




160 




CMP 


(VCBPTR) , Y 


OLD NAME'S VOLUME NAME. 


D9AD 


DO 


3F 


D9EE 


161 




BNE 


RNBADPTH 


RETURN 'BADPATH' IF NOT SAME VOLUME. 


D9AF 


88 






162 




DEY 






D9B0 


10 


F7 


D9A9 


163 




BPL 


TSTSMROT 


(TEST SAME 'ROT') 


D9B2 


20 


93 


C4 


164 




JSR 


LOOKFILE 


TEST FOR DUPLICATE FILE NAME. 


D9B5 


BO 


04 


D9BB 


165 




BCS 


TSTFNFl 


BRANCH IF ERROR TO TEST FOR FILE NOT FOUND 


D9B7 


A9 


00 




166 




LDA 


#DUPERR 


TELL USER THAT NEW NAME ALREADY EXISTS. 


D9B9 


38 






167 


RNAMERR 


SEC 






D9BA 


60 






168 




RTS 
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SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


AUGUST-2006 PAGE 118 


D9BB ; 


;C9 


00 




170 


TSTFNFl 


CMP 


#FNFERR 


; WAS IT A VALID FILE NOT FOUND? 


D9BD; 


:D0 


FA 


D9B9 


171 




BNE 


RNAME RR 


; NO, RETURN OTHER ERROR CODE. 


D9BF; 


: A2 


02 




172 




LDX 


#2 


; NOW MOVE NEW NAME'S OWNERSHIP (DIRECTORY HEADER) I.D. 


D9C1 : 


: BD 


B4 


DB 


173 


SVENEWID 


LDA 


D . DEV, X 


; THIS CONSISTS OF THE UNIT NUMBER, 


D9C4 : 


: 95 


31 




174 




STA 


NPATHDEV, X 


; AND THE ADDRESS OF THE DIRECTORY THE FILE 


D9C6 ; 


:CA 






175 




DEX 




; WASN'T FOUND IN. LOGIC BY NEGATION... 


D9C7 ; 


; 10 


F8 


D9C1 


176 




BPL 


SVENEWID 




D9C9 ; 


;20 


D5 


BC 


177 




JSR 


SETPATH 


; NOW SYNTAX THE PATHNAME OF THE FILE TO BE CHANGED. 


D9CC; 


:B0 


EB 


D9B9 


178 




BCS 


RNAME RR 




D9CE ; 


;20 


80 


C4 


179 




JSR 


FINDFILE 


; GET ALL THE INFO ON THIS ONE. 


D9D1 ; 


;B0 


E6 


D9B9 


180 




BCS 


RNAME RR 




D9D3 : 


: 20 


F6 


DO 


181 




JSR 


TSTOPEN 


; DON'T ALLOW RENAME TO OCCUR IF FILE IS IN USE. 


D9D6 ; 


:A9 


00 




182 




LDA 


#FILBUSY 


; ANTICIPATE ERROR 


D9D8 ; 


:B0 


DF 


D9B9 


183 




BCS 


RNAMERR 




D9DA; 


: AD 


D8 


DB 


184 




LDA 


DFIL+D . ATTR 


; TEST BIT THAT SAYS IT'S OK TO RENAME 


D9DD ; 


:29 


40 




185 




AND 


#RENAMEN 




D9DF ; 


;D0 


04 


D9E5 


186 




BNE 


RNAME 1 


; BRANCH IF IT'S ALRIGHT TO RENAME . 


D9E1 ; 


;A9 


00 




187 




LDA 


#ACCSERR 


; OTHERWISE REPORT ILLEGAL ACCESS. 


D9E3 ; 


; 38 






188 




SEC 






D9E4 ; 


: 60 






189 




RTS 






D9E5 ; 








1 90 


J, 








D9E5 : 


: A2 


02 




191 


RNAME 1 


LDX 


#2 


; NOW TEST TO SEE IF NEW PATHNAME FITS IN THE 


D9E7 : 


: BD 


B4 


DB 


1 92 


SAMOWNR 


LDA 


D . DEV, X 


; SAME DIRECTORY FILE. 


D9EA; 


:D5 


31 




1 93 




CMP 


NPATHDEV, X 




D9EC : 


:F0 


04 


D9F2 


194 




BEQ 


RNAME 2 




D9EE; 


:A9 


00 




195 


RNBADPTH 


LDA 


#BADPATH 


; TELL USER THAT PATHNAMES INCOMPATABLE . 


D9F0 ; 


; 38 






196 




SEC 






D9F1 : 


: 60 






1 97 




RTS 






D9F2 : 








198 










D9F2 ; 


:CA 






199 


RNAME 2 


DEX 




; TEST ALL THREE BYTES. 


D9F3 ; 


: 10 


F2 


D9E7 


200 




BPL 


SAMOWNR 




D9F5 ; 


;20 


41 


DA 


201 




JSR 


RENPATH 


; WELL... SINCE BOTH NAMES WOULD GO INTO THE 


D9F8 ; 


:B0 


BF 


D9B9 


202 




BCS 


RNAMERR 


; DIRECTORY, RE-SYNTAX THE NEW NAME TO GET LOCAL NAME ADDRESS 


D9FA; 


: 98 






203 




TYA 




; (Y CONTAINS THE LOCAL NAME LENGTH+1) 


D9FB ; 


;F0 


Fl 


D9EE 


204 




BEQ 


RNBADPTH 


; REPORT ERROR IF LENGTH INFO NOT IMMEDIATELY AVAILABLE. 


D9FD ; 


; 88 






205 




DEY 




; (REMOVE THE +1) 


D9FE: 


:B1 


B4 




206 


RNAME 3 


LDA 


(WRKPATH) , Y 


; MOVE LOCAL NAME TO DIR ENTRY WORKSPACE. 


DAOO : 


: 99 


BA 


DB 


207 




STA 


DFIL+D . STOR, Y 




DA03 ; 


: 88 






208 




DEY 






DA04 : 


:D0 


F8 


D9FE 


209 




BNE 


RNAME 3 




DA0 6 : 


;AD 


BA 


DB 


210 




LDA 


DFIL+D . STOR 


; PRESERVE FILE STORAGE TYPE. 


DA0 9; 


:29 


FO 




211 




AND 


#$F0 


; STRIP OFF OLD NAME LENGTH. 


DAOB; 


:AA 






212 




TAX 






DAOC; 


:11 


B4 




213 




ORA 


(WRKPATH) , Y 


; ADD IN NEW NAME'S LENGTH 


DAOE; 


:8D 


BA 


DB 


214 




STA 


DFIL+D. STOR 




DAll; 


:E0 


DO 




215 




CPX 


#DIRTYP*16 


; THAT FILE MUST BE CHANGED ALSO. 


DAI 3; 


:D0 


IB 


DA30 


216 




BNE 


RNAMDONE 


; BRANCH IF NOT DIRECTORY TYPE. 
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DAI 5 


AD 


CB 


DB 


218 




LDA 


DFIL+D.FRST 


READ IN FIRST (HEADER) BLOCK OF SUB DIRECTORY 


DAI 8 


8S 


C6 




219 




STA 


BLOKNML 




DAIA 


AD 


cc 


DB 


220 




LDA 


DFIL+D.FRST+1 




DAID 


85 


C7 




221 




STA 


BLOKNMH 




DAIF 


20 


58 


CC 


222 




JSR 


RDGBUF 




DA22 


BO 


95 


D9B9 


223 




BCS 


RNAMERR 


REPORT ERRORS 


DA24 


AO 


00 




224 




LDY 


#0 


CHANGE THE HEADER'S NAME TO MATCH THE OWNER'S 


DA2 6 


Bl 


B4 




225 




LDA 


(WRKPATH) , Y 


GET LOCAL NAME LENGTH AGAIN 


DA28 


A8 






225 




TAY 






DA2 9 


09 


EG 




227 




ORA 


#HEDTYP*15 


ASSUME IT'S A HEADER. 


DA2B 


20 


33 


DA 


228 




JSR 


MVROTNAM 




DA2E 


BO 


89 


D9B9 


229 




BCS 


RNAMERR 




DA30 


4C 


EE 


C3 


230 


RNAMDONE 


JMP 


DREVISEl 


END BY UPDATING ALL PATH DIRECTORIES 


DA33 








231 










DA33 








232 










DA33 


8D 


04 


12 


233 


MVROTNAM 


STA 


GBUF+4 




DA36 


Bl 


B4 




234 


MVHEDNAM 


LDA 


(WRKPATH) , Y 




DA38 


99 


04 


12 


235 




STA 


GBUF+4, Y 




DA3B 


88 






235 




DEY 






DA3C 


DO 


F8 


DAS 6 


237 




BNE 


MVHEDNAM 




DA3E 


4C 


54 


CC 


238 




JMP 


WRTGBUF 


WRITE CHANGED HEADER BLOCK. 


DA4 1 








239 










DA41 








240 










DA4 1 


A5 


A3 




241 


RENPATH 


LDA 


C . NWPATH 


GET ADDRESS TO NEW PATHNAME . 


DA43 


85 


B2 




242 




STA 


TPATH 




DA45 


AS 


A4 




243 




LDA 


C.NWPATH+1 


SET UP FOR SYNTAXING ROUTINE (SYNPATH) . 


DA47 


85 


B3 




244 




STA 


TPATH+1 




DA4 9 


AD 


A4 


14 


245 




LDA 


SSNWPATH 


(MOVE BYTE FOR SISTER PAGE, TOO.) 


DA4C 


8D 


B3 


14 


246 




STA 


SISTPATH 




DA4F 


40 


E3 


BC 


247 




JMP 


SYNPATH 


GO SYNTAX IT. (RETURNS LAST LOCAL NAME LENGTH 


DA52 








248 










DAS 2 








249 










DAS 2 


AO 


00 




250 


DEALBLK 


LDY 


#0 


BEGIN AT THE BEGINNING. 


DAS 4 


84 


OE 




251 


DALBLKl 


STY 


SAPTR 


SAVE CURRENT INDEX. 


DAS 6 


B9 


00 


12 


252 




LDA 


GBUF, Y 


GET ADDRESS (LOW) OF BLOCK TO BE DEALLOCATED. 


DAS 9 


D9 


00 


13 


253 




CMP 


GBUF+$100, Y 


TEST FOR NUL BLOCK. 


DA5C 


DO 


04 


DA62 


254 




BNE 


DALBLK2 


BRANCH IF NOT NUL. 


DA5E 


C9 


00 




255 




CMP 


#0 




DA60 


FO 


OA 


DA6C 


256 




BEQ 


DALBLK3 


SKIP IT IF NUL. 


DA62 


BE 


00 


1 3 


257 


DALBLK2 


LDX 


GBUF+$100, Y 


GET THE REST OF THE BLOCK ADDRESS. 


DA65 


20 


04 


CA 


258 




JSR 


DEALLOC 


FREE IT UP ON VOLUME BIT MAP. 


DA68 


BO 


05 


DA70 


259 




BCS 


DALBLKERR 


RETURN ANY ERROR. 


DA6A 


A4 


OE 




260 




LDY 


SAPTR 


GET INDEX TO SAPLING LEVEL INDEX BLOCK AGAIN. 


DA6C 


C8 






261 


DALBLK3 


INY 




POINT AT NEXT BLOCK ADDRESS. 


DA6D 


DO 


E5 


DAS 4 


262 




BNE 


DALBLKl 


BRANCH IF MORE TO DEALLOCATE (OR TEST) . 


DA6F 


18 






263 




CLC 




INDICATE NO ERROR. 


DA70 


60 






264 


DALBLKERR 


RTS 






DA71 








265 










DA71 








265 


* 
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SOS 


1 . 1 BLOCK 


FILE 


MANAGER 


DA71 








268 


* 






DA71 


20 


80 


C4 


269 


DESTROY 


JSR 


FINDFILE 


DA74 


BO 


4B 


DACl 


270 




BCS 


DESTERR 


DA7 6 


20 


F6 


DO 


271 




JSR 


TSTOPEN 


DA7 9 


A5 


08 




272 




LDA 


TOTENT 


DA7B 


FO 


04 


DA81 


273 




BEQ 


DSTROYl 


DA7D 


A9 


00 




274 




LDA 


#FILBUSY 


DA7F 


38 






275 




SEC 




DA80 


50 






276 




RTS 




DA81 








277 


* 






DA81 


A9 


00 




278 


DSTROYl 


LDA 


#0 


DAS 3 


85 


04 




279 




STA 


REQL 


DAS 5 


85 


05 




280 




STA 


REQH 


DAS 7 


20 


4C 


C9 


281 




JSR 


TSFRBLK 


DASA 


90 


05 


DA91 


282 




BCC 


DSTR0Y2 


DASC 


C9 


00 




283 




CMP 


#0VRERR 


DA8E 


38 






284 




SEC 




DA8F 


DO 


30 


DACl 


285 




BNE 


DESTERR 


DA91 








286 


* 






DA91 


AD 


D8 


DB 


287 


DSTR0Y2 


LDA 


DFIL+D . ATTR 


DA94 


29 


SO 




288 




AND 


#DSTR0YEN 


DA96 


DO 


05 


DA9D 


289 




BNE 


DSTR0Y3 


DA98 


A9 


00 




2 90 




LDA 


#ACCSERR 


DA9A 


20 


00 


00 


2 91 




JSR 


SYSERR 


DA9D 








2 92 








DA9D 


20 


87 


D5 


293 


DSTR0Y3 


JSR 


TWRPROTl 


DAAO 


BO 


IF 


DACl 


294 




BCS 


DESTERR 


DAA2 


AD 


BA 


DB 


2 95 




LDA 


DFIL+D . STOR 


DAA5 


2 9 


FO 




2 96 




AND 


#$F0 


DAA7 


C9 


40 




2 97 




CMP 


#TRETYP+1*S10 


DAA9 


90 


03 


DAAE 


2 98 




BCC 


DSTREE 


DAAB 


4C 


4F 


DB 


299 




JMP 


DSTDIR 


DAAE 








300 


* 






DAAE 


20 


OA 


CB 


301 


DSTREE 


JSR 


GTTINDX 


DABl 


BO 


OE 


DACl 


302 




BCS 


DESTERR 


DABS 


AD 


BA 


DB 


303 




LDA 


DFIL+D . STOR 


DAB 6 


29 


FO 




304 




AND 


#$F0 


DABS 


C9 


30 




305 




CMP 


#TRETYP*$10 


DABA 


DO 


06 


DAC2 


306 




BNE 


DSTSAP 


DABC 


20 


90 


CC 


307 




JSR 


RDFRST 


DABF 


90 


18 


DAD 9 


308 




BCC 


DSTRE2 


DACl 


60 






309 


DESTERR 


RTS 




DAC2 








310 


* 






DAC2 


C9 


20 




311 


DSTSAP 


CMP 


#SAPTYP*$10 


DAC4 


DO 


4D 


DB13 


312 




BNE 


DSTLAST 


DAC6 


20 


Dl 


C2 


313 




JSR 


ZTMPIDX 


DAC9 


AD 


CB 


DB 


314 




LDA 


DFIL+D. FRST 


DACC 


AO 


00 




315 




LDY 


#0 


DACE 


91 


B2 




316 




STA 


(TINDX) , Y 


DADO 


E6 


B3 




317 




INC 


TINDX+1 


DAD 2 


AD 


CC 


DB 


318 




LDA 


DFIL+D. FRST+1 


DADS 


91 


B2 




319 




STA 


(TINDX) , Y 


DAD 7 


C6 


B3 




320 




DEC 


TINDX+1 


DAD 9 


AO 


00 




321 


DSTRE2 


LDY 


#0 


DADB 


84 


OF 




322 


DSTNXT 


STY 


TREPTR 


DADD 


Bl 


B2 




323 




LDA 


(TINDX) , Y 



T-2006 PAGE 120 



; LOOK FOR FILE TO BE WIPED OUT. 

; PASS BACK ANY ERROR. 

; IS THIS FILE OPEN? 

; BRANCH IF FILE NOT OPEN. 

; INFORM USER THAT FILE CAN'T BE DESTORYED AT THIS TIME. 



; FORCE PROPER FREE COUNT IN VOLUME. 

; (NO DISK ACCESS OCCURS IF ALREADY PROPER) 



; WAS IT JUST A FULL DISK? 

; NOPE, REPORT ERROR. 

; MAKE SURE IT'S OK TO DESTROY THIS FILE. 

; BRANCH IF OK. 

; TELL USER IT'S NOT KOSHER. 

; (RETURNS TO CALLER OF DESTORY) 

; BEFORE GOING THRU DEALLOCATION, 

; TEST FOR WRITE PROTECTED HARDWARE. 

; FIND OUT WHICH STORAGE TYPE. 

; STRIP OFF NAME LENGTH. 

; IS IT A SEED, SAPLING, OR TREE? 

; BRANCH IF IT IS. 

; OTHERWISE TEST FOR DIRECTORY DESTROY. 

; GET A BIT MAP BUFFER AND TEMPORARY INDEX BUFFER. 

; GET STORAGE TYPE AGAIN 

; IS THIS A TREE (FULL 2 -LEVEL ) ? 

; NO, TEST FOR SAPLING. 

; READ IN ROOT INDEX FOR THIS FILE. 

; BRANCH IF ALL IS WELL. 

; OTHERWISE RETURN ERROR. 

; IS IT A SAPLING 

; NO, JUST DEALLOCATE FIRST (AND ONLY) BLOCK. 

; CLEAR OUT TEMPORARY INDEX BUFFER. 

; MAKE THIS SAP LOOK LIKE A TREE... 

; THIS IS DONE BY PLACING THE FIRST BLOCK ADDRESS 

; IN THE TEMP (TOP) INDEX BUFFER AS 

; A SUB INDEX WOULD APPEAR. 



; BEGIN SCAN OF TOP LEVEL INDEX AT ZERO. 

; SAVE POINTER TO TREE LEVEL. 

; GET BLOCK ADDRESS OF A SUB INDEX BLOCK 
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1 . 1 BLOCK 
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DADF ; 


;E6 


B3 




324 




INC 


TINDX+1 


; (TEST FOR NUL BLOCK) 


DAEl ; 


:D1 


B2 




325 




CMP 


(TINDX) , Y 




DAE 3 : 


:D0 


04 


DAE 9 


326 




BNE 


DSTRE3 


; BRANCH IF WE'VE GOT AN BLOCK TO DEALLOCATE. 


DAE 5 : 


: C9 


00 




327 




CMP 


#0 


; IS ENTIRE ADDRESS ZERO? 


DAE7 ; 


:F0 


07 


DAFO 


328 




BEQ 


DSTRE4 


; YES, DO NEXT. (CARRY SET) 


DAE9 ; 


: 18 






329 


DSTRE3 


CLC 




; INDICATE THERE IS A BLOCK OF INDEXES TO FREE 


DAEA; 


; 85 


C6 




330 




STA 


BLOKNML 




DAEC ; 


;B1 


B2 




331 




LDA 


(TINDX) , Y 


; GET HI ADDRESS TOO. 


DAEE; 


: 85 


C7 




332 




STA 


BLOKNMH 




DAFO ; 


;C6 


B3 




333 


DSTRE4 


DEC 


TINDX+1 


; (RESTORE PROPER ADDRESS FOR BUFFER) 


DAF2 ; 


;B0 


IC 


DBIO 


334 




BCS 


DSTNXTl 


; BRANCH IF NO SUB INDEX. 


DAF4 : 


:20 


58 


CC 


335 




JSR 


RDGBUF 


; USE GENERAL BUFFER FOR SUB INDEX BUFFER. 


DAF7 : 


:B0 


C8 


DACl 


336 




BCS 


DESTERR 




DAF9 ; 


: 20 


52 


DA 


337 




JSR 


DEALBLK 


; GO FREE UP BLOCKS IN SUB INDEX 


DAFC ; 


:B0 


C3 


DACl 


338 




BCS 


DESTERR 




DAFE : 


:A4 


OF 




339 




LDY 


TREPTR 


; AND FREE UP SUB INDEX BLOCK TOO. 


DBOO ; 


;E6 


B3 




340 




INC 


TINDX+1 




DB02 ; 


;B1 


B2 




341 




LDA 


(TINDX) , Y 




DB04 ; 


; AA 






342 




TAX 






DB05 ; 


:C6 


B3 




343 




DEC 


TINDX+1 




DB07 ; 


:B1 


B2 




344 




LDA 


(TINDX) , Y 




DB09 : 


: 20 


04 


CA 


345 




JSR 


DEALLOC 




DBOC : 


:B0 


B3 


DACl 


346 




BCS 


DESTERR 




DBOE : 


: A4 


OF 




347 




LDY 


TREPTR 




DBIO : 


: CB 






348 


DSTNXTl 


INY 




; HAVE ALL SUB INDEXES BEEN LOCATED? 


DBll ; 


:D0 


C8 


DADB 


349 




BNE 


DSTNXT 


; NO, DO NEXT . . . 


DB13 : 


:AD 


CB 


DB 


350 


DSTLAST 


LDA 


DFIL+D.FRST 


; DEALLOCATE FIRST BLCOK OF FILE. 


DB16 : 


: AE 


CC 


DB 


351 




LDX 


DFIL+D .FRST+1 




DB19 : 


: 20 


04 


CA 


352 




JSR 


DEALLOC 




DBIC ; 


:B0 


A3 


DACl 


353 




BCS 


DESTERR 




DBIE; 


: A9 


00 




354 




LDA 


#0 


; UPDATE DIRECTORY TO FREE ENTRY SPACE. 


DB20 ; 


; 8D 


BA 


DB 


355 




STA 


DFIL+D . STOR 




DB23 ; 


;CD 


A9 


DB 


355 




CMP 


H.FCNT 


; FILE ENTRY WRAP? 


DB2 6; 


:D0 


03 


DB2B 


357 




BNE 


DSTl 


; BRANCH IF NO CARRY ADJUSTMENT 


DB28 ; 


; CE 


AA 


DB 


358 




DEC 


H.FCNT+1 


; TAKE CARRY FROM HIGH BYTE OF FILE ENTRIES 


DB2B ; 


; CE 


A9 


DB 


359 


DSTl 


DEC 


H.FCNT 


; MARK HEADER WITH ONE LESS FILE 


DB2E: 


:A6 


lA 




360 




LDX 


BMTAB 


; UPDATE (LAST) BITMAP. 


DB30 ; 


: 20 


65 


D7 


361 




JSR 


BMAPUP 




DB33 : 


:B0 


8C 


DACl 


362 




BCS 


DESTERR 




DB35 : 


:A0 


14 




363 




LDY 


#VCBTFRE 




DB37 ; 


; AD 


CD 


DB 


364 




LDA 


DFIL+D . USAGE 




DB3A; 


: 71 


B5 




365 




ADC 


(VCBPTR) , Y 




DB3C ; 


; 91 


B5 




366 




STA 


(VCBPTR) , Y 


; UPDATE CURRENT FREE BLOCK COUNT . 


DB3E ; 


; C8 






367 




INY 






DB3F; 


:AD 


CE 


DB 


368 




LDA 


DFIL+D. USAGE+1 




DB42 : 


:71 


B6 




369 




ADC 


(VCBPTR) , Y 




DB44 ; 


: 91 


B6 




370 




STA 


(VCBPTR) , Y 




DB46 ; 


:A9 


00 




371 




LDA 


#0 


; FORCE RESCAN FROM FIRST BITMAP 


DB48 ; 


:A0 


IC 




372 




LDY 


#VCBCMAP 




DB4A: 


: 91 


B6 




373 




STA 


(VCBPTR) , Y 




DB4C; 


:4C 


EG 


C3 


374 




JMP 


DREVISE 


; UPDATE DIRECTORY LAST... 


DB4F; 








375 


* 
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DB4F 








377 


* 








DB4F 


C9 


DO 




378 


DSTDIR 


CMP 


#DIRTYP*15 


; IS THIS A DIRECTORY FILE? 


DB51 


FO 


05 


DB58 


379 




BEQ 


DSDIRl 


; YES, PROCEED. 


DB53 


A9 


00 




380 




LDA 


#CPTERR 


; FILE IS NOT COMPATABLE . 


DB55 


20 


00 


GO 


381 




JSR 


SYSERR 


; GIVE UP . 


DB58 








382 










DB58 


20 


7F 


CB 


383 


DSDIRl 


JSR 


FNDBMAP 


; MAKE SURE A BUFFER IS AVAILABLE FOR THE BITMAP 


DB5B 


BO 


41 


DB9E 


384 




BCS 


DSDIRERR 




DB5D 


AD 


CB 


DB 


385 




LDA 


DFIL+D.FRST 


; READ IN FIRST BLOCK OF DIRECTORY INTO GBUF . 


DB60 


85 


C5 




385 




STA 


BLOKNML 




DB62 


AD 


CC 


DB 


387 




LDA 


DFIL+D.FRST+1 




DB65 


85 


C7 




388 




STA 


BLOKNMH 




DB67 


20 


58 


CC 


389 




JSR 


RDGBUF 




DB6A 


BO 


32 


DB9E 


390 




BCS 


DSDIRERR 




DB6C 


AD 


25 


12 


391 




LDA 


GBUF+HCENT+4 


; FIND OUT IF ANY FILES EXIST ON THIS DIRECTORY. 


DB6F 


DO 


05 


DB7 6 


392 




BNE 


DSDIRACC 


; BRANCH IF ANY EXIST. 


DB71 


AD 


25 


12 


393 




LDA 


GBUF+HCENT+5 




DB74 


FO 


05 


DB7B 


394 




BEQ 


DSDIR2 




DB7 6 


A9 


00 




395 


DSDIRACC 


LDA 


#ACCSERR 




DB78 


20 


00 


00 


395 




JSR 


SYSERR 




DB7B 








397 










DB7B 


AD 


02 


12 


398 


DSDIR2 


LDA 


GBUF+2 


; GET FORWARD LINK. 


DB7E 


CD 


03 


12 


399 




CMP 


GBUF+3 


; TEST FOR NO LINK. 


DB81 


DO 


04 


DB87 


400 




BNE 


DSDIR3 




DB83 


C9 


00 




401 




CMP 


#0 




DB85 


FO 


8C 


DB13 


402 




BEQ 


DSTLAST 


; IF NO LINK, THEN FINISHED. 


DB87 


AE 


03 


12 


403 


DSDIR3 


LDX 


GBUF+3 




DB8A 


20 


04 


CA 


404 




JSR 


DEALLOC 


; FREE THIS BLOCK. 


DB8D 


BO 


OF 


DB9E 


405 




BCS 


DSDIRERR 




DB8F 


AD 


02 


12 


406 




LDA 


GBUF+2 




DB92 


85 


C6 




407 




STA 


BLOKNML 




DB94 


AD 


03 


12 


408 




LDA 


GBUF+3 




DB97 


85 


C7 




409 




STA 


BLOKNMH 


; READ IN LINKED BLOCK. 


DB99 


20 


58 


CC 


410 




JSR 


RDGBUF 




DB9C 


90 


DD 


DB7B 


411 




BCC 


DSDIR2 


; LOOP UNTIL ALL ARE FREED. 


DB9E 


50 






412 


DSDIRERR 


RTS 






DB9F 








413 


* 








DB9F 








414 


* 
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DB9F 


DB9F 


415 


WORKSPC 


EQU 


J, 




DB9F 


0001 


417 


V. STATUS 


DS 


1 


VOLUME STATUS, INCLUDES 'ACTIVE' IN BIT 7 


DBAO 


0002 


418 


H . CREDT 


DS 


2 


DIRECTORY CREATION DATE 


DBA2 


0002 


419 




DS 


2 


DIRECTORY CREATION TIME 


DBA4 


0001 


420 




DS 


1 


VERSION UNDER WHICH THIS DIRECTORY WAS CREATED 


DBAS 


0001 


421 




DS 


1 


EARLIEST VERSION THAT IT'S COMPATABLE WITH 


DBA6 


0001 


422 


H . ATTR 


DS 


1 


ATTRIBUTES (PROTECT BIT, ETC.) 


DBA7 


0001 


423 


H . ENTLN 


DS 


1 


LENGTH OF EACH ENTRY IN THIS DIRECTORY. 


DBAS 


0001 


424 


H . MAXENT 


DS 


1 


MAXIMUM NUMBER OF ENTRIES PER BLOCK 


DBA9 


0002 


425 


H . FONT 


DS 


2 


CURRENT NUMBER OF FILES IN THIS DIRECTORY 


DBAB 


0002 


425 




DS 


2 


ADDRESS OF FIRST ALLOCATION BIT MAP 


DBAD 


0002 


427 




DS 


2 


TOTAL NUMBER OF BLOCKS ON THIS UNIT 


DBAF 


0005 


428 




DS 


5 


(FOR FUTURE EXPANSION) 


DBB4 




429 










DBB4 


0001 


430 


D . DEV 


DS 


1 


DEVICE NUMBER OF THIS DIRECTORY ENTRY 


DBB5 


0002 


431 


D . HEAD 


DS 


2 


ADDRESS OF <SUB> DIRECTORY HEADER 


DBB7 


0002 


432 


D.ENTBLK 


DS 


2 


ADDRESS OF BLOCK WHICH CONTAINS THIS ENTRY 


DBB9 


0001 


433 


D . ENTNUM 


DS 


1 


ENTRY NUMBER WITHIN BLOCK. 


DBBA 


DBBA 


434 


DFIL 


EQU 






DBBA 


0000 


435 


D . STOR 


EQU 


*-DFIL 


STORAGE TYPE * 16 + FILE NAME LENGTH 


DBBA 


0001 


436 




DS 


1 




DBBB 




437 


; *-DFIL 


; FILE 


NAME 




DBBB 


OOOF 


438 




DS 


15 




DBCA 


0010 


439 


D.FILID 


EQU 


*-DFIL 


USER'S IDENTIFICATION BYTE 


DBCA 


0001 


440 




DS 


1 




DBCB 


0011 


441 


D.FRST 


EQU 


*-DFIL 


FIRST BLOCK OF FILE 


DBCB 


0002 


442 




DS 


2 




DBCD 


0013 


443 


D . USAGE 


EQU 


*-DFIL 


NUMBER OF BLOCKS CURRENTLY ALLOCATED TO THIS FILE 


DBCD 


0002 


444 




DS 


2 




DBCF 


0015 


445 


D . EOF 


EQU 


*-DFIL 


CURRENT END OF FILE MARKER 


DBCF 


0003 


446 




DS 


3 




DBD2 


0018 


447 


D . CREDT 


EQU 


*-DFIL 


DATE OF FILE'S CREATION 


DBD2 


0002 


448 




DS 


2 




DBD4 




449 


; *-DFIL 


; TIME 


OF FILE'S CREATION 




DBD4 


0002 


450 




DS 


2 




DBD6 




451 


; EQU *- 


DFIL ; 


SOS VERSION THAT CREATED THIS FILE 


DBD6 


0001 


452 




DS 


1 




DBD7 


OOID 


453 


D . COMP 


EQU 


*-DFIL 


BACKWARD VERSION COMPATABILTY 


DBD7 


0001 


454 




DS 


1 




DBD8 


OOIE 


455 


D . ATTR 


EQU 


*-DFIL 


'PROTECT', READ/WRITE 'ENABLE' ETC. 


DBD8 


0001 


456 




DS 


1 




DBD9 


OOIF 


457 


D . AUXID 


EQU 


*-DFIL 


USER AUXILLARY IDENTIFACATION 


DBD9 


0002 


458 




DS 


2 




DBDB 


0021 


459 


D .MODDT 


EQU 


*-DFIL 


FILE'S LAST MODIFICATION DATE 


DBDB 


0002 


460 




DS 


2 




DBDD 


0023 


4 51 


D.MODTM 


EQU 


*-DFIL 


FILE'S LAST MODIFICATION TIME 


DBDD 


0002 


4 52 




DS 


2 




DBDF 


0025 


453 


D.DHDR 


EQU 


*-DFIL 


HEADER BLOCK ADDRESS OF FILE'S DIRECTORY 


DBDF 


0002 


454 




DS 


2 




DBEl 




455 


A 








DBEl 


0002 


456 


CMDADR 


DS 


2 




DBE3 


OOOD 


457 


SCRTCH 


DS 


13 


SCRATCH AREA FOR ALLOCATION ADDRESS CONVERSION 


DBFO 


0003 


458 


OLDEOF 


DS 


3 


TEMP USED IN W/R 


DBF3 


0003 


459 


OLDMARK 


DS 


3 


USED BY 'RDPOSN' AND 'WRITE' 


DBF 6 


OODB 


470 


SCRHIGH 


EQU 


<SCRTCH 


AND DEVICE NUMBERS FROM BOB'S CODE. 


DBF 6 




471 


* 
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DBF 6 








472 




CHN 




SWAPOUT. IN 








DBF 6 






DBF 6 


1 


SWAPOUT 


EQU 












DBF6 








2 
















DBF6 








3 


* SWAP OUT 


A VOLUME LOGGED 


ON A 


DEVICE 


DBF 6 








4 


* INPUT ARGUMENT 


DEVICE NUMBER 


"A" 


DBF 6 








5 


* (STORED 


AS "DEVNUM") 








DBF 6 








6 


* OUTPUT ARGUMENT: NONE 








DBF 6 








7 


* CONDITION CODE 


CARRY SET 


USER 


DID NOT COMPLY WITH REQUEST 


DBF 5 








8 


* 














DBF 6 








9 


* SAVE VCBPTR, 


FCBPTR, DEVNUM ON 


STACK 


DBF 6 








10 


* 1) FIND 


UNSWAPPED VOLUME 


IN VCB 




DBFS 








11 


* 2) IF DIRTY I 


3IT MAP FOR THIS VOLUME THEN DO 


DBF6 








12 


* IF NOT 


ONLINE, REQUEST 


USER 


TO 


INSERT 


DBF 6 








13 


* IF REQUEST 


DENIED, UNCONDITIONALLY CLOSE ALL FILES ON THIS VOLUME AND RTS 


DBF 6 








14 


* IF ONLINE, 


UPDATE AND RELEASE BIT MAP 


DBF 6 








15 


* DOEND 














DBFS 








16 


* 3) SWAP 


IT (MARK VCBSWAP 


FIELD 


$ 


30, MARK ALL FILES ON THIS VOLUME WITH SWAP MARK $8X WHERE 


ENTRY) 






















DBF 6 








17 


* "VCB ENTRY" DEFINED AS: HIGH ORDER NIBBLE OF LOW ORDER BYTE OF ENTRIES VCB ADDRESS 


DBF 5 








18 


* RESTORE 


VCBPTR, 


FCBPTR 








DBF 6 








19 


* RTS 














DBF6 








20 


* 














DBF6 


AA 






21 




TAX 










SAVE DEVICE NUMBER 


DBF7 


20 


90 


DC 


22 




JSR 




SAVECBS 








DBFA 


86 


35 




23 




SIX 




DEVNUM 






PERMANENTLY 


DBFC 


20 


48 


C8 


24 


SWAPOUTX 


JSR 




DEWCB 






FIND MATCHING UNSWAPPED ACTIVE VCB ENTRY (BY DEVNUM) 


DBFF 


BO 


44 


DC45 


25 




BOS 




SORTS 






NO FIND — RETURN WITHOUT ERROR 


DCOl 


AO 


11 




26 




LDY 




#VCBSTAT 








DC03 


Bl 


B6 




27 




LDA 




(VCBPTR) , Y 






GET STATUS OF FILES ON THIS VOLUME 


DC05 


10 


43 


DC4A 


28 




BPL 




UNLOG 






IF NO OPEN FILES, JUST THROW VOLUME AWAY 


DC07 


A5 


35 




29 




LDA 




DEVNUM 






DIRTY BM EXIST ON THIS VOLUME? 


DC09 


A2 


00 




30 




LDX 




#0 








DCOB 


D5 


ID 




31 




CMP 




BMADEV, X 






IN BIT MAP "A"? 


DCOD 


FO 


09 


DC18 


32 




BEQ 




FDIRBM 






BRANCH IF YES 


DCOF 


A2 


06 




33 




LDX 




#5 






BIT MAP HEADER TABLE SIZE 


DCll 


D5 


ID 




34 




CMP 




BMADEV, X 






IN BIT MAP "B"? 


DC13 


FO 


03 


DC18 


35 




BEQ 




FDIRBM 






BRANCH IF YES 


DC15 


4C 


33 


DC 


36 




JMP 




MARKSWAP 






NO NEED TO WRITE BIT MAP 


DC18 


B5 


10 




37 


FDIRBM 


LDA 




BMASTAT, X 






IS BIT MAP DIRTY? 


DCIA 


10 


17 


DC33 


38 




BPL 




MARKSWAP 






BRANCH IF NOT 


DClC 


20 


OA 


09 


39 


GET VOL 


JSR 




VERFYVOL 






IS THE CORRECT VOLUME ON LINE NOW? 


DCIF 


90 


OD 


DC2E 


40 




BCC 




VONLINE 






BRANCH IF YES 


DC21 


20 


2F 


DD 


41 




JSR 




USRREQ 






OTHERWISE, REQUEST USER INSERTION 


DC24 


90 


F5 


DClC 


42 




BCC 




GETVOL 






AND VERIFY IT AGAIN 


DC26 


20 


9B 


DD 


43 




JSR 




CLOSEU 






USER SAID "NO" : UNCONDITIONALLY CLOSE VOLUME 


DC29 


20 


B6 


DC 


44 




JSR 




RESTCBS 








DC2C 


38 






45 




SEC 












DC2D 


60 






46 




RTS 










ERROR RETURN TO CALLER 


DC2E 


A6 


35 




47 


VONLINE 


LDX 




DEVNUM 






UPDATE THE 


DC30 


20 


E4 


OB 


48 




JSR 




UPBMAP 






DIRTY BIT MAP 


DC33 


A5 


B6 




49 


MARKSWAP 


LDA 




VCBPTR 






CALCULATE 


DC35 


4A 






50 




LSR 




A 






; SWAP BYTE 


DC36 


4A 






51 




LSR 




A 






; AND 


DC37 


4A 






52 




LSR 




A 






; MARK ALL FILES 


DC38 


4A 






53 




LSR 




A 






; BELONGING TO THIS VOLUME 


DC39 


38 






54 




SEC 










AS SWAPPED OUT 


DC3A 


09 


80 




55 




ORA 




#$80 
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DC3C 


48 






56 


PHA 








SAVE SWAP BYTE 


DC3D 


20 


DO 


DC 


57 


JSR 


FCBSCAN 








DC40 


68 






58 


PLA 








MARK VCBSWAP 


DC41 


AO 


IF 




59 


LDY 


#VCBSWAP 






BYTE 


DC43 


91 


B6 




60 


STA 


(VCBPTR) , Y 








DC45 


20 


B6 


DC 


61 


SORTS JSR 


RESTCBS 






RESTORE FCBPTR, VCBPTR, DEVNUM 


DC48 


18 






62 


CLC 










DC49 


60 






63 


RTS 








SUCCESSFUL SWAP OUT 


DC4A 


A9 


00 




64 


UNLOG LDA 


#0 








DC4C 


9D 


00 


11 


65 


STA 


VCB, X 






UNLOG VOLUME 


DC4F 


FO 


F4 


DC45 


66 


BEQ 


SORTS 






SWAP THE EASY WAY! (BRANCH ALWAYS) 


DC51 








67 


* 










DC51 








68 


* 










DC51 








69 


* 










DC51 






DC51 


70 


SWAP IN EQU 










DC51 








71 


* 










DC51 








72 


* UNSWAP A VOLUME AND ALL ITS 


FILES 


DC51 








73 


* 










DC51 








74 


* INPUT ARGUMENT 


: VOLUME NAME 


(VCBPTR) 


DC51 








75 


* OUTPUT ARGUMENT: NONE 








DC51 








76 


* CONDITION CODE 


: CARRY SET : 


USER 


DID NOT COMPLY WITH REQUEST 


DC51 








77 












DC51 








78 


* SAVE VCBPTR, FCBPTR ON STACK 






DC51 








79 


* 1) FIND SWAPPED VOLUME IN VCB, 


IF NOT FOUND, THEN RTS. 


DC51 








80 


* 2) IF ANOTHER 


UNSWAPPED VOLUME 


ON DEVICE, THEN SWAP IT 


DC51 








81 


* 3) VERIFY UNSWAPPED VOLUME, 


IF 


NOT OK THEN REQUEST INSERTION 


DC51 








82 


* 4) UNMARK VCB' 


S AND FOB'S 








DC51 








83 


* RTS 










DC51 


20 


9C 


DC 


84 


JSR 


SAVECBS 






SAVE FCB, VCB POINTERS, DEVNUM 


DC54 


AO 


00 




85 


LDY 


#VCBNML 






MAKE SURE VOLUME 


DC56 


Bl 


B6 




86 


LDA 


(VCBPTR) , Y 






IS AT LEAST OPEN 


DC58 


FO 


38 


DC92 


87 


BEQ 


USRTS 






BRANCH IF NOT RIGHT BACK TO CALLER 


DC5A 


AO 


IF 




88 


LDY 


#VCBSWAP 






SEE IF 


DC5C 


Bl 


B6 




89 


LDA 


(VCBPTR) , Y 






CURRENTLY SWAPPED 


DC5E 


FO 


32 


DC92 


90 


BEQ 


USRTS 






IF NOT, RETURN IMMEDIATELY TO CALLER 


DC60 


AO 


10 




91 


LDY 


#VCBDEV 






SAVE DEVICE NUMBER 


DC62 


Bl 


B6 




92 


LDA 


(VCBPTR) , Y 








DC64 


85 


35 




93 


STA 


DEVNUM 








DC66 


48 






94 


PHA 








SAVE DEVNUM AGAIN (SWAPOUTX TRASHES DEVNUM 


DC67 


20 


FC 


DB 


95 


JSR 


SWAPOUTX 






AND MAKE SURE ANY CURRENT ACTIVE VOLUME IS 


ENTRY POINT) 














DC6A 


68 






96 


PLA 








RECALL CURRENT DEVICE NUMBER 


DC6B 


85 


35 




97 


STA 


DEVNUM 






AND SAVE IT TO ITS PROPER PLACE 


DC6D 


20 


OA 


C9 


98 


SIl JSR 


VERFYVOL 






VERIFY THE CURRENT VOLUME MOUNTED 


DC70 


90 


OD 


DC7F 


99 


BCC 


UNMARK 






IF THE RIGHT ONE, GO MARK IT AS UNSWAPPED 


DC72 


20 


2F 


DD 


100 


JSR 


USRREQ 






ELSE REQUEST USER TO INSERT 


DC75 


90 


F6 


DC6D 


101 


BCC 


SIl 






USER SAID 'OK' 


DC77 


20 


9B 


DD 


102 


JSR 


CLOSEU 






OTHERWISE UNCONDITIONALLY CLOSE 


DC7A 


20 


B6 


DC 


103 


JSR 


RESTCBS 








DC7D 


38 






104 


SEC 










DC7E 


60 






105 


RTS 










DC7F 


AO 


IF 




106 


UNMARK LDY 


#VCBSWAP 






FETCH 


DC81 


Bl 


B6 




107 


LDA 


(VCBPTR) , Y 






VOLUME 


DC83 


48 






108 


PHA 








SWAP BYTE 


DC84 


A9 


00 




109 


LDA 


#0 






BUT CLEAR 


DC86 


91 


B6 




110 


STA 


(VCBPTR) , Y 






VOLUME SWAP 


DC88 


68 






111 


PLA 
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AUGUST-2006 



DC89 


18 






112 


DC8A 


20 


DO 


DC 


113 


DC8D 


A5 


35 




114 


DC8F 


20 


F8 


CB 


115 


DC92 


20 


B6 


DC 


116 


DC95 


18 






117 


DC96 


60 






118 


DC97 








119 


DC97 






0005 


120 


DC9C 








121 


DC9C 








122 


DC9C 






DC9C 


123 


DC9C 


A5 


B6 




124 


DC9E 


8D 


97 


DC 


125 


DCAl 


A5 


B7 




126 


DCA3 


8D 


98 


DC 


127 


DCA6 


A5 


BA 




128 


DCA8 


8D 


99 


DC 


129 


DCAB 


A5 


BB 




130 


DCAD 


8D 


9A 


DC 


131 


DCBO 


A5 


35 




132 


DCB2 


8D 


9B 


DC 


133 


DCB5 


60 






134 


DCB6 








135 


DCB6 






DCB6 


136 


DCB5 








137 


ONCE 


BUT JSR'S RESTCBS 


DCB6 


AD 


97 


DC 


138 


DCB9 


85 


B6 




139 


DCBB 


AD 


98 


DC 


140 


DCBE 


85 


B7 




141 


DCCO 


AD 


99 


DC 


142 


DCC3 


85 


BA 




143 


DCC5 


AD 


9A 


DC 


144 


DCC8 


85 


BB 




145 


DCCA 


AD 


9B 


DC 


145 


DCCD 


85 


35 




147 


DCCF 


60 






148 


DCDO 








149 


DCDO 








150 


DCDO 








151 


DCDO 








152 


DCDO 








153 


DCDO 








154 


DCDO 








155 


DCDO 








156 


DCDO 








157 


DCDO 








158 


DCDO 








159 


DCDO 








160 


DCDO 








161 


DCDO 






DCDO 


162 


DCDO 








163 


DCDO 


AA 






164 


DCDl 


AC 


28 


00 


165 


DCD4 


84 


BB 




166 


DCD6 


AO 


00 




167 



CLC 
JSR 
LDA 
JSR 
JSR 
CLC 
RTS 

DS 



EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



FCBSCAN 

DEVNUM 

CLEARBMS 

RESTCBS 



"UNSWAPPED" 

MAKE SURE BIT MAPS 

ARE MARKED AS INVALID ON THIS DEVICE 
RESTORE VCB, FOB PTRS 
NO ERRORS 



; A RARE EMBEDDED TEMP SAVE AREA, USED ONLY BY 



SAVE FCBPTR, VCBPTR IN A TEMP SAVE AREA 



VCBPTR 

SAVEPTRS 

VCBPTR+1 

SAVEPTRS +1 

FCBPTR 

SAVEPTRS+2 

FCBPTR+1 

SAVEPTRS+3 

DEVNUM 

SAVEPTRS+4 



RESTCBS EQU * 

* NOTICE THERE EXISTS A SEQUENCE OF CALLS 
TWICE. 

LDA SAVEPTRS 

STA VCBPTR 

LDA SAVEPTRS +1 

STA VCBPTR+1 

LDA SAVEPTRS+2 

STA FCBPTR 

LDA SAVEPTRS+3 

STA FCBPTR+1 

LDA SAVEPTRS+4 

STA DEVNUM 
RTS 



MARK ALL FILES BELONGING TO A VOLUME 
AS SWAPPED-IN OR SWAPPED-OUT. 



RESTORE FCBPTR, VCBPTR 

SWAPIN, WHICH MAY CALL SWAPOUT) THAT JSR'S TO SAVECBS 



* INPUT ARCS: 



DEVNUM — DEVICE NUMBER OF MOUNTED VOLUME 
A REGISTER - SWAP BYTE 

CARRY — CARRY FLAG SET MEANS SWAP OUT; ELSE SWAP IN 



OUTPUT ARCS: NONE 

GLOBALS AFFECTED: FCB, FCBPTR 

REGISTER STATUS: SCRAMBLED 

CBSCAN EQU * 

TAX 

LDY FCBADDRH 

STY FCBPTR+1 

LDY #0 



; MARK FILES BELONGING TO VOLUME AS SWAPPED OR UNSWAPPED 

; SAVE SWAP BYTE 

; POINT TO 

; BEGINNING TO FCB 



Apple /// SOS Operating System Source Code Listing | Version 1.3 | Apple Computer | 1982 
Assembly Listing Produced by Paul R. Santa-Maria | August 2006 | Page 441 of 456 



13 SWAP OUT 


IN 
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MANAGER AUGUST-2006 PAGE 127 


DCD8 


84 


BA 




168 


STY 


FCBPTR 




DCDA 


BO 


18 


DCF4 


169 


BCS 


FCBOUT 


SWAP OUT A VOLUMES FILES 


DCDC 






DCDC 


170 


FCBIN EQU 




SWAPIN A VOLUMES FILES 


DCDC 


20 


OB 


DD 


171 


JSR 


FCBFETCH 


GET NEXT ACTIVE FCB CANDIDATE 


DCDF 


BO 


29 


DDOA 


172 


BCS 


FCBRTS 


NO MORE FILES TO PROCESS 


DCEl 


AO 


lA 




173 


LDY 


#FCBSWAP 




DCE3 


8A 






174 


TXA 






DCE4 


Dl 


BA 




175 


CMP 


(FCBPTR) , Y 


SWAP BYTES MATCH? 


DCE5 


DO 


04 


DCEC 


176 


BNE 


FCBINl 


BRANCH IF NOT 


DCE8 


A9 


00 




177 


LDA 


#0 




DCEA 


91 


BA 




178 


STA 


(FCBPTR) , Y 


MARK FILE AS SWAPPED IN 


DCEC 


20 


IB 


DD 


179 


FCBINl JSR 


NEXTFCB 


ADVANCE FCB POINTER 


DCEF 


BO 


19 


DDOA 


180 


BCS 


FCBRTS 


NO MORE TO LOOK AT 


DCFl 


4C 


DC 


DC 


181 


JMP 


FCBIN 


AND LOOK AT NEXT FILE 


DCF4 








182 








DCF4 






DCF4 


183 


FCBOUT EQU 


J, 


SWAPPED OUT A VOLUMES FILES 


DCF4 


20 


OB 


DD 


184 


JSR 


FCBFETCH 


GET NEXT ACTIVE FILE IN FCB 


DCF7 


BO 


11 


DDOA 


185 


BCS 


FCBRTS 


NO MORE FILES — RETURN TO USER 


DCF9 


AO 


lA 




186 


LDY 


#FCBSWAP 


COMPARE 


DCFB 


Bl 


BA 




187 


LDA 


(FCBPTR) , Y 




DCFD 


DO 


03 


DD02 


188 


BNE 


FCBOUTl 


ALREADY SWAPPED OUT 


DCFF 


8A 






189 


TXA 






DDOO 


91 


BA 




190 


STA 


(FCBPTR) , Y 


MARK AS SWAPPED 


DD02 


20 


IB 


DD 


191 


FCBOUTl JSR 


NEXTFCB 


ADVANCE FCB POINTER 


DD05 


BO 


03 


DDOA 


192 


BCS 


FCBRTS 




DD07 


4C 


F4 


DC 


193 


JMP 


FCBOUT 


SWAP OUT NEXT FILE 


DDOA 








194 


* 






DDOA 


60 






1 95 


FCBRTS RTS 






DDOB 






DDOB 


196 


FCBFETCH EQU 




GET NEXT ACTIVE FILE FROM FCB 


DDOB 








197 


♦ X REGISTER MUST NOT BE DISTURBED 




DDOB 








198 


* USES FCBPTR 






DDOB 


AO 


01 




199 


LDY 


#FCBDEVN 


MAKE 


DDOD 


Bl 


BA 




200 


LDA 


(FCBPTR) , Y 


SURE DEVICE 


DDOF 


C5 


35 




201 


CMP 


DEVNUM 


MATCHES 


DDll 


DO 


08 


DDIB 


202 


BNE 


NEXTFCB 




DD13 


AO 


00 




203 


LDY 


#FCBREFN 


MAKE SURE FILE IS ACTIVE 


DD15 


Bl 


BA 




204 


LDA 


(FCBPTR) , Y 




DD17 


FO 


02 


DDIB 


205 


BEQ 


NEXTFCB 


BRANCH IF NOT 


DD19 


18 






206 


CLC 






DDIA 


60 






207 


RTS 




RETURN WITH CARRY CLEAR SHOWING AN 


DDIB 


A5 


BA 




208 


NEXTFCB LDA 


FCBPTR 




DDID 


18 






209 


CLC 






DDIE 


59 


20 




210 


ADC 


#$20 


FCB ENTRY SIZE 


DD20 


85 


BA 




211 


STA 


FCBPTR 




DD22 


90 


E7 


DDOB 


212 


BCC 


FCBFETCH 


BRANCH IF NO PAGE CROSS 


DD24 


A5 


BB 




213 


LDA 


FCBPTR+1 




DD2 6 


E6 


BB 




214 


INC 


FCBPTR+1 


SECOND PAGE 


DD28 


CD 


28 


00 


215 


CMP 


FCBADDRH 




DD2B 


FO 


DE 


DDOB 


216 


BEQ 


FCBFETCH 


LOOK AT PAGE TWO 


DD2D 


38 






217 


NEXTEND SEC 






DD2E 


60 






218 


RTS 




SHOW NO MORE FILES TO LOOK AT 


DD2F 






DD2F 


219 


USRREQ EQU 




OPERATOR CONSOLE MESSAGE INTERFACE 


DD2F 








220 


* PRODUCES A MESSAGE REQUESTING 




DD2F 








221 


* THE SYSTEM OPERATOR TO MOUNT THE 


VOLUME 


DD2F 








222 


* SPECIFIED BY 


"VCBPTR" ON DEVICE SPECIFIED 


DD2F 








223 


* BY DEVNUM. THIS MODULE INSISTS 
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DD2F 








224 


* 


UPON THE CORRECT OPERATOR ACTION 




DD2F 








225 


* 


UPON THREE FAILURES TO COMPLY, 




DD2F 








226 




THE MODULE WILL SIGNIFY FAILURE WITH 


DD2F 








227 




CARRY SET. IF 


THE CORRECT 


ACTION IS TAKEN, 


DD2F 








228 




CARRY WILL BE 


RETURNED CLEAR 




DD2F 








229 












DD2F 








230 




INPUT ARCS: VOLUME NAME (VCBPTR) 




DD2F 








231 


* 


DEVICE NUMBER 


(DEVNUM) 


DD2F 








232 


* 










DD2F 








233 


* 


OUTPUT ARCS: CC = OPERATOR 


COMPLIED WITH REQUESTED ACTION 


DD2F 








234 


* 


CS = OPERATOR 


COULDN'T/DIDN'T COMPLY 


DD2F 








235 












DD2F 








236 




GLOBALS AFFECTED: NONE 






DD2F 








237 












DD2F 








238 




STATUS OF REGISTERS: UNCERTAIN 




DD2F 








239 












DD2F 






003D 


240 


VNML EQU 


ZPGTEMP 




VOLUME NAME LENGTH 


DD2F 


AO 


00 




241 




LDY 


#VCBNML 




IF ILLEGAL VCB 


DD31 


Bl 


B5 




242 




LDA 


(VCBPTR) , Y 




GET OUT QUICK 


DD33 


FO 


F8 


DD2D 


243 




BEQ 


NEXTEND 




BRANCH TO SEC RTS 


DD35 


A2 


OE 




244 




LDX 


#$E 




LENGTH OF NAMED AREA-1 


DD37 


A9 


00 




245 




LDA 


#$0 




NULLS 


DD39 


9D 


32 


DE 


246 


URl STA 


MDEV, X 




BOTH CLEAR 


DD3C 


9D 


13 


DE 


247 




STA 


MVOL,X 




IN ONE LOOP 


DD3F 


CA 






248 




DEX 








DD40 


10 


F7 


DD39 


249 




BPL 


URl 






DD42 








250 


* 










DD42 








251 


* 


DO A D-INFO TO 


FETCH THE DEVICE NAME 


DD42 








252 












DD42 


A9 


05 




253 




LDA 


#5 




DO ALL 


DD44 


85 


CO 




254 




STA 


$C0 




NECESSARY 


DD46 


A5 


35 




255 




LDA 


DEVNUM 




HOUSKEEPING 


DD48 


85 


CI 




255 




STA 


$C1 




TO SET UP 


DD4A 


A9 


31 




257 




LDA 


#>MDEV-1 




A DEVICE MANAGER CALL 


DD4C 


85 


C2 




258 




STA 


$C2 






DD4E 


A9 


DE 




259 




LDA 


#<MDEV-1 






DD50 


85 


C3 




260 




STA 


$C3 






DD52 


A9 


8F 




2 61 




LDA 


#S8F 




EXTEND BYTE 


DD54 


8D 


C3 


14 


2 62 




STA 


$14C3 






DD57 


A9 


00 




2 63 




LDA 


#0 






DD59 


8D 


C2 


14 


264 




STA 


$14C2 






DD5C 


85 


C4 




265 




STA 


SC4 






DD5E 


85 


C5 




266 




STA 


$C5 






DD60 


85 


C5 




267 




STA 


$C6 




ZERO SUPERFLUOUS PARMS 


DD62 


8D 


03 


DE 


268 




STA 


URDERR 




RESET FAILURE COUNT 


DD65 


20 


3E 


CF 


269 




JSR 


RPEATIOO 




GET INFO FROM BOBS CODE 


DD58 


A9 


20 




270 




LDA 


#S20 




"SPACE" RESTORED 


DD6A 


8D 


31 


DE 


271 




STA 


MDEV-1 




RESTORED 


DD6D 


AO 


00 




272 




LDY 


#VCBNML 






DD6F 


Bl 


B6 




273 




LDA 


(VCBPTR) , Y 




LENGTH OF VOLUME NAME 


DD71 


85 


3D 




274 




STA 


VNML 




SAVED FOR WORK 


DD73 


A9 


00 




275 




LDA 


#0 






DD75 


AA 






276 




TAX 








DD7 6 


AO 


01 




277 




LDY 


tVCBNAM 




POINT TO BEGINNING OF VOLUME 


DD78 


Bl 


B6 




278 


UR2 LDA 


(VCBPTR) , Y 






DD7A 


9D 


13 


DE 


279 




STA 


MVOL,X 
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DD7D 


E8 






280 




I NX 






DD7E 


C8 






281 




INY 




VOLUME NAME MOVED 


DD7F 


C6 


3D 




282 




DEC 


VNML 


TO MESSAGE BUFFER 


DD81 


DO 


F5 


DD78 


283 




BNE 


UR2 


CHARACTER BY CHARACTER 


DD83 


A2 


04 




284 


URDU 


LDX 


#>UMB 


PASS THE AREA'S ADDR 


DD85 


AO 


DE 




285 




LDY 


#<UMB 


IN X AND Y REGS, LOW, HIGH) 


DD87 


20 


00 


00 


286 




JSR 


OPMSGRPLY 


HAVE MESSAGE SYSTEM PRINT IT 


DD8A 


20 


OA 


C9 


287 




JSR 


VERFYVOL 


DID THE USER COMPLY? 


DD8D 


BO 


01 


DD90 


288 




BCS 


URDUl 


BRANCH IF NOT 


DD8F 


60 






289 




RTS 




EXIT — CARRY IS CLEAR 


DD90 


EE 


03 


DE 


290 


URDUl 


INC 


URDERR 


COLLECT USER ERRORS 


DD93 


AD 


03 


DE 


291 




LDA 


URDERR 




DD96 


C9 


03 




2 92 




CMP 


#3 


ONLY THREE TRIES ALLOWED 


DD98 


90 


E9 


DD83 


2 93 




BCC 


URDU 


RETRY MESSAGE IF LESS THAN THREE TRIES 


DD9A 


60 






2 94 




RTS 




OTHERWISE RETURN WITH CARRY SET 


DD9B 








2 95 










DD9B 








296 


* 








DD9B 








297 


* 








DD9B 








298 


* 








DD9B 








299 


* 








DD9B 








300 


* CLOSE 


UNCONDITIONAL 




DD9B 








301 










DD9B 








302 


* (USER 


HAS REPLIED 'N' TO A VOLUME MOUNT REQUEST 


DD 9B 








303 


* CLOSE 


ALL FILES ON VOLUME/UNLOG VOLUME 


DD9B 








304 










DD9B 








305 


* INPUT 


ARGUMENT 


(VCBPTR) 




DD9B 








306 


* OUTPUT ARGUMENT: NONE 




DD 9B 








307 










DD 9B 






DD9B 


308 


CLOSEU 


EQU 






DD9B 






003D 


309 


VSWA 


EQU 


ZPGTEMP 


THE 'SWAP BYTE' STORED HERE 


DD9B 


AO 


10 




310 




LDY 


#VCBDEV 


FETCH 


DD9D 


Bl 


B6 




311 




LDA 


(VCBPTR) , Y 


THE DEVICE NUMBER 


DD9F 


85 


35 




312 




STA 


DEVNUM 


OF THIS VOLUME S SAVE IT 


DDAl 


AO 


IF 




313 




LDY 


#VCBSWAP 


FETCH THE 


DDA3 


Bl 


B6 




314 




LDA 


(VCBPTR) , Y 


SWAP BYTE 


DDA5 


85 


3D 




315 




STA 


VSWA 


SAVE FOR REFERENCE, TOO 


DDA7 


A9 


00 




316 




LDA 


#0 




DDA9 


AO 


00 




317 




LDY 


#VCBNML 


UNLOG THE VOLUME 


DDAB 


91 


B6 




318 




STA 


(VCBPTR) , Y 


BY SETTING LEN OF VOL NAME TO ZERO 


DDAD 


AO 


IF 




319 




LDY 


#VCBSWAP 




DDAF 


91 


B6 




320 




STA 


(VCBPTR) , Y 


TURN OFF SWAP FLAG 


DDBl 


AC 


28 


00 


321 




LDY 


FCBADDRH 


SET UP FCB SCAN FROM BEGINNING OF FCB 


DDB4 


84 


BB 




322 




STY 


FCBPTR+1 




DDB5 


AO 


00 




323 




LDY 


#0 




DDB8 


84 


BA 




324 




STY 


FCBPTR 




DDBA 


AO 


01 




325 


VFCBLOP 


LDY 


#FCBDEVN 


FETCH 


DDBC 


Bl 


BA 




326 




LDA 


(FCBPTR) , Y 


THE DEVICE 


DDBE 


C5 


35 




327 




CMP 


DEVNUM 


NUMBER AND SEE IF A MATCH 


DDCO 


DO 


IF 


DDEl 


328 




BNE 


VFCBNXT 


BRANCH IF NO MATCH 


DDC2 


AO 


00 




329 




LDY 


#FCBREFN 


SEE EVEN IF FILE OPEN 


DDC4 


Bl 


BA 




330 




LDA 


(FCBPTR) , Y 




DDC6 


FO 


19 


DDEl 


331 




BEQ 


VFCBNXT 


BRANCH IF NOT 


DDC8 


AO 


lA 




332 




LDY 


#FCBSWAP 


CHECK TO SEE IF ATTACHED 


DDCA 


Bl 


BA 




333 




LDA 


(FCBPTR) , Y 


; TO SAME VOLUME 


DDCC 


C5 


3D 




334 




CMP 


VSWA 




DDCE 


DO 


11 


DDEl 


335 




BNE 


VFCBNXT 


BRANCH IF NOT 
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DDDO 


AO 


OB 




336 


LDY 


#FCBBUFN 




; RELEASE 


DDD2 


Bl 


BA 




337 


LDA 


(FCBPTR) , Y 




ANY 


DDD4 


20 


00 


00 


338 


JSR 


RELBUF 




BUFFERS ASSOCIATED 


DDD7 


AO 


lA 




339 


LDY 


#FCBSWAP 




AND CLEAR 


DDD9 


A9 


00 




340 


LDA 


#0 




THE SWAP BYTE 


DDDB 


91 


BA 




341 


STA 


(FCBPTR) , Y 






DDDD 


AO 


00 




342 


LDY 


#FCBREFN 




AND FINALLY 


DDDF 


91 


BA 




343 


STA 


(FCBPTR) , Y 




SAY 'CLOSED' 


DDEl 


A5 


BA 




344 


VFCBNXT LDA 


FCBPTR 






DDE3 


18 






345 


CLC 








DDE4 


69 


20 




346 


ADC 


#$20 




; FOB ENTRY SIZE 


DDES 


85 


BA 




347 


STA 


FCBPTR 






DDES 


90 


DO 


DDBA 


348 


BCC 


VFCBLOP 






DDEA 


A5 


BB 




349 


LDA 


FCBPTR+1 






DDEC 


E6 


BB 




350 


INC 


FCBPTR+1 




LOOK AT SECOND PAGE 


DDEE 


CD 


28 


00 


351 


CMP 


FCBADDRH 






DDFl 


FO 


C7 


DDBA 


352 


BEQ 


VFCBLOP 




CHECK PAGE TWO OF FCB 


DDF3 


60 






353 


RTS 






RETURN TO USER W/0 ERROR 


DDF4 








354 


* 








DDF4 






DDF4 


355 


FCBUSED EQU 






MARK AS FCB AS DIRTY SO 


DDF4 








356 


* THE DIRECTORY 


WILL BE FLUSHED ON 


'FLUSH' 


DDF4 


84 


3D 




357 


STY 


ZPGTEMP 






DDF6 


48 






358 


PHA 






SAVE REGS 


DDF7 


AO 


IC 




359 


LDY 


#FCBDIRTY 






DDF 9 


Bl 


BA 




360 


LDA 


(FCBPTR) , Y 




FETCH CURRENT FCBDIRTY BYTE 


DDFB 


09 


80 




361 


ORA 


#FCBMOD 




MARK FCB AS DIRTY 


DDFD 


91 


BA 




362 


STA 


(FCBPTR) , Y 




SAVE IT BACK 


DDFF 


68 






363 


PLA 








DEOO 


A4 


3D 




364 


LDY 


ZPGTEMP 




AND RESTORE REGS 


DE02 


60 






365 


RTS 








DE03 








366 










DE03 






0001 


367 


URDERR DS 


1 




ERROR COUNT FOR USRREQ 


DE04 








368 


* 








DE04 








369 


* 








DE04 






DE04 


370 


UMB EQU 








DE04 


49 


6E 


73 65 


371 


DFB 


$4 9, $6E, $73, $65, $72, $74, $20 


DEOB 


76 


6F 


6C 75 


372 


DFB 


$76, $6F, $6C, $75, $6D, $65 


DEll 


3A 


20 




373 


DFB 


$3A, $20 




"INSERT VOLUME: " 


DE13 






OOOF 


374 


MVOL DS 


15 






DE22 


OD 






375 


DFB 


$0D 




CR LINE TERMINATOR 


DE23 


20 


20 


20 20 


376 


DFB 


$20, $20, $20 


, $20, $69, $6E, $20 


DE2A 


64 


65 


76 69 


377 


DFB 


$64, $55, $76, $69, $63, $65 


DE30 


3A 


20 




378 


DFB 


$3A, $20 




" IN DEVICE: " 


DE32 






OOOF 


379 


MDEV DS 


15 






DE41 


OD 






380 


DFB 


$0D 




CR LINE TERMINATOR 


DE42 


74 


68 


65 6E 


381 


DFB 


$74, $68, $65, $6E, $20, $70, $72 


DE49 


65 


73 


73 20 


382 


DFB 


$ 6b, $■/ 3, $73, $20, $74, $68, $65, $2 


DE51 


41 


4C 


50 48 


383 


DFB 


$41, $4C, $50 


, $48, $41, $20, $4C 


DE58 


4F 


43 


4B 20 


384 


DFB 


$4F, $43, $4B 


, $20, $6B, $65, $79 


DE5F 


20 


74 


77 69 


385 


DFB 


$20, $74, $77 


, $69, $63, $65 


DE65 








386 


* "THEN PRESS THE ALPHA LOCK 


KEY TWICE" 


DE65 








387 


* FOLLOWED WITH 


$FF MESSAGE 


TERMINATOR (HIGH BIT SIGNIFICANT) 


DE55 


FF 






388 


DFB 


$FF 




MESSAGE TERMINATOR (HIGH BIT 


DE56 








389 










DE66 






2266 


390 


ZZLEN EQU 


*-ZZORG 






DE66 






DE66 


391 


ZZEND EQU 
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DE66: 0000 392 IFNE ZZLEN-LENBFM 

S 393 FAIL 2,"S0S0RG FILE IS INCORRECT FORMBFM" 

DE66: 394 FIN 
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X0029 


ACCSERR 


CADB 


ADCALC 


CCDC 


CDOO 


ADJMRKO 


CCFE 


ADJMRK 


CD07 


BD73 


ADPREFIX 


CA9C 


ALCIBLK 


X0036 


D557 


ALCWBLK 


CA9B 


ALDXEND 


BD9E 


CA7 7 


ALIDXl 


D577 


ALUSERR 


CFDO 


X002D 


BADLSrCNT 


XOOIB 


BADPATH 


XOOlD 


NOOIC 


BFMFCBl 


NOOID 


BFMFCB2 


NBC 00 


X0033 


BITMAP ADR 


D957 


BKBITFLG 


20 


?2E00 


BLABFMI 


6B52 


BLABUFMG 


6955 


64D9 


BLADMGR 


68F4 


BLAFMGR 


?2CF8 


55C0 


BLAIPL 


2000 


BLALODR 


?6E6E 


5466 


BLAPATCH 


665E 


BLASCMGR 


6404 


X0017 


BLKDLST 


C7 


BLOKNMH 


C5 


21 


BMACMAP 


IF 


BMADADR 


ID 


NOOIE 


BMAMADR 


N00B8 


BMAPAGE 


C987 


IC 


BMASTAT 


23 


BMBDEV 


N0024 


22 


BMBSTAT 


IB 


BMBUFBNK 


OD 


17 


BMPTR 


lA 


BMTAB 


06 


C8 


BRDPTR 


X002A 


BTSERR 


D088 


BD7F 


BUMP AT H 


A7 


C. AUXID 


A2 


Al 


C . DNAMP 


AD 


C . EOFHH 


AC 


AA 


C . EOFLL 


A6 


C . FILID 


A3 


A2 


C . ISNEWL 


A3 


C . MARK 


A3 


A3 


C . NEWEOF 


A3 


C . NEWL 


A3 


A7 


C . OPLSTLN 


A5 


C . OUTBLK 


A2 


A2 


C . OUTEOF 


A3 


C . OUTREF 


A3 


Al 


C . REFNUM 


A9 


C . STOR 


A5 


D617 


C3 


D618 


CFERR 


C517 


C99C 


CHGVCB 


D124 


CHKACTV 


CBC4 


CD38 


CHKDSKSW 


C706 


CHKROOT 


C7A0 


CD09 


CKSAMBLK 


CBF8 


CLEARBMS 


D5DF 


D619 


CLOSEl 


D61E 


CL0SE2 


D644 


DD9B 


CLOSEU 


CC05 


CLRBMl 


CC04 


BC78 


CLRDSWT 


CFD4 


CLRFCB 


BC35 


D5E1 


CLSALLl 


DBEl 


CMDADR 


BC9F 


CCBC 


CMP EOF 


C9B1 


CMPFREB 


C676 


OB 


CNTENT 


C9F5 


CNTFREE 


AO 


X0025 


CPTERR 


CIBO 


CREALC 


CIO 9 


C130 


CRENAMl 


C12B 


CRENAM 


C235 


C2E2 


CRERR2 


C36B 


CRETIME 


C387 


OOIF 


D . AUXID 


OOID 


D . COMP 


0018 


0025 


D .DHDR 


DBB7 


D . ENTBLK 


DBB9 


0010 


D .FILID 


0011 


D .ERST 


DBB5 


0023 


D .MODTM 


0000 


D . STOR 


0013 


DA54 


DALBLKl 


DA62 


DALBLK2 


DA6C 


01 


DATALC 


01 


DATBLKH 


00 


? 39 


DATEHI 


38 


DATELO 


XOOll 


C2AD 


DATITl 


CDFD 


DATLEVEL 


40 


D429 


DBLOKALC 


C3 


DBUFPH 


C2 


DA52 


DEALBLK 


CA62 


DEALERRl 


CA61 


CA4E 


DEALL2 


CA58 


DEALL3 


CA04 


D080 


DEFBUFR 


D004 


DEFOPEN 


C3CE 


C3EF 


DERR0R2 


DACl 


DESTERR 


DA71 


35 


DEVNUM 


C848 


DEWCB 


DBBA 


C3AC 


DIRCREND 


X0032 


DIRERR 


X0024 


CE84 


DIRMARK 


C2F0 


DIROVR 


CEB5 



ADDPOSN 


CCCD 


ADJMARK 


AD JMRKl 


D190 


AD JSTCNT 


ALCERR 


CA6E 


ALCIDXS 


ALFAl 


BDB2 


ALFA2 


ASGNFCB 


XOOl 9 


BACKMASK 


BAD REFNUM 


18 


BASVAL 


BFMGR 


CAC3 


BITFOUND 


BKBITVAL 


3200 


BLABFM 


BLACFM 


5E99 


BLADISK3 


BLAGLOB 


?2AF8 


BLAINIT 


BLAMEMMG 


5466 


BLAOMSG 


BLASERR 


5A8B 


BLAUMGR 


BLOKNML 


C51A 


BL OK SAVE 


BMADEV 


B8 


BMADR 


BMAPRD 


D765 


BMAPUP 


BMBMADR 


NOOBA 


BMBPAGE 


BMCNT 


CB9D 


BMFOUND 


BMTABSZ 


CAEl 


BOUNCE 


BUFREQST 


2F 


BULKCNT 


C . BASE 


A4 


C . BYTES 


C . EOFHL 


AB 


C . EOFLH 


C . FILIST 


A5 


C . FILSTLN 


C . MAXPTH 


A2 


C . MRKPTR 


C . NWPATH 


A5 


C . OPLIST 


C . OUTBUF 


A6 


C . OUTCNT 


C . OUT VOL 


Al 


C . PATH 


C . XLEN 


A3 


C . XLIST 


CFLAG 


CAOO 


CFREEl 


CHKBMB 


CD4 6 


CHKDSKS 1 


CHKVLOG 


C713 


CKROOTl 


CLOSALL 


D5D5 


CLOSE 


CLOSEND 


D646 


CLOSERR 


CLRBM2 


C6A0 


CLRDSP 


CLRSIS 


CE7B 


CLRSTATS 


CMD TABLE 


37 


CMD TEMP 


CMP NAME 


C8F2 


CMPVCB 


COMMAND 


C9C3 


COUNT 


GREAT 1 


COFl 


CREATE 


CRERR 


COFB 


CRERRl 


CRNXTDIR 


OOIE 


D . ATTR 


D . CREDT 


DBB4 


D . DEV 


D . ENTNUM 


0015 


D . EOF 


D . HEAD 


0021 


D .MODDT 


D . USAGE 


C2FE 


DADDl 


DALBLK3 


DA70 


DALBLKERR 


DATBLKL 


C2BC 


DATDONE 


DATETIME 


C2 92 


DATINIT 


DATMOD 


BC 


DATPTR 


DBUFPL 


C4E9 


DCRENTH 


DEALERR 


CA46 


DEALLl 


DEALLOC 


AD 


DEBUPTR 


DERROR 


?C460 


DERRORl 


DESTROY 


CO 


DEVICE 


DFIL 


CO 


D HP CMD 


DIRFULL 


CEA8 


DIRFWRD 


DIRPOSl 


CE8D 


DIRPOS 
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CEC6 


DIRP0S2 


OD 


DIRTYP 


CE9B 


C3C3 


DIRWRTl 


BCC3 


DISPTCH 


2F 


X0012 


DMGR 


CC6A 


DOBITMAP 


CC32 


CC7E 


DOFRST 


CO 6 A 


DOIDX 


B5 


D31E 


DREAD 


D354 


DREDERR 


D353 


C3F0 


DREVISE 


BDOA 


DRIVENAM 


CEC4 


C33C 


DRSTUF 


DB58 


DSDIRl 


DB7B 


DB76 


DSDIRACC 


DB9E 


DSDIRERR 


C9BF 


C4 


DSTATBFH 


C3 


DSTATBFL 


C2 


DB13 


DSTLAST 


DADB 


DSTNXT 


DBIO 


DAE 9 


DSTRE3 


DAFO 


DSTRE4 


DAAE 


DA91 


DSTR0Y2 


DA9D 


DSTR0Y3 


80 


D5BB 


DSWGLOB 


40 


DSWITCH 


X0021 


X0022 


DUPVOL 


C84A 


DVCBl 


C85C 


BC6A 


DVERIFY 


CI 


DVNAMP 


C3DF 


C3EC 


ECALC2 


C240 


ENDCRE 


C24F 


C259 


ENDCRX 


BDD6 


ENDPATH 


D2D9 


D2CC 


ENDRQCHK 


D4 9A 


ENDWCHKl 


D4 9C 


C636 


ENTADR 


C3D6 


ENTCALC 


OA 


C785 


ENTVCB 


C793 


ENTVCB2 


D03F 


20 


EOFMOD 


D83B 


EOFOUT 


D78F 


D71C 


EOFUPDTE 


D361 


ERRACCS 


CA95 


CFBE 


ERRBUSY 


BC93 


ERRCMD 


D020 


C4ED 


ERRDIR 


0355 


ERRDRD 


D25F 


C51C 


ERRFNF 


C3CE 


ERRGBUF 


CCCA 


BFOl 


ERRNOTBLK 


D0C5 


ERR0PEN2 


CFCO 


BC98 


ERRORSYS 


C5C8 


ERRPATHl 


CCFA 


BD6F 


ERRSYN 


C5CD 


ERTS 


BC8 


CC92 


FADDR 


N0028 


FCBADDRH 


2 9 


OB 


FCBBUFN 


10 


FCBDATB 


01 


06 


FCBENTN 


15 


FCBEOF 


DDOB 


XOOIC 


FCBFULL 


OE 


FCBIDXB 


DCDC 


IB 


FCBLEVL 


CEE5 


FCBLOKNM 


12 


OA 


FCBNEWL 


DD02 


FCBOUTl 


DCF4 


BA 


FCBPTR 


00 


FCBREFN 


DDOA 


08 


FCBSTAT 


07 


FCBSTYP 


lA 


CFA9 


FCBUPDAT 


18 


FCBUSE 


DDF4 


DC 18 


FDIRBM 


CD53 


FERRTYP 


X002B 


CFOA 


FILEIO 


CFOE 


FILEIOl 


C636 


C20E 


FILLTREE 


BE75 


FINDFCB 


C480 


D07A 


FIXDBUF 


12 


FLINK 


D655 


D70Q 


FLSHEBLK 


D776 


FLSHENDl 


D67C 


D691 


FLUSH2A 


D67F 


FLUSH2 


D6CD 


D674 


FLUSHEND 


D778 


FLUSHERR 


D649 


D6B3 


FLUSH2C 


D6C0 


FLUSH3 


CB7F 


C622 


FNDERRl 


C4EF 


FNDERR 


BEAO 


BEEE 


FNDFVl 


BEC6 


FNDFVOL 


CB85 


C5C0 


FNFO 


C514 


FNFOX 


C5CE 


C886 


FOUNDDUP 


C882 


FOUNDEV 


C759 


C9CD 


FRCNTl 


C9D5 


FRCNT2 


C9F4 


CBCE 


FREBUFl 


CBD4 


FREBUFA 


CB20 


C7AA 


FREEVCB 


CB89 


FRESHMAP 


BD87 


D307 


FXDATPTR 


1200 


GBUF 


CB77 


CAA5 


GETBITSl 


CAB 2 


GETBITS2 


X0015 


D87E 


GETEOF 


D8AF 


GETINFO 


CC9B 


CF5B 


GETPRMS 


C7C0 


GETROOT 


C91E 



DIRVRSE 


C3B4 


DIRWRT 


DLIMIT 


CF49 


DMGRGO 


DOBMAP 


CEF6 


DOFILEIO 


DRBUFPH 


B4 


DRBUFPL 


DREDONE 


C3FE 


DREVISEl 


DRPOSERR 


C342 


DRSTUFl 


DSDIR2 


DB87 


DSDIR3 


DSKFULL 


DB2B 


DSTl 


DSTATREQ 


DB4F 


DSTDIR 


DSTNXTl 


DAD 9 


DSTRE2 


DSTREE 


DA81 


DSTROYl 


DSTROYEN 


DAC2 


DSTSAP 


DUPERR 


3C 


DUPLFLAG 


DVCB2 


C3 


DVDNUM 


ECALCG 


C3E0 


ECALCl 


ENDCREO 


C261 


ENDCREl 


ENDRCHKl 


D2DB 


ENDRCHK2 


ENDWCHK2 


D48D 


ENDWQCHK 


ENTCNTH 


09 


ENTCNTL 


EOFCBMV 


X0027 


EOFERR 


EOFRETN 


D182 


EOFTEST 


ERRALCl 


D072 


ERRBTS 


ERRCMPAT 


?C520 


ERRCOMP 


ERRFIX 


0264 


ERRFIXl 


ERRMEOF 


BEF9 


ERRNOREF 


ERROPN 


D07F 


ERROPNl 


ERRPOSN 


BDFE 


ERRSYNl 


EXECUTE 


D67B 


F3 


FCBANKNM 


09 


FCBATTR 


FCBDEVN 


IC 


FCBOIRTY 


FCBFETCH 


oc 


FCBFRST 


FCBIN 


DCEC 


FCBINl 


FCBMARK 


80 


FCBMOD 


FCBOUT 


CFDB 


FCBOWNR 


FCBRTS 


DCDO 


FCBSCAN 


FCBSWAP 


D08D 


FCBUFFER 


FCBUSED 


NOOBA 


FCBZPP 


FILBUSY 


CF25 


FILEI02 


FILFOUND 


CFAF 


FILIOERR 


FINDFILE 


C71E 


FINDVOL 


FLSHALl 


D653 


FLSHALL 


FLSHERR 


D687 


FLUSHl 


FLUSH4 


D707 


FLUSH5 


FLUSH 


D6A7 


FLUSH2B 


FNDBMAP 


C883 


FNDDUPl 


FNDFCBUF 


BEEC 


FNDFV. 1 


FNDMAP 1 


C72 9 


FNDVOLl 


FNFl 


X0020 


FNFERR 


FOUNDVOL 


CBBA 


FRBMBUF 


FRCNT3 


C9C5 


FRCONT 


FREEA 


CBIE 


FREEBE 


FRSTCHAR 


BF05 


FVOLFOUND 


GETA.BUF 


CB7B 


GETB.BUF 


GETBUFADR 


BFOD 


GETDNUM 


GETMARK 


BE3D 


GETPREFX 


GETROTO 


DClC 


GETVOL 
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D781 


GFCBADR 


D90E 


GINFOEND 


D90F 


GINFOERR 


D778 


GLBERR 


D780 


GLBERRl 


CC9D 


GMARKl 


BC9C 


GOCMD 


BC9B 


GOODOP 


D1B4 


GORDDNE 


BE73 


GOTPRFX 


CCIO 


GTBMAP 


BEA4 


GTBUFFRS 


D8EB 


GTINFOl 


D8ED 


GTINF02 


D903 


GTINF03 


D907 


GTINF04 


CBOA 


GTTINDX 


DBA 6 


H.ATTR 


DBAO 


H . CREDT 


DBA7 


H . ENTLN 


DBA 9 


H . FONT 


DBA8 


H.MAXENT 


19 


HALF 


IE 


HATTR 


21 


HCENT 


ID 


HCMP 


18 


HCRDT 


OE 


HEDTYP 


00 


HNLEN 


? 11 


HPASS 


10 


HPENAB 


23 


HRBLK 


26 


HRELN 


25 


HRENT 


10 


HVER 


03 


IDXADRH 


02 


IDXADRL 


02 


IDXALC 


80 


IDXMOD 


C18A 


I NOD AT A 


BE07 


INCPTHl 


BEOl 


INCTPTH 


D56E 


INCUSGl 


06 


INDXBLK 


D958 


INF TAB L 


34 


lOACCESS 


C2F4 


ISDIRl 


C2EA 


ISDIR 


C66D 


ISNAME 


BF88 


KNOTSOS 


2266 


LENBFM 


70400 


LENBFMI 


031C 


LENBUFMG 


OlFD 


LENCFM 


056B 


LENDISK3 


0185 


LENDMGR 


61 


LENFMGR 


701B2 


LENINIT 


04CB 


LENIPL 


OAF 8 


LENLODR 


70751 


LENMEMMG 


015A 


LENOMSG 


00 


LENPATCH 


0296 


LENSOMGR 


D5 


LENSERR 


040E 


LENUMGR 


07 


LEVELS 


XOOOF 


LEVEL 


C8 9A 


LOGVCBl 


C88F 


LOGVCB 


C770 


LOKDEVl 


C658 


LOKNAMl 


C681 


L0KNAM2 


C7B2 


LOKVOLl 


C7CC 


L0KV0L2 


C4CD 


LOOKFILO 


C4D2 


LOOKFILl 


C4F4 


L00KFIL2 


C493 


LOOKFILE 


C64D 


LOOKNAM 


C764 


LOOKVOLl 


C762 


LOOKVOL 


BDED 


LSTNAME 


C237 


LSTSAP 


DC33 


MARKSWAP 


OF 


MAXTEMP S 


DE32 


MDEV 


C3F6 


MODTIME 


C488 


MOVENT 1 


C485 


MOVENTRY 


C624 


MOVHEAD 


C62A 


MOVHEDO 


C62C 


MOVHEDl 


CCAA 


MOVMRK 


C8B4 


MOVOLNM 


0123 


MOVPARM 


BE34 


MOVPRFX 


C422 


MVDENT 


DA3 6 


MVHEDNAM 


C360 


MVHNAME 


DE13 


MVOL 


DA33 


MVROTNAM 


C4F1 


NAMFOJMP 


C5D1 


NAMFOUND 


D7B9 


NEOFPOS 


D7C4 


NEOFTST 


D893 


NEWLINE 


DD2D 


NEXTEND 


DDIB 


NEXTFCB 


BF78 


NFOPEN 


30 


NLCHAR 


10 


NLINEN 


CE14 


NODATA 


C882 


NODUPVOL 


C492 


NOFIND 


00 


NOFREE 


CBE3 


NOGO 


CDEB 


NOIDXDAT 


CBB6 


NOMORBIT 


0622 


NONAME 


0299 


NONEWLIN 


C845 


NONSOS 


BC42 


NOPATH 


BD7 9 


NOPREFX 


BC4B 


NOPREREF 


D24C 


NOSTUF 


X002F 


NOTBLKDEV 


0461 


NOTDIR 


C8EF 


NOTLOGO 


C929 


NOTLOGl 


C946 


N0TL0G2 


C2E3 


NOTREE 


C71D 


NOTROOT 


C927 


NOTSAME 


X002C 


NOTSOS 


CBF6 


NOUPDAT 


BFD2 


NOVOLM 


C91A 


NOVRFY 


C91B 


NOVRFYl 


31 


NPATHDEV 


BE70 


NULPREFX 


D664 


NXFLUSH 


CB57 


NXTBMAP 


BDA4 


NXTCHAR 


D600 


NXTCLOS 


C7D6 


NXTDEV 


C504 


NXTDIRO 


075B 


NXTVOB 


D8A7 


OFFNEWL 


D8AD 


OFFRTS 


DBFO 


OLDEOF 


DBF3 


OLDMARK 


D07 6 


ONEKTST 


CFC2 


OPENl 


DOIB 


0PEN2 


D02O 


0PEN4 


CFBO 


OPEN 


CFB9 


OPENO 


D024 


0PEN3 


DODB 


OPENDONE 


XOOlO 


OPMSGRPLY 


D0D6 


OPNDIR 


DOBA 


OPNPOSl 


DOAF 


OPNPOS 


BCOO 


ORGBFM 


B800 


ORGBFMI 


F552 


ORGBUFMG 


F355 


ORGCFM 


E899 


0RGDISK3 


EED9 


ORGDMGR 


FFBF 


ORGEND 


F2F4 


ORGFMGR 


718FC 


ORGGLOB 


28F8 


ORGINIT 


DFCO 


ORGIPL 


lEOO 


ORGLODR 


F86E 


ORGMEMMG 


DE66 


ORGOMSG 


DE66 


ORGPATCH 


FOSE 


ORGSCMGR 


EE04 


ORGSERR 


E48B 


ORGUMGR 


D882 


OUTEOF 


0160 


OVFLOW 


X0023 


OVRERR 


D 6CF 


OWNRMOV 


AO 


PAR 


NIOOO 


PATHBUF 


14 


PATHCNT 


Bl 


PATHNMH 


BO 


PATHNML 


XOOIE 


PATHNOTFND 


N0015 


PFIXPTR 


C4A8 


PHANTMl 


C4B2 


PHANTM2 


ODOF 


POSERR 


CDDl 


POSINDEX 


X0028 


POSNERR 


CD6E 


POSNEWl 


0D9B 


P0SNEW2 


CE44 


P0SNEW3 


CDA8 


POSNIDX 


BE 


POSPTR 


80 


PREPATH 


C692 


PREPROOT 


D27E 


PREPRW 


D289 


PREPRWl 


40 


PREREF 


20 


PRETIME 


BD21 


PREVOLMl 


BDIC 


PREVOLM 


BD41 


PREV0LM2 


CE79 


PRITZ 


D819 


PURl 


D818 


PUR2 


D7F8 


PURGE 


D839 


PURHI 


D83D 


PURLBLKS 


D841 


PURLOOP 


D878 


PURLRTS 


D87A 


PURPLACE 


D7E6 


PURTEST 


D7F2 


PURTESTl 


D879 


PURUSE 
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00 


RDCMD 


D205 


RDFAST 


D20A 


D22E 


RDFAST2 


CEEF 


RDFCBERR 


CC90 


D2F8 


RDONEl 


D2AB 


RDPARTO 


D2AC 


D2B5 


RDPART2 


D2C3 


RDPART3 


D305 


D2F3 


RDPRTDNE 


D2E5 


RDRQDNE 


D1A8 


01 


RE ADEN 


D26B 


READONE 


D2A2 


D161 


READl 


D24 9 


REALRD 


BEFD 


X0016 


RELBUF 


40 


RENAMEN 


D968 


C2BD 


REPEATIO 


X0013 


REQBUF 


X0014 


04 


REQL 


BE16 


RESETPFX 


DCB6 


C928 


RETR0T2 


CECA 


RFCBDAT 


CEFO 


DA30 


RNAMDONE 


D99F 


RNAMEO 


D9E5 


D9FE 


RNAME3 


D9B9 


RNAMERR 


D985 


?C3D6 


RNDTAB 


CE4A 


RNEWPOS 


D996 


C69C 


ROOTl 


C5D6 


R00T2 


C6E9 


C6EB 


ROOTINFO 


C4C5 


ROOTSTUF 


CF3E 


CF59 


RPEATI02 


CF69 


RPTBLOK 


09 


C4 


RQCNTL 


CF58 


RRITZ 


BFDC 


2E 


RWREQH 


2D 


RWREQL 


D9E7 


D513 


SAPDWNl 


C237 


SAPFILE 


C26D 


C1A4 


SAPLING 


OE 


SAPTR 


02 


DC 9 7 


SAVEPTRS 


BDC6 


SAVPATH 


CF40 


DBE3 


SCRTCH 


CA9 6 


SECNDHAF 


C170 


01 


SEEDTYP 


BE4C 


SENDPRFX 


X0018 


D7D9 


SETE0F2 


D790 


SETEOF 


D7D0 


D925 


SETINFl 


D92B 


SETINFIX 


D93D 


D910 


SETINFO 


CCB2 


SETMARK 


BCD5 


BEIB 


SETPRFXl 


BE2A 


SETPRFX3 


BE2D 


D7A9 


SETSAVE 


D3G6 


SETVFLG 


D4AB 


D954 


SINFENDl 


D93A 


SINFEND 


0984 


14C3 


SISBPH 


14BD 


SISDATP 


14C4 


14 A3 


SISOUTBF 


14A2 


SISPATH 


14BF 


N1400 


SISTER 


14B3 


SISTPATH 


14B1 


BE5F 


SNDLMIT 


BE53 


SNDPRFXl 


C802 


C840 


SNSWIT5 


C841 


SNSWIT6 


C7E0 


C834 


SNSWIT4 


CB56 


SOMERRl 


DC45 


C3CF 


SOSTMPL 


C3D1 


SOSVER 


BD4 9 


BD71 


SPTHERR 


BF24 


SRCHDEV 


CAAl 


14C9 


SSBRDPH 


14A4 


SSNWPATH 


14B3 


00 


STATSUB 


08 


STPMOD 


CCEA 


DOll 


SVATTRl 


D009 


SVATTRB 


BF05 


C438 


SVENTDIR 


BE96 


SVFCBLO 


CC5A 


CE58 


SVMRKl 


D513 


SWAPDOWN 


D556 


DBFC 


SWAPOUTX 


DBF6 


SWAPOUT 


BCE3 


XOOIA 


SYSERR 


C5B0 


TELFREE 


C511 


? 3B 


TIMEHI 


? 3A 


TIMELO 


B2 


X0037 


TOOLONG 


04 


TOPALC 


D4CB 


36 


TOTDEVS 


08 


TOTENT 


B2 


2C 


TPOSHI 


2B 


TPOSLH 


2A 


DIDC 


TREAD 


D1D4 


TREAD 


CI AD 


D87B 


TRELEASE 


CD5B 


TREPOS 


OF 


03 


TRETYP 


D456 


TREWRTl 


CB95 


C867 


TSDUPVl 


C87B 


TSDUPV2 


C95F 


D142 


TSNXFCB 


BDBE 


TSTDLIM 


C863 


COFD 


TSTFNF 


D9BB 


TSTFNFl 


CD88 


D0F6 


TSTOPEN 


D108 


TSTOPNl 


DUO 



RDFASTO 


D21F 


RDFASTl 


RDFRST 


CC58 


RDGBUF 


RDPART 


D2B3 


RDPARTl 


RDPART4 


CD09 


RDPOSN 


READ 2 


D1B7 


READ 3 


READPART 


D154 


READ 


REEFER 


BFOO 


REEFERl 


RENAME 


DA41 


RENPATH 


REQFXBUF 


05 


REQH 


RESTCBS 


CB02 


RETIBLK 


RFCBFST 


CED8 


RFCBIDX 


RNAMEl 


D9F2 


RNAME2 


RNAMEVOL 


D9EE 


RNBADPTH 


RNMEVOL 


C697 


ROOTO 


ROOTS 


C705 


ROOTERR 


RPEATIOO 


CF3A 


RPEATIOl 


RPTCMD 


C5 


RQCNTH 


RTVl 


BFD5 


RTVOLNAM 


SAMOWNR 


D505 


SAPDOWN 


SAPINDX 


CDFO 


SAPLEVEL 


SAPTYP 


DC9C 


SAVECBS 


SAVPRMS 


OODB 


SCRHIGH 


SEEDl 


C166 


SEED 


SERR 


D7D5 


SETEOFl 


SETEOFO 


D78C 


SETERR 


SETINF2 


D945 


SETINF3 


SETPATH 


BE08 


SETPREFX 


SETPRFX4 


D2F0 


SETRDNE 


SETWRDNE 


DC6D 


SIl 


SINFOERR 


14B9 


SISBMADR 


SISDSTAT 


14BB 


SISFCBP 


SISPOSP 


14B0 


SISTEMPS 


SISUSRBF 


CCB8 


SMARKl 


SNSWITl 


C80F 


SNSWIT2 


SNSWIT 


C82E 


SNSWIT3 


SORTS 


C3D0 


SOSTMPH 


SPATH2 


BD6 6 


SPATH3 


SRCHFRE 


C6E8 


SRITZ 


SSTIDXH 


02 


STATCMD 


SUBMARK 


CCEE 


SUBPOSN 


SVCBADR 


D9C1 


SVENEWID 


SVGCMD 


CE54 


SVMARK 


SWAPERR 


DC51 


SWAP IN 


SYNPATH 


X0034 


SYSDEATH 


TELFREEX 


C9C2 


TFBERR 


TINDX 


10 


TLINK 


TOPDOWN 


D4DD 


TOPDWNl 


TPATH 


D512 


TPDWNERR 


TPOSLL 


CF67 


TRASH 


TREE 


D7F5 


TRELEASl 


TREPTR 


C247 


TRETIME 


TRYMAP2 


C2FF 


TSDIRSZ 


TSFROl 


C94C 


TSFRBLK 


TSTDUPVOL 


C463 


TSTERR 


TSTINY 


D2DF 


TSTNEWL 


TST0PN2 


C191 


TSTSAP 
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D41E 


TSTSAPWR 


C19C 


TSTSEED 


BDF6 


TSTVALD 


D578 


TSTWPROT 


C518 


TTSAVE 


D5BC 


TWRCODE 


D587 


TWRPROTl 


D3E6 


TWRTALC 


D064 


UBUFSPEC 


DE04 


UMB 


DC7F 


UNMARK 


CBEE 


UPBMl 


C44E 


UPHEDl 


DD39 


URl 


DD90 


URDUl 


DD83 


URDU 


BO 


USRBUF 


DD2F 


USRREQ 


23 


VBMAP 


IC 


VCBCMAP 


lA 


VCBDMAP 


3E 


VCBENTRY 


01 


VCBNAM 


00 


VCBNML 


16 


VCBROOT 


20 


VCBSI2E 


NllOO 


VCB 


12 


VCBTBLK 


DDBA 


VFCBLOP 


DDEl 


VFCBNXT 


C051 


VF0UND2 


C087 


VFREEX 


C0C2 


VINF02 


C09E 


VINFO 


BF39 


VLOOKOO 


BF4B 


VLOOKO 


BFA3 


VL00K3 


BF8C 


VL00K7 


XOOIF 


VNFERR 


C08C 


VNFIL 


BF79 


VNOSWIT 


BF4 6 


VNOTEQ 


C0E9 


VNXTVCB 


BFF 9 


V0L2 


BF7D 


VOLERRl 


cocc 


VOLERR 


GOOD 


VOLRET 


BFDE 


VOLUME 


C039 


VSWAPIN 


25 


VTBLK 


CF84 


WFCBDAT 


CF73 


WFCBFST 


D12C 


WHOWNS 


NDB9F 


WORKSPC 


D5B0 


WPROTRET 


D5BD 


WRAP AD J 


D3AB 


WRITE2 


D3BA 


WRITE3 


D365 


WRITEl 


D403 


WRITERROl 


B4 


WRKPATH 


D477 


WRPART2 


D484 


WRPART3 


D4AE 


WRPRTDNE 


01 


WRTCMD 


CC8C 


WRTDFRST 


D466 


WRTPART 


D4A0 


WRTRQDNE 


X0030 


XNOWRITE 


ClOD 


ZERCALL 


C2C7 


ZGBUF 


C2D4 


ZINDXl 


CE32 


ZIPDATA 


CE21 


ZIPIDX 


CE2 8 


ZPIDXl 


BO 


Z TEMPS 


2266 


ZZLEN 


BCOO 


ZZORG 



D9A9 


TSTSMROT 


C455 


TSTSOS 


BC54 


TSWVRFY 


CC76 


TTLINK 


D41C 


TWRITEGO 


D3D7 


TWRITE 


X0026 


TYPERR 


CD2B 


TYPMARK 


CI 


UNITNUM 


DC4A 


UNLOG 


CBE4 


UPBMAP 


C44C 


UPHEAD 


DD78 


UR2 


DE03 


URDERR 


CB33 


USEBUF 


10 


USEMOD 


DC92 


USRTS 


DB9F 


V. STATUS 


C8FE 


VCBCMP 1 


10 


VCBDEV 


X0035 


VCBERR 


C8EE 


VCBLOGD 


IE 


VCBOPNC 


B6 


VCBPTR 


11 


VCBSTAT 


IF 


VCBSWAP 


14 


VCBTFRE 


C90A 


VERFYVOL 


C026 


VFOUND 


C03F 


VFOUND 1 


C069 


VFREE 


C0B2 


VINFOl 


COIA 


VLOGGED 


C09B 


VLOGIN 


BF90 


VLOOKl 


BF93 


VL00K2 


C057 


VNEW 


C061 


VNEWl 


3D 


VNML 


BF7F 


VNOSWITl 


COCE 


VNOTSOS 


COEO 


VNS2 


BFF2 


V0L7 


COOA 


VOLS 


C73D 


VOLNAM 


BF30 


VOLOOK 


DC2E 


VONLINE 


3D 


VSWA 


D399 


WADJEOF 


D38B 


WEOFTST 


CF94 


WFCBIDX 


CA66 


WHICHBIT 


D364 


WPERROR 


D5B9 


WPROTl 


D5D4 


WRAPDNE 


D463 


WRITDONE 


02 


WRITEN 


D358 


WRITE 


D40F 


WRITERR02 


D400 


WRITERROR 


D4C6 


WRPART4 


D46F 


WRPART 


D39C 


WRTADJEOF 


CC4F 


WRTBMAP 


CC54 


WRTGBUF 


CC78 


WRTINDX 


X002E 


XDISKSW 


X0031 


XIOERROR 


C2C4 


ZERGBUF 


C89E 


ZERVCB 


C2DB 


ZINDX2 


CE35 


ZIPDATO 


CE3C 


ZPDATl 


3D 


ZPGTEMP 


C2D1 


ZTMPIDX 


7DE66 


ZZEND 
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0000 


D . STOR 


00 


FCBREFN 


00 


00 


DATBLKL 


00 


RDCMD 


00 


01 


WRTCMD 


01 


VCBNAM 


01 


01 


DATBLKH 


01 


READEN 


01 


02 


STATCMD 


02 


IDXADRL 


02 


03 


TRETYP 


03 


IDXADRH 


04 


05 


REQH 


06 


INDXBLK 


06 


07 


FCBSTYP 


07 


LEVELS 


08 


08 


TOTENT 


09 


ENTCNTL 


09 


OA 


ENTCNTH 


OA 


FCBNEWL 


OB 


OC 


FCBFRST 


OC 


NOFREE 


OD 


OE 


HEDTYP 


OE 


SAPTR 


OE 


OF 


MAXTEMPS 


XOOOF 


LEVEL 


0010 


10 


TLINK 


10 


FCBDATB 


10 


XOOlO 


OPMSGRPLY 


10 


VCBDEV 


? 11 


11 


VCBSTAT 


XOOll 


DATETIME 


12 


12 


VCBTBLK 


X0012 


DMGR 


X0013 


14 


PATHCNT 


X0014 


REQFXBUF 


14 


0015 


D.EOF 


N0015 


PFIXPTR 


X0015 


X0016 


RELBUF 


17 


BMPTR 


X0017 


X0018 


SERR 


18 


HCRDT 


0018 


1 9 


HALF 


X0019 


BACKMASK 


lA 


lA 


BMTAB 


XOOIA 


SYSERR 


IB 


IB 


FCBLEVL 


IC 


FCBDIRTY 


IC 


IC 


BMASTAT 


XOOIC 


FCBFULL 


NOOIC 


NOOID 


BFMFCB2 


ID 


HCMP 


OOID 


OOIE 


D . ATTR 


IE 


HATTR 


XOOIE 


IE 


VCBOPNC 


IF 


BMADADR 


IF 


OOIF 


D . AUXID 


20 


EOFMOD 


X0020 


20 


BKBITVAL 


20 


VCBSIZE 


0021 


X0021 


DUPERR 


21 


3MACMAP 


X0022 


23 


HRBLK 


23 


VBMAP 


X0023 


23 


BMBDEV 


X0024 


DIRFULL 


N0024 


0025 


D.DHDR 


25 


VTBLK 


25 


26 


HRELN 


X0027 


EOFERR 


X0028 


29 


FCBANKNM 


X0029 


ACCSERR 


2A 


2B 


TPOSLH 


X002B 


FILBUSY 


2C 


2D 


RWREQL 


X002D 


BADLSTCNT 


2E 


2F 


BULKCNT 


2F 


DLIMIT 


X002F 


X0030 


XNOWRITE 


X0031 


XIOERROR 


31 


X0033 


BITMAP ADR 


X0034 


SYSDEATH 


34 


X0035 


VCBERR 


X0036 


ALCERR 


36 


37 


CMDTEMP 


38 


DATELO 


? 39 


? 3B 


TIMEHI 


3C 


DUPLFLAG 


3D 


3D 


VNML 


3E 


VCBENTRY 


40 


40 


PREREF 


40 


DATMOD 


61 


80 


DSTROYEN 


80 


PREPATH 


80 


AO 


PAR 


Al 


C . PATH 


Al 


A2 


C.OUTBUF 


A2 


C .MRKPTR 


A2 


A2 


C . ISNEWL 


A3 


C . OUTVOL 


A3 


A3 


C.FILIST 


A3 


C.NEWEOF 


A3 


A3 


C.XLIST 


A3 


C . NWPATH 


A4 


A5 


C.FILSTLN 


A5 


C.OPLIST 


A5 


A6 


C.FILID 


A7 


C.OPLSTLN 


A7 


AA 


C.EOFLL 


AB 


C.EOFLH 


AC 


AD 


C.EOFHH 


BO 


ZTEMPS 


BO 



HNLEN 


00 


VCBNML 


LENPATCH 


00 


STATSUB 


SEEDTYP 


01 


DATALC 


FCBDEVN 


02 


WRITEN 


IDXALC 


02 


SAPTYP 


REQL 


04 


TOPALC 


BMTAB SZ 


06 


FCBENTN 


STPMOD 


08 


FCBSTAT 


RPTCMD 


09 


FCBATTR 


FCBBUFN 


OB 


CNTENT 


BMCNT 


OD 


DIRTYP 


FCBIDXB 


OF 


TREPTR 


D . FILID 


10 


USEMOD 


NLINEN 


10 


HPENAB 


HPASS 


0011 


D . FRST 


FCBMARK 


12 


FLINK 


REQBUF 


0013 


D. USAGE 


VCBTFRE 


15 


FCBEOF 


GETBUFADR 


16 


VCBROOT 


BLKDLST 


18 


BASVAL 


D . CREDT 


18 


FCBUSE 


FCBSWAP 


lA 


VCBDMAP 


BMBUFBNK 


XOOIB 


BADPATH 


VCBCMAP 


IC 


HVER 


BFMFCBl 


XOOID 


BADREFNUM 


D . COMP 


ID 


BMADEV 


PATHNOTFND 


NOOIE 


BMAMADR 


VCBSWAP 


XOOIF 


VNFERR 


FNFERR 


20 


?Ri:i:-:i 


D .MODDT 


21 


HCENT 


DUPVOL 


22 


BMBSTAT 


OVRERR 


0023 


D .MODTM 


BMBMADR 


X0025 


CPTERR 


HRENT 


X0026 


TYPERR 


POSNERR 


N0028 


FCBADDRH 


TPOSLL 


X002A 


BTSERR 


TPOSHI 


X002C 


NOTSOS 


RWREQH 


X002E 


XDISKSW 


NOTBLKDEV 


30 


NLCHAR 


NPATHDEV 


X0032 


DIRERR 


lOACCESS 


35 


DEVNUM 


TOTDEVS 


X0037 


TOOLONG 


DATEHI 


? 3A 


TIMELO 


ZPGTEMP 


3D 


VSWA 


DSWITCH 


40 


RENAMEN 


LENFMGR 


80 


IDXMOD 


FCBMOD 


AO 


COMMAND 


C . DNAMP 


Al 


C . REFNUM 


C.OUTEOF 


A2 


C . BASE 


C .MARK 


A3 


C . OUTREF 


C.MAXPTH 


A3 


C.NEWL 


C . BYTES 


A5 


C.XLEN 


C . OUTBLK 


A6 


C . OUTCNT 


C .AUXID 


A9 


C . STOR 


C.EOFHL 


AD 


DEBUPTR 


USRBUF 


BO 


PATHNML 
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Bl 


PATHNMH 


B2 


TINDX 


B2 


TPATH 


B4 


WRKPATH 


B4 


DRBUFPL 


B5 


DRBUFPH 


B6 


VOBPTR 


BS 


BMADR 


N00B8 


BMAPAGE 


NOOBA 


FOBZPP 


BA 


FOBPTR 


NOOBA 


BMBPAGE 


BC 


DATPTR 


BE 


POSPTR 


OO 


DEVICE 


OO 


DHPOMD 


01 


UNITNUM 


01 


DVNAMP 


02 


DBUFPL 


02 


DSTATREQ 


03 


DSTATBFL 


03 


DBUFPH 


03 


DVDNUM 


04 


RQCNTL 


04 


DSTATBFH 


05 


RQONTH 


06 


BLOKNML 


07 


BLOKNMH 


08 


BRDPTR 


D5 


LENSERR 


OODB 


SORHIGH 


015A 


LENOMSG 


0185 


LENDMGR 


701B2 


LENINIT 


OlFD 


LENOFM 


0296 


LENSCMGR 


031C 


LENBUFMG 


70400 


LENBFMI 


040E 


LENUMGR 


040B 


LENIPL 


056B 


LENDISK3 


70751 


LENMEMMG 


OAFS 


LENLODR 


NIOOO 


PATHBUF 


NllOO 


VOB 


1200 


GBUF 


N1400 


SISTER 


14A2 


SISPATH 


14A3 


SISOUTBF 


14A4 


SSNWPATH 


14B0 


SISTEMPS 


14B1 


SISUSRBF 


14B3 


SSTIDXH 


14B3 


SISTPATH 


14B9 


SISBMADR 


14BB 


SISFCBP 


14BD 


SISDATP 


14BF 


SISPOSP 


1403 


SISBPH 


1404 


SISDSTAT 


1409 


SSBRDPH 


718FO 


ORGGLOB 


lEGO 


ORGLODR 


2000 


BLALODR 


2266 


LENBFM 


2266 


ZZLEN 


28FS 


ORGINIT 


72AFS 


BLAINIT 


?2CF8 


BLAGLOB 


72E00 


BLABFMI 


3200 


BLABFM 


5466 


BLAOMSG 


5466 


BLAPATCH 


55O0 


BLAIPL 


5A8B 


BLAUMGR 


5E99 


BLADISK3 


6404 


BLASERR 


64D9 


BLADMGR 


665E 


BLASOMGR 


6SF4 


BLAFMGR 


6955 


BLAOFM 


6B52 


BLABUFMG 


76E6E 


BLAME MMG 


B800 


ORGBFMI 


BOGO 


ZZORG 


BOGO 


ORGBFM 


NBC 


3FMGR 


BC35 


CLRSIS 


BC42 


NOPATH 


BC4B 


NOPREREF 


BCb4 


TSWVRFY 


BC6A 


DVERIFY 


BC78 


CLRDSWT 


BC80 


EXECUTE 


BC93 


ERRCMD 


BC98 


ERRORSYS 


BC9B 


GOODOP 


BC9C 


GOOMD 


B09F 


CMDTABLE 


BC03 


DISPTOH 


BCD5 


SETPATH 


B0E3 


SYNPATH 


BDOA 


DRIVENAM 


BDIC 


PREVOLM 


BD21 


PREVOLMl 


BD41 


PREV0LM2 


BD49 


SPATH2 


BD66 


SPATH3 


BD6F 


ERRSYN 


BD71 


SPTHERR 


BD73 


ADPREFIX 


BD7 9 


NOPREFX 


BD7F 


BUMPATH 


BD87 


FRSTCHAR 


BD9E 


ALFAl 


BDA4 


NXTCHAR 


BDB2 


ALFA2 


BDBE 


TSTDLIM 


BDC6 


SAVPATH 


BDD6 


ENDPATH 


BDED 


LSTNAME 


BDF6 


TSTVALD 


BDFE 


ERRSYNl 


BEOl 


INOTPTH 


BE07 


INOPTHl 


BEOS 


SETPREFX 


BE16 


RESETPFX 


BEIB 


SETPRFXl 


BE2A 


SETPRFX3 


BE2D 


SETPRFX4 


BE34 


MOVPRFX 


BE3D 


GETPREFX 


BE4C 


SENDPRFX 


BE5F 


SNDLMIT 


BE63 


SNDPRFXl 


BE70 


NULPREFX 


BE73 


GOTPRFX 


BE75 


FINDFOB 


BE96 


SVFOBLO 


BEAO 


FNDFCBUF 


BEA4 


GTBUFFRS 


BE06 


FNDFVOL 


BEEO 


FNDFV. 1 


BEEE 


FNDFVl 


BEF9 


ERRNOREF 


BEFD 


REEFER 


BFOO 


REEFERl 


BFOl 


ERRNOTBLK 


BF05 


FVOLFOUND 


BF05 


SVOBADR 


BFGD 


GETDNUM 


BF24 


SRCHDEV 


BF30 


VOLOOK 


BF39 


VLOOKOO 


BF4 6 


VNOTEQ 


BF4B 


VLOOKO 


BF78 


NFOPEN 


BF7 9 


VNOSWIT 


BF7D 


VOLERRl 


BF7F 


VNOSWITl 


BF88 


KNOTSOS 


BF80 


VL00K7 


BE 90 


VLOOKl 


BE 9 3 


VL00K2 


BFA3 


VL00K3 


BFD2 


NOVOLM 


BFD5 


RTVOLNAM 


BFDC 


RTVl 


BFDE 


VOLUME 


BFF2 


VOL 7 


BFF9 


V0L2 


OOOA 


VOLS 


OOIA 


VLOGGED 


0Q26 


VFOUND 


O039 


VSWAPIN 


O03F 


VFOUND 1 


O051 


VF0UND2 


O057 


VNEW 


O061 


VNEWl 


O069 


VFREE 


O087 


VFREEX 


O08O 


VNFIL 


O09B 


VLOGIN 


O09E 


VINFO 


O0B2 


VINFOl 


O0O2 


VINF02 


COCC 


VOLERR 


GOOD 


VOLRET 


OOOE 


VNOTSOS 


OOEO 


VNS2 


C0E9 


VNXTVOB 


OOFl 


CREATE 


OOFB 


CRERRl 


OOFD 


TSTFNF 


01G9 


CREATl 


OlOD 


ZEROALL 


0123 


MOVPARM 


012B 


ORENAM 


O130 


ORENAMl 


0166 


SEED 


0160 


OVFLOW 


O170 


SEEDl 


018A 


I NOD AT A 


0191 


TSTSAP 


0190 


TSTSEED 


01A4 


SAPLING 


OlAD 


TREE 


OIBO 


OREALO 


020E 


FILLTREE 


0235 


ORERR 


C237 


SAPFILE 


0237 


LSTSAP 


O240 


ENDORE 


0247 


TRETIME 


C24F 


ENDCREO 


0259 


ENDORX 


0261 


ENDOREl 


02 6D 


SAPINDX 


0292 


DATINIT 


02AD 


DATITl 


02B0 


DATDONE 


02BD 


REPEATIO 


0204 


ZERGBUF 


0207 


ZGBUF 
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C2D1 


ZTMPIDX 


C2D4 


ZINDXl 


C2DB 


ZINDX2 


C2E2 


CRERR2 


C2E3 


NOTREE 


C2EA 


ISDIR 


C2F0 


DIROVR 


C2F4 


ISDIRl 


C2FE 


DADDl 


C2FF 


TSDIRSZ 


C33C 


DRSTUF 


C342 


DRSTUFl 


C360 


MVHNAME 


C36B 


CRETIME 


C387 


CRNXTDIR 


C3AC 


DIRCREND 


C3B4 


DIRWRT 


C3C3 


DIRWRTl 


C3CE 


D ERROR 


C3CE 


ERRGBUF 


C3CF 


SOSTMPL 


C3D0 


SOSTMPH 


C3D1 


SOSVER 


C3D6 


ENTCALC 


7C3D6 


RNDTAB 


C3DF 


ECALCO 


C3E0 


ECALCl 


C3EC 


ECALC2 


C3EF 


DERR0R2 


C3F0 


DREVISE 


C3F6 


MOD TIME 


C3FE 


DREVISEl 


C422 


MVDENT 


C438 


SVENTDIR 


C44C 


UP HEAD 


C44E 


UPHEDl 


7C450 


DERRORl 


C451 


NOTDIR 


C453 


TSTERR 


C465 


TSTSOS 


C480 


FINDFILE 


C485 


MOVENTRY 


C488 


MOVENT 1 


C492 


NOFIND 


C493 


LOOKFILE 


C4A8 


PHANTMl 


C4B2 


PHANTM2 


C4C5 


ROOTSTUF 


C4CD 


LOOKFILO 


C4D2 


LOOKFILl 


C4E9 


DCRENTH 


C4ED 


ERRDIR 


C4EF 


FNDERR 


C4F1 


NAMFOJMP 


C4F4 


L00KFIL2 


C504 


NXTDIRO 


C511 


TELFREEX 


C514 


FNFOX 


C517 


CFLAG 


C518 


TTSAVE 


C51A 


BLOKSAVE 


C51C 


ERRFNF 


C5B0 


TELFREE 


C5C0 


FNFO 


C5C8 


ERRPATHl 


C5CD 


ERTS 


C5CE 


FNFl 


C5D1 


NAMFOUND 


7C620 


ERRCOMP 


C622 


FNDERRl 


C622 


NONAME 


C624 


MOVHEAD 


C62A 


MOVHEDO 


C62C 


MOVHEDl 


C636 


ENTADR 


C636 


FILFOUND 


C64D 


LOOKNAM 


C658 


LOKNAMl 


C66D 


ISNAME 


C676 


CMPNAME 


C681 


L0KNAM2 


C692 


PREPROOT 


C697 


ROOTO 


C69C 


ROOTl 


C6A0 


CLRDSP 


C6D6 


R00T2 


C5E8 


SRITZ 


C6E9 


R00T3 


C6EB 


ROOTINFO 


C705 


ROOTERR 


C706 


CHKROOT 


C713 


CKROOTl 


C71D 


NOTROOT 


C71E 


FINDVOL 


C72 9 


FNDVOLl 


C73D 


VOLNAM 


C759 


FOUNDVOL 


C75B 


NXTVCB 


C762 


LOOKVOL 


C764 


LOOKVOLl 


C770 


LOKDEVl 


C785 


ENTVCB 


C793 


ENTVCB2 


C7A0 


CHKVLOG 


C7AA 


FREEVCB 


C7B2 


LOKVOLl 


C7C0 


GETROOT 


C7CC 


L0KV0L2 


C7D6 


NXTDEV 


C7E0 


SNSWIT 


C802 


SNSWITl 


C80F 


SNSWIT2 


C82E 


SNSWIT3 


C834 


SNSWIT4 


C840 


SNSWIT5 


C841 


SNSWIT6 


C845 


NONSOS 


C848 


DEWCB 


C84A 


DVCBl 


C85C 


DVCB2 


C863 


TSTDUPVOL 


C867 


TSDUPVl 


C87B 


TSDUPV2 


C882 


NODUPVOL 


C882 


FOUNDEV 


C883 


FNDDUPl 


C886 


FOUNDDUP 


C88F 


LOGVCB 


C8 9A 


LOGVCBl 


C89E 


ZERVCB 


C8B4 


MOVOLNM 


C8EE 


VCBLOGD 


C8EF 


NOTLOGO 


C8F2 


CMPVCB 


C8FE 


VCBCMPl 


C90A 


VERFYVOL 


C91A 


NOVRFY 


C91B 


NOVRFY 1 


C91E 


GETROTO 


C927 


NOTSAME 


C928 


RETR0T2 


C929 


NOTLOGl 


C946 


N0TL0G2 


C94C 


TSFRBLK 


C95F 


TSFROl 


C987 


BMAPRD 


C99C 


CHGVCB 


C9B1 


CMPFREB 


C9BF 


DSKFULL 


C9C2 


TFBERR 


C9C3 


COUNT 


C9C5 


FRCONT 


C9CD 


FRCNTl 


C9D5 


FRCNT2 


C9F4 


FRCNT3 


C9F5 


CNTFREE 


CAOO 


CFREEl 


CA04 


DEALLOC 


CA4 6 


DEALLl 


CA4E 


DEALL2 


CAS 8 


DEALL3 


CA61 


DEALERR 


CA62 


DEALERRl 


CA6 6 


WHICHBIT 


CASE 


ALCIDXS 


CA77 


ALIDXl 


CA95 


ERRALCl 


CA96 


SECNDHAF 


CA9B 


ALDXEND 


CA9C 


ALCIBLK 


CAAl 


SRCHFRE 


CAA5 


GETBITSl 


CAB 2 


GETBITS2 


CAC3 


BITFOUND 


CADB 


ADCALC 


CAEl 


BOUNCE 


CB02 


RETIBLK 


CBOA 


GTTINDX 


CBIE 


FREEBE 


CB20 


FREEA 


CB33 


USEBUF 


CB56 


SOMERRl 


CB57 


NXTBMAP 


CB7 7 


GETA.BUF 


CB7B 


GETS . BUF 


CB7F 


FNDBMAP 


CB85 


FNDMAPl 


CB8 9 


FRESHMAP 


CB95 


TRYMAP2 


CB9D 


BMFOUND 


CBB6 


NOMORBIT 


CBBA 


FRBMBUF 


CBC4 


CHKBMB 


CBCE 


FREBUFl 


CBD4 


FREBUFA 


CBE3 


NOGO 


CBE4 


UPBMAP 


CBEE 


UPBMl 


CBF5 


NOUPDAT 


CBF8 


CLEARBMS 


CC04 


CLRBM2 


CC05 


CLRBMl 


CCIO 


GTBMAP 


CC32 


DOBMAP 


CC4F 


WRTBMAP 


CC54 


WRTGBUF 


CC58 


RDGBUF 


CC5A 


SVGCMD 


CC6A 


DOBITMAP 


CC6A 


DOIDX 


CC75 


TTLINK 


CC78 


WRTINDX 


CC7E 


DOFRST 


CC8C 


WRTDFRST 


CC90 


RDFRST 


CC92 


FADDR 


CC9B 


GETMARK 


CC9D 


GMARKl 


CCAA 


MOVMRK 


CCB2 


SETMARK 


COB 8 


SMARKl 


CCBC 


CMPEOF 


COCA 


ERRMEOF 


CCCD 


ADJMARK 
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CCDC 


ADDPOSN 


CCFE 


ADJMRK 


CDO 9 


RDPOSN 


CD53 


FERRTYP 


CD9B 


P0SNEW2 


CDEB 


NOIDXDAT 


CE2 1 


ZIPIDX 


CE3C 


ZPDATl 


CE58 


SVMRKl 


CE8D 


DIRPOS 


CEC4 


DRPOSERR 


CEE5 


FCBLOKNM 


CFOA 


FILEIO 


CF3E 


RPEATIOO 


CF5 9 


RPEATI02 


CF73 


WFCBFST 


CFAF 


FILIOERR 


CFCO 


ERROR N 


CFDB 


FCBOWNR 


DOIB 


0PEN2 


D03F 


EOFCBMV 


D07A 


F IXDBUF 


DO 8D 


FCBUFFER 


D0D6 


OPNDIR 


DllO 


TST0PN2 


D154 


READ 


D1A8 


READ 2 


DIDC 


TREADO 


D22E 


RDFAST2 


D264 


ERRFIXl 


D299 


NONEWLIN 


D2B3 


RD PARTI 


D2D9 


ENDRCHKl 


D2F0 


SETRDNE 


D306 


SETVFLG 


D354 


DREDERR 


D364 


WP ERROR 


D3 9C 


WRTAD JEOF 


D3E6 


TWRTALC 


D41C 


TWRITEGO 


D463 


WRITDONE 


D484 


WRPART3 


D4A0 


WRTRQDNE 


D4CB 


TOPDOWN 


D513 


SWAP DOWN 


D5 6E 


INCUSGl 


D5B0 


WPROTRET 


D5BD 


WRAP AD J 


D5E1 


CLSALLl 


D619 


CLOSEl 


D649 


FLUSH 


D674 


FLUSHEND 


D687 


FLUSHl 


D6C0 


FLUSH3 


D707 


FLUSH5 


D778 


GLBERR 



SORTED BY ADDRESS 



CCEA SUBMARK 
CDOO ADJMRKO 
CD2B TYPMARK 
CD5B TREPOS 
CDA8 POSNIDX 
CDFO SAPLEVEL 
CE28 ZPIDXl 
CE44 P0SNEW3 
CE79 PRITZ 
CE9B DIRVRSE 
CEC6 DIRP0S2 
CEEF RDFCBERR 
CFOE FILEIOl 
CF4 SAVPRMS 
CF5B GETPRMS 
OF 8 4 WFCBDAT 
CFBO OPEN 
CFC2 OPENl 
D004 DEFOPEN 
D020 ERRCMPAT 
D064 UBUFSPEC 
D07F ERROPNl 
DOAF OPNPOS 
DODB OPENDONE 
D12 4 CHKACTV 
D161 READl 
D1B4 GORDDNE 
D205 RDFAST 
D24 9 REALRD 
D2 6B READONE 
D2A2 READPART 
D2B5 RDPART2 
D2DB ENDRCHK2 
D2F3 RDPRTDNE 
D307 FXDATPTR 
D355 ERRDRD 
D365 WRITEl 
D3AB WRITE2 
D400 WRITERROR 
D41E TSTSAPWR 
D4 66 WRTPART 
D48D ENDWQCHK 
D4AB SETWRDNE 
D4DD TOPDWNl 
D513 SAPDWNl 
D577 ALUSERR 
D5B9 WPROTl 
D5D4 WRAPDNE 
D600 NXTCLOS 
D61E CL0SE2 
D653 FLSHALL 
D67B F3 
D691 FLUSH2A 
D6CD FLUSH4 
D71C EOFUPDTE 
D778 FLUSHERR 



CCEE 


SUBPOSN 


CD07 


ADJMRKl 


CD38 


CHKDSKSW 


CD6E 


POSNEWl 


CDCF 


POSERR 


CDFD 


DATLEVEL 


CE32 


ZIPDATA 


CE4A 


RNEWPOS 


CE7B 


CLRSTATS 


CEA8 


DIRFWRD 


CECA 


RFCBDAT 


CEFO 


RFCBFST 


CF2 5 


FILEI02 


CF4 9 


DMGRGO 


CF67 


TRASH 


OF 9 4 


WFCBIDX 


CFB9 


OPENO 


CFDO 


ASGNFCB 


D009 


SVATTRB 


D024 


0PEN3 


D072 


ERRBTS 


DO 8 


DEFBUER 


DOHA 


OPNPOSl 


DOE 6 


TSTOPEN 


D12C 


WHOWNS 


D182 


EOFTEST 


D1B7 


READ 3 


D20A 


RDF AS TO 


D24C 


NOSTUF 


D27E 


PREPRW 


D2AB 


RDPARTO 


D2C3 


RDPART3 


D2DF 


TSTNEWL 


D2F8 


RDONEl 


D31E 


DREAD 


D358 


WRITE 


D38B 


WEOFTST 


D3BA 


WRITE3 


D403 


WRITERROl 


D42 9 


DBLOKALC 


D4 6F 


WRPART 


D49A 


ENDWCHKl 


D4AE 


WRPRTDNE 


D505 


SAPDOWN 


D556 


SWAP ERR 


D578 


TSTWPROT 


D5BB 


DSWGLOB 


D5D5 


CLOSE 


D517 


03 


D644 


CLOSEND 


D655 


FLSHALl 


D67C 


FLSHERR 


D6A7 


FLUSH2B 


D6CF 


OWNRMOV 


D765 


BMAPUP 


D780 


GLBERRl 



CCFA ERRPOSN 
CD 09 CKSAMBLK 
CD4 6 CHKDSKSl 
CD88 TSTINY 
CDDl POSINDEX 
CE14 NOD AT A 
CE35 ZIPDATO 
CE54 SVMARK 
CE84 DIRMARK 
CEB5 DIRPOSl 
CED8 RFCBIDX 
CEF6 DOFILEIO 
CF3A RPEATIOl 
CF58 RRITZ 
CF69 RPTBLOK 
CFA9 FCBUPDAT 
CFBE ERRBUSY 
CFD4 CLRFCB 
DO 11 SVATTRl 
D02C 0PEN4 
D07 6 ONEKTST 
D088 BUFREQST 
DOCS ERR0PEN2 
D108 TSTOPNl 
D142 TSNXFCB 
D190 ADJSTCNT 
D1D4 TREAD 
D21F RDFASTl 
D25F ERRFIX 
D2 8 9 PREPRWl 
D2AC RDPART 
D2CC ENDRQCHK 
D2E5 RDRQDNE 
D305 RDPART4 
D353 DREDONE 
D361 ERRACCS 
D3 9 9 WAD JEOF 
D3D7 TWRITE 
D40F WRITERR02 
D456 TREWRTl 
D47 7 WRPART2 
D4 9C ENDWCHK2 
D4C6 WRPART 4 
D512 TPDWNERR 
D557 ALCWBLK 
D587 TWRPROTl 
D5BC TWRCODE 
D5DF CLOSALL 
D618 CFERR 
D646 CLOSERR 
D664 NXFLUSH 
D67F FLUSH2 
D6B3 FLUSH2C 
D700 FLSHEBLK 
D776 FLSHENDl 
D781 GFCBADR 
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D78C 


SETERR 


D78F 


EOFRETN 


D790 


SETEOF 


D7A9 


SETSAVE 


D7B9 


NEOFPOS 


D7C4 


NEOFTST 


D7D0 


SETEOFO 


D7D5 


SETEOFl 


D7D9 


SETE0F2 


D7E6 


PURTEST 


D7F2 


PURTESTl 


D7F5 


TRELEASl 


D7F8 


PURGE 


D818 


PUR2 


DS19 


PURl 


D839 


PURHI 


D83B 


EOFOUT 


D83D 


PURLBLKS 


DS41 


PURLOOP 


D878 


PURLRTS 


D879 


PURUSE 


D87A 


PURPLACE 


D87B 


TRELEASE 


D87E 


GETEOF 


D882 


OUTEOF 


D893 


NEWLINE 


D8A7 


OFFNEWL 


D8AD 


OFFRTS 


D8AF 


GETINFO 


D8EB 


GTINFOl 


D8ED 


GTINF02 


D903 


GTINF03 


D907 


GTINF04 


D90E 


GINFOEND 


D90F 


GINFOERR 


D910 


SETINFO 


D925 


SETINFl 


D92B 


SETINFIX 


D93A 


SINFEND 


D93D 


SETINF2 


D945 


SETINF3 


D954 


SINFENDl 


D957 


BKBITFLG 


D9S8 


INFTABL 


D968 


RENAME 


D984 


SINFOERR 


D985 


RNAMEVOL 


D996 


RNMEVOL 


D99F 


RNAMEO 


D9A9 


TSTSMROT 


D9B9 


RNAME RR 


D9BB 


TSTFNFl 


D9C1 


SVENEWID 


D9E5 


RNAME 1 


D9E7 


SAMOWNR 


D9EE 


RNBADPTH 


D9F2 


RNAME2 


D9FE 


RNAME3 


DA30 


RNAMDONE 


DAS 3 


MVROTNAM 


DA3 6 


MVHEDNAM 


DA41 


RENPATH 


DAS 2 


DEALBLK 


DAS 4 


DALBLKl 


DA62 


DALBLK2 


DA6C 


DALBLK3 


DA70 


DALBLKERR 


DA71 


DESTROY 


DA81 


DSTROYl 


DA91 


DSTR0Y2 


DA9D 


DSTR0Y3 


DAAE 


DSTREE 


DACl 


DESTERR 


DAC2 


DSTSAP 


DAD 9 


DSTRE2 


DADB 


DSTNXT 


DAE 9 


DSTRE3 


DAFO 


DSTRE4 


DBIO 


DSTNXTl 


DB13 


DSTLAST 


DB2B 


DSTl 


DB4F 


DSTDIR 


DBS8 


DSDIRl 


DB7 6 


DSDIRACC 


DB7B 


DSDIR2 


DBS 7 


DSDIR3 


DB9E 


DSDIRERR 


NDB9F 


WORKSPC 


DB9F 


V . STATUS 


DBAO 


H . CREDT 


DBA6 


H.ATTR 


DBA7 


H . ENTLN 


DBAS 


H . MAXENT 


DBA9 


H . FONT 


DBB4 


D . DEV 


DBB5 


D . HEAD 


DBB7 


D . ENTBLK 


DBB9 


D . ENTNUM 


DBBA 


DFIL 


DBEl 


CMDADR 


DBE3 


SCRTCH 


DBFO 


OLDEOF 


DBF3 


OLDMARK 


DBF 6 


SWAPOUT 


DBFC 


SWAPOUTX 


DC18 


FDIRBM 


DClC 


GETVOL 


DC2E 


VONLINE 


DC33 


MARK SWAP 


DC4 5 


SORTS 


DC4A 


UNLOG 


DCSl 


SWAP IN 


jC oD 


s:l 


DC'/F 


UNMARK 


DC92 


USRTS 


DC97 


SAVEPTRS 


DC9C 


SAVECBS 


DCB6 


RESTCBS 


DCDO 


FCBSCAN 


DCDC 


FCBIN 


DCEC 


FCBINl 


DCF4 


FCBOUT 


DD02 


FCBOUTl 


DDOA 


FCBRTS 


DDOB 


FCBFETCH 


DDIB 


NEXTFCB 


DD2D 


NEXTEND 


DD2F 


USRREQ 


DD39 


URl 


DD78 


UR2 


DD83 


URDU 


DD90 


URDUl 


DD9B 


CLOSEU 


DDBA 


VFCBLOP 


DDEl 


VFCBNXT 


DDF4 


FCBUSED 


DE03 


URDERR 


DE04 


UMB 


DE13 


MVOL 


DE32 


MDEV 


DE66 


ORGPATCH 


DE66 


ORGOMSG 


7DE66 


ZZEND 


DFCO 


ORGIPL 


E48B 


ORGUMGR 


E899 


0RGDISK3 


EE04 


ORGSERR 


EED9 


ORGDMGR 


FOSE 


ORGSCMGR 


F2F4 


ORGFMGR 


F3S5 


ORGCFM 


F552 


ORGBUFMG 


F86E 


ORGMEMMG 


FFBF 


ORGEND 
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